fact: Definition lub (P:T2 -> Prop)(x:T2) := nf x /\ (forall y, P y -> nf y -> y <= x) /\ (forall y, (forall x, P x -> nf x -> x <= y) -> nf y -> x <= y).
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