Definition make_is_boolean {X : hSet} (L : bounded_lattice X) : is_distributive L -> complemented_structure L -> is_boolean L. Proof. intros ? ?. use tpair. - assumption. - assumption. Defined.
Require Import UniMath.Foundations.Preamble. Require Import UniMath.Algebra.Monoids. Require Import UniMath.OrderTheory.Lattice.Lattice. Require Import UniMath.OrderTheory.Lattice.Bounded. Require Import UniMath.OrderTheory.Lattice.Complement. Require Import UniMath.OrderTheory.Lattice.Distributive. Require Import UniMath.OrderTheory.Lattice.Heyting.