proposition: Lemma lubsareunique {u v : X} : islub u -> islub v -> u = v.
proof: Proof. intros islubu islubv. apply isantisymm_posetRelation. - apply (islub_isleast islubu). exact (islub_isupperbound islubv). - apply (islub_isleast islubv). exact (islub_isupperbound islubu). Qed.
imports: UniMath.Foundations.All