End CBLatticeTheory.
Module Import CTBLatticeTheory.
Section CTBLatticeTheory.
Context {disp : unit}.
Local Notation ctblatticeType := (ctblatticeType disp).
Context {L : ctblatticeType}.
Implicit Types (x y z : L).
Local Notation "0" := bottom.
Local Notation "1" := top.

Lemma complU x y : ~` (x `|` y) = ~` x `&` ~` y.
Fact lexi_trans: transitive lexi.