Proposition cha_le_lub_pt {H : complete_heyting_algebra} {I : UU} (f : I → H) (i : I) : f i ≤ \/_{ j } f j. Proof. exact (pr12 (pr122 H I f) 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.