(* END NEW MATERIAL *)
End SHARE_MODEL.
Module BA_Facts (BA:BOOLEAN_ALGEBRA) <: BA_FACTS.
Include BA.

Lemma demorgan2 : forall x y, comp (glb x y) = lub (comp x) (comp y).
Instance Join_ba: Join t := fun x y z : t => glb x y = bot /\ lub x y = z.