End BLatticeTheory.
End BLatticeTheory.
Module Import ReverseTBLattice.
Section ReverseTBLattice.
Context {disp : unit}.
Local Notation tblatticeType := (tblatticeType disp).
Context {L : tblatticeType}.

(* Specifications: *)
Lemma lex1 (x : L) : x <= top. Proof. by case: L x => [?[?[]]]. Qed.
Definition reverse_blatticeMixin :=
@BLatticeMixin _ [latticeType of L^r] top lex1.