∀ {R : Type u_1} {M : Type u_5} [inst : Semiring R] [inst_1 : AddCommMonoid M] [inst_2 : Module R M]
  {p q r : Submodule R M}, Submodule.comap p.subtype q ≤ Submodule.comap p.subtype r ↔ p ⊓ q ≤ p ⊓ r