Proposition cha_lub_le {H : complete_heyting_algebra} {I : UU} {f : I → H} {x : H} (p : ∏ (i : I), f i ≤ x) : \/_{ j } f j ≤ x. Proof. exact (pr22 (pr122 H I f) x p). 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.