Proposition cha_le_glb {H : complete_heyting_algebra} {I : UU} {f : I → H} {x : H} (p : ∏ (i : I), x ≤ f i) : x ≤ /\_{ j } f j. Proof. unfold complete_heyting_algebra_glb. use cha_le_lub. - exact (x ,, p). - apply cha_le_refl. Qed.
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.