fact: Record P (alpha:E0) : Prop := mkP { PA : strict_mono (H'_ alpha); PB : alpha <> E0zero -> forall n, (n < H'_ alpha n)%nat; PC : H'_ alpha <<= H'_ (E0_succ alpha); PD : dominates_from 1 (H'_ (E0_succ alpha)) (H'_ alpha); PE : forall beta n, Canon_plus n alpha beta -> (H'_ beta n <= H'_ alpha n)%nat}.
imports: Coq(ArithRing Lia) hydras(E0 Canon Paths) hydras(Exp2 Iterates Simple_LexProd) hydras(Compat815) Equations(Equations)