calc
  (-1 : ℤ) * (-1) ≃ _ := Rel.symm AA.scompatL
  (-(1 * (-1)))   ≃ _ := AA.subst₁ (Rel.symm AA.scompatR)
  (-(-(1 * 1)))   ≃ _ := neg_involutive
  1 * 1           ≃ _ := one_mul_one_eqv_one
  1               ≃ _ := Rel.refl
ℕ : Type
inst✝⁴ : Natural ℕ
ℤ : Type
inst✝³ : Core ℤ
inst✝² : Addition ℤ
inst✝¹ : Multiplication ℤ
inst✝ : Negation ℤ
⊢ -1 * -1 ≃ 1
no goals