Proposition cha_glb_le {H : complete_heyting_algebra} {I : UU} (f : I → H) {x : H} {i : I} (p : f i ≤ x) : /\_{ j } f j ≤ x. Proof. refine (cha_le_trans _ p). apply cha_glb_le_pt. 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.