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