proposition: Corollary Cor12_2 (alpha : T1) : nf alpha -> forall beta i n, i <= n -> const_pathS_eps i alpha beta -> const_pathS_eps n alpha beta.
proof: Proof. intros H beta i n H0; destruct (T1_eq_dec alpha beta). - subst;now right. - destruct 1. + left; apply Cor12_1 with i;auto. apply const_pathS_LE in H1; auto. * destruct (LE_LT_eq_dec H1);auto. subst; now destruct n0. + now destruct n0. Qed.
imports: hydras(DecPreOrder Canon MoreLists First_toggle OrdNotations) Coq(Lia)