no goals
R : Type u_1
R₂ : Type ?u.393929
K : Type ?u.393932
M : Type u_2
M₂ : Type ?u.393938
V : Type ?u.393941
S : Type ?u.393944
inst✝³ : Ring R
inst✝² : AddCommGroup M
inst✝¹ : Module R M
inst✝ : NoZeroSMulDivisors R M
x : M
h : x ≠ 0
⊢ ↑(coord R M x h) { val := x, property := (_ : x ∈ Submodule.span R {x}) } = 1
rw [← toSpanNonzeroSingleton_one R M x h, LinearEquiv.symm_apply_apply]