fact: Definition aprel_pr1 {X : UU} (ap : aprel X) : hrel X := pr1 ap.
imports: UniMath.Algebra.BinaryOperations UniMath.Foundations.Propositions UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.DecidablePropositions