Section DualTBLattice.
Context {disp : unit} {L : tbLatticeType disp}.
Definition dual_bLatticeMixin :=
@BLattice.Mixin _ (Lattice.class [latticeType of L^d]) top lex1.
Canonical dual_bLatticeType := BLatticeType L^d dual_bLatticeMixin.
Definition dual_tbLatticeMixin :=
@TBLattice.Mixin _ (BLattice.class [bLatticeType of L^d])
(bottom : L) (@le0x _ L).
Canonical dual_tbLatticeType := TBLatticeType L^d dual_tbLatticeMixin.

Lemma botEdual : (dual_bottom : L^d) = 1 :> L. Proof. by []. Qed.
Lemma topEdual : (dual_top : L^d) = 0 :> L. Proof. by []. Qed.