∀ (R : Type u_2) {A : Type u_3} (M : Type u_1) [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 : ↥((Algebra.lsmul R R M) a).invtSubmodule),
  (fun q => ⟨(Submodule.orderIsoMapComap (Module.AEval.of R M a)).symm (Submodule.restrictScalars R q), ⋯⟩)
      ((fun p =>
          let __AddSubmonoid := AddSubmonoid.map (Module.AEval.of R M a) (↑p).toAddSubmonoid;
          { toAddSubmonoid := __AddSubmonoid, smul_mem' := ⋯ })
        p) =
    p