{R : Type u_1} →
  {A : Type u_2} →
    {M : Type u_3} →
      [inst : CommSemiring R] →
        [inst_1 : Semiring A] →
          (a : A) →
            [inst_2 : Algebra R A] →
              [inst_3 : AddCommMonoid M] →
                [inst_4 : Module A M] →
                  [inst_5 : Module R M] →
                    [inst_6 : IsScalarTower R A M] →
                      (p : Submodule R M) →
                        (hp : p ∈ ((Algebra.lsmul R R M) a).invtSubmodule) →
                          ↥p ≃ₗ[R] ↥((Module.AEval.mapSubmodule R M a) ⟨p, hp⟩)