∀ {R : Type u_1} {M : Type u_4} [inst : Semiring R] [inst_1 : AddCommMonoid M] [inst_2 : Module R M] {S : Type u_7}
  {P : Type u_6} [inst_3 : Semiring S] [inst_4 : AddCommMonoid P] [inst_5 : Module S P] {σ : R →+* S}
  [RingHomSurjective σ] [hM : Module.Finite R M] (f : M →ₛₗ[σ] P), Function.Surjective ⇑f → Module.Finite S P