Definition unit_complete_lattice : is_complete_lattice unit_bounded_lattice. Proof. intros I f. refine (tt ,, _). abstract (split ; intro ; intros ; apply isapropunit). Defined.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.Algebra.BinaryOperations. Require Import UniMath.OrderTheory.Lattice.Lattice. Require Import UniMath.OrderTheory.Lattice.Bounded. Require Import UniMath.OrderTheory.Lattice.Heyting. Require Import UniMath.OrderTheory.Lattice.CompleteHeyting.