Definition is_boolean_algebra (H : complete_heyting_algebra) : hProp := (∀ (x : H), ((x ∨ ¬ x) = ⊤)%heyting)%logic.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.OrderTheory.Lattice.Lattice. Require Import UniMath.OrderTheory.Lattice.Bounded. Require Import UniMath.OrderTheory.Lattice.Heyting.