fact: Definition make_subsetswithbinop {X : setwithbinop} : ∏ (t : hsubtype X), (λ A : hsubtype X, issubsetwithbinop op A) t → ∑ A : hsubtype X, issubsetwithbinop op A := tpair (λ A : hsubtype X, issubsetwithbinop (@op X) A).
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.Propositions