Proposition cha_glb_le_pt {H : complete_heyting_algebra} {I : UU} (f : I → H) (i : I) : /\_{ j } f j ≤ f i. Proof. use cha_lub_le. intros x ; cbn. exact (pr2 x i). 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.