proposition: Lemma limit_is_lub beta : limitb beta -> forall alpha, (forall i, canon beta i o< alpha) <-> beta o<= alpha.
proof: Proof. destruct beta;intros H alpha;destruct n, n0; try discriminate. apply limit_is_lub_0. Qed.
imports: Coq(Arith Compare_dec Lia) hydras(Simple_LexProd ON_Generic ON_mult ON_Omega Compat815)