{R : Type u_1} →
  {M : Type u_2} →
    [inst : Ring R] →
      [inst_1 : AddCommGroup M] →
        [inst_2 : Module R M] →
          (p p' : Submodule R M) →
            ↥p ⧸ Submodule.comap p.subtype p ⊓ Submodule.comap p.subtype p' →ₗ[R]
              ↥(p ⊔ p') ⧸ Submodule.comap (p ⊔ p').subtype p'