proposition: Theorem epsilon0_as_lub : forall b, nf b -> (forall a, lt_epsilon0 a -> lt a b) -> le epsilon0 b.
proof: Proof. intros y Vy Hy. Locate epsilon0. tricho epsilon0 y H. - right;auto with T2. - left;auto with T2. - assert (lt_epsilon0 y). { apply lt_epsilon0_okR;auto with T2. } generalize (Hy _ H0); intro; case (lt_irr (alpha:= y)); auto with T2. Qed.
imports: Coq(Arith List Lia Compare_dec Relations Wellfounded RelationClasses) hydras(Epsilon0) hydras(More_Arith Restriction) hydras(ON_Generic) hydras(rpo.term rpo.rpo) hydras(T2) hydras(Compat815)