proposition: Lemma isunital_weq_bck {X Y : UU} (H : X ≃ Y) (opp : binop Y) : isunital opp → isunital (binop_weq_bck H opp).
proof: Proof. intro is. exists (invmap H (pr1 is)). apply isunit_weq_bck, (pr2 is). Defined.
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.Propositions