Module Type BA_FACTS.
Include BOOLEAN_ALGEBRA.
Instance Join_ba: Join t := fun x y z : t => glb x y = bot /\ lub x y = z.

Axiom pa: Perm_alg t.   Existing Instance pa.
Axiom sa : Sep_alg t.   Existing Instance sa.
Axiom ca : Canc_alg t. Existing Instance ca.
Axiom singa : Sing_alg t.   Existing Instance singa.
Axiom da : Disj_alg t.   Existing Instance da.