fact: Variables (A : Type) (le eq : relation A) (eq_ok : forall x y, le x y -> le y x -> eq x y) (lub glb : set A -> A) (lub_ok : forall S, is_lub le (lub S) S) (glb_ok : forall S, is_glb le (glb S) S) (P : A -> Prop).
imports: CoLoR(LogicUtil RelUtil SetUtil) Coq(Morphisms Basics)