calc
  p₁ - q  ≃ _ := sub_add_neg
  p₁ + -q ≃ _ := add_substL ‹p₁ ≃ p₂›
  p₂ + -q ≃ _ := eqv_symm sub_add_neg
  p₂ - q  ≃ _ := eqv_refl
ℕ ℤ : Type
inst✝⁶ : Natural ℕ
inst✝⁵ : Integer ℤ
ℚ : Type
inst✝⁴ : Core ℚ
inst✝³ : Addition ℚ
inst✝² : Multiplication ℚ
inst✝¹ : Negation ℚ
inst✝ : Subtraction ℚ
p₁ p₂ q : ℚ
x✝ : p₁ ≃ p₂
⊢ p₁ - q ≃ p₂ - q
no goals