fact: Definition glb (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