fact: Definition isdistrmonob {X Y : setwith2binop} (f : twobinopmono X Y) (is : isdistr (@op1 Y) (@op2 Y)) : isdistr (@op1 X) (@op2 X) := make_dirprod (isldistrmonob f (pr1 is)) (isrdistrmonob f (pr2 is)).
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.Propositions