calc
  _ ≃ q + p₁ := eqv_refl
  _ ≃ p₁ + q := add_comm
  _ < p₂ + q := lt_substL_add ‹p₁ < p₂›
  _ ≃ q + p₂ := add_comm
ℕ ℤ ℚ : Type
inst✝¹⁰ : Natural ℕ
inst✝⁹ : Integer ℤ
inst✝⁸ : Core ℚ
inst✝⁷ : Addition ℚ
inst✝⁶ : Multiplication ℚ
inst✝⁵ : Negation ℚ
inst✝⁴ : Sign ℚ
inst✝³ : Subtraction ℚ
inst✝² : Reciprocation ℚ
inst✝¹ : Division ℚ
inst✝ : Order ℚ
p₁ p₂ q : ℚ
x✝ : p₁ < p₂
⊢ q + p₁ < q + p₂
no goals