fact: Definition lub (f : A -> Prop) (a : A) := (forall a', f a' -> le a' a) /\ forall a'', (forall a', f a' -> le a' a'') -> le a a''.
imports: SetoidClass Coq.Classes.Morphisms Coq.Arith.PeanoNat Fiat.Common.Coq__8_4__8_5__Compat