Definition complete_heyting_algebra_glb {H : complete_heyting_algebra} {I : UU} (f : I → H) : H := \/_{ i : ∑ (x : H), ∏ (i : I), x ≤ f i } pr1 i.
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.