∀ (R : Type u_1) {V : Type u_2} {P : Type u_4} [inst : Ring R] [inst_1 : PartialOrder R] [inst_2 : AddCommGroup V]
  [inst_3 : Module R V] [inst_4 : AddTorsor V P] [ZeroLEOneClass R] (R' : Type u_6) [inst_6 : Ring R']
  [inst_7 : PartialOrder R'] [inst_8 : Module R' V] [inst_9 : Module R' R] [IsScalarTower R' R V] [SMulPosMono R' R]
  (x y : P), affineSegment R' x y ⊆ affineSegment R x y