{R : Type u} →
  {A : Type v} →
    [inst : CommSemiring R] →
      [inst_1 : NonUnitalNonAssocSemiring A] →
        [inst_2 : Module R A] →
          {motive : NonUnitalSubalgebra R A → Sort u_1} →
            (t : NonUnitalSubalgebra R A) →
              ((toNonUnitalSubsemiring : NonUnitalSubsemiring A) →
                  (smul_mem' :
                      ∀ (c : R) {x : A}, x ∈ toNonUnitalSubsemiring.carrier → c • x ∈ toNonUnitalSubsemiring.carrier) →
                    motive { toNonUnitalSubsemiring := toNonUnitalSubsemiring, smul_mem' := smul_mem' }) →
                motive t