proposition: Proposition const_lub {X : dcpo} (x : X) (I : UU) (i : ∥ I ∥) : ⨆ (const_directed_set X x I i) = x.
proof: Proof. use antisymm_dcpo. - use dcpo_lub_is_least. intro j ; cbn. apply refl_dcpo. - revert i. use factor_dep_through_squash. { intro i. apply propproperty. } intro i ; cbn. use less_than_dcpo_lub. + exact i. + cbn. apply refl_dcpo. Qed.
imports: UniMath.MoreFoundations.All UniMath.OrderTheory.Posets.Basics UniMath.OrderTheory.Posets.MonotoneFunctions UniMath.OrderTheory.Posets.PointedPosets UniMath.OrderTheory.DCPOs.Core.DirectedSets