fact: Definition isringopsisof {X Y : setwith2binop} (f : twobinopiso X Y) (is : isringops (@op1 X) (@op2 X)) : isringops (@op1 Y) (@op2 Y) := make_dirprod (make_dirprod (isabgropisof (binop1iso f) (ringop1axs_is is)) (ismonoidopisof (binop2iso f) (ringop2axs_is is))) (isdistrisof f (pr2 is)).
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.Propositions