(A : Type u_2) →
  (M : Type u_1) →
    (motive : Module.Presentation.tautological.R A M → Sort u_3) →
      (x : Module.Presentation.tautological.R A M) →
        ((m₁ m₂ : M) → motive (Module.Presentation.tautological.R.add m₁ m₂)) →
          ((a : A) → (m : M) → motive (Module.Presentation.tautological.R.smul a m)) → motive x