proposition: Corollary Cor12_E0 : forall alpha beta i n, E0lt beta alpha -> (i <= n)%nat -> Canon_plus (S i) alpha beta -> Canon_plus (S n) alpha beta.
proof: Proof. intros. rewrite Nat.lt_eq_cases in H0; destruct H0. eapply Cor12;eauto. destruct alpha; auto. now subst. Qed.
imports: hydras(DecPreOrder Canon MoreLists First_toggle OrdNotations) Coq(Lia)