{M : Type u} →
  {P : Sort u_1} →
    {toAddMonoid : AddMonoid M} →
      {toIsRightCancelAdd : IsRightCancelAdd M} →
        {toAddMonoid' : AddMonoid M} →
          {toIsRightCancelAdd' : IsRightCancelAdd M} →
            { toAddMonoid := toAddMonoid, toIsRightCancelAdd := toIsRightCancelAdd } =
                { toAddMonoid := toAddMonoid', toIsRightCancelAdd := toIsRightCancelAdd' } →
              (toAddMonoid ≍ toAddMonoid' → P) → P