proposition: Remark R21 : gamma <> zero -> (0 < l)%nat -> gamma = beta \/ const_pathS (n+l) gamma beta.
proof: Proof. intros Hg H; destruct (LE_LT_eq_dec R19). - right; apply R20;auto. - left;auto. Qed.
imports: hydras(DecPreOrder Canon MoreLists First_toggle OrdNotations) Coq(Lia)