∀ {R : Type u} [inst : CommSemiring R] (A : Type u_2) [inst_1 : CommSemiring A] [inst_2 : Module R A]
  [inst_3 : SMulCommClass R A A] [inst_4 : IsScalarTower R A A] (a : A),
  ((LinearMap.mul R A) a).range = Submodule.restrictScalars R (Ideal.span {a})