proposition: Remark RD : dominates_from 1 (H'_ (E0_succ alpha)) (H'_ alpha).
proof: Proof. generalize PA_Succ; subst alpha. red; intros H k H0; rewrite (H'_eq2 (E0_succ beta)); apply H; auto with arith. Qed.
imports: Coq(ArithRing Lia) hydras(E0 Canon Paths) hydras(Exp2 Iterates Simple_LexProd) hydras(Compat815) Equations(Equations)