Lemma isaprop_islub (u : X) : isaprop (islub u). Proof. apply isapropdirprod. - apply isaprop_isupperbound. - apply impred_isaprop; intro x. apply isapropimpl; apply propproperty. Qed.
Require Import UniMath.Foundations.All.