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. 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: EPSILON0 Arith List Omega Compare_dec Relations Wellfounded Max Tools More_nat AccP not_decreasing EPSILON0 More_nat Gamma0_prelude Gamma0_length term rpo