fact: Definition isringopsisob {X Y : setwith2binop} (f : twobinopiso X Y) (is : isringops (@op1 Y) (@op2 Y)) : isringops (@op1 X) (@op2 X) := make_dirprod (make_dirprod (isabgropisob (binop1iso f) (ringop1axs_is is)) (ismonoidopisob (binop2iso f) (ringop2axs_is is))) (isdistrisob f (pr2 is)).
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.Propositions