proposition: Lemma isdistrisof {X Y : setwith2binop} (f : twobinopiso X Y) (is : isdistr (@op1 X) (@op2 X)) : isdistr (@op1 Y) (@op2 Y).
proof: Proof. apply (isdistrisob (invtwobinopiso f) is). Defined.
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.Propositions