{M : Type u_12} →
  {A : Type u_13} →
    {inst : Monoid M} →
      {inst_1 : AddMonoid A} →
        {P : Sort u} →
          {toMulAction : MulAction M A} →
            {smul_zero : ∀ (a : M), a • 0 = 0} →
              {smul_add : ∀ (a : M) (x y : A), a • (x + y) = a • x + a • y} →
                {toMulAction' : MulAction M A} →
                  {smul_zero' : ∀ (a : M), a • 0 = 0} →
                    {smul_add' : ∀ (a : M) (x y : A), a • (x + y) = a • x + a • y} →
                      { toMulAction := toMulAction, smul_zero := smul_zero, smul_add := smul_add } =
                          { toMulAction := toMulAction', smul_zero := smul_zero', smul_add := smul_add' } →
                        (toMulAction ≍ toMulAction' → P) → P