rw [← LinearMap.range_eq_map l, LinearMap.range_eq_top.mpr hl] at this
R : Type u
M : Type v
inst✝⁶ : CommRing R
inst✝⁵ : Nontrivial R
inst✝⁴ : AddCommGroup M
inst✝³ : Module R M
inst✝² : Module.Finite R M
N : Submodule R M
M' : Type u_1
inst✝¹ : AddCommGroup M'
inst✝ : Module R M'
l : M →ₗ[R] M'
hl : Function.Surjective ⇑l
hl' : LinearMap.ker l ≤ Submodule.torsion R M
this : finrank R ↥(Submodule.map l ⊤) = finrank R ↥⊤
⊢ finrank R M' = finrank R M
R : Type u
M : Type v
inst✝⁶ : CommRing R
inst✝⁵ : Nontrivial R
inst✝⁴ : AddCommGroup M
inst✝³ : Module R M
inst✝² : Module.Finite R M
N : Submodule R M
M' : Type u_1
inst✝¹ : AddCommGroup M'
inst✝ : Module R M'
l : M →ₗ[R] M'
hl : Function.Surjective ⇑l
hl' : LinearMap.ker l ≤ Submodule.torsion R M
this : finrank R ↥⊤ = finrank R ↥⊤
⊢ finrank R M' = finrank R M