proposition: Lemma Limit_gt_Zero (alpha: E0) : E0limit alpha -> E0zero o< alpha.
proof: Proof. intro H; destruct (E0_lt_eq_lt alpha E0zero) as [H0 | [H0 | H0]]; trivial. - destruct (E0_not_Lt_zero H0). - subst; discriminate H. Qed.
imports: Coq(Arith Max Bool Lia Compare_dec Relations Ensembles ArithRing Wellfounded Operators_Properties Logic.Eqdep_dec) hydras(Prelude.More_Arith Prelude.Restriction Prelude.DecPreOrder ON_Generic OrdNotations)