{R : Type u_1} →
  {M : Type u_5} →
    [inst : Semiring R] →
      [inst_1 : AddCommMonoid M] →
        [inst_2 : Module R M] → {p q : Submodule R M} → p ≤ q → ↥(Submodule.comap q.subtype p) ≃ₗ[R] ↥p