have : 1 ≃ (0:ℤ) := calc
  1      ≃ _ := Rel.symm AA.identR
  1 + 0  ≃ _ := AA.substR (Rel.symm ‹-1 ≃ (0:ℤ)›)
  1 + -1 ≃ _ := AA.inverseR
  0      ≃ _ := Rel.refl
ℕ : Type
inst✝⁴ : Natural ℕ
ℤ : Type
inst✝³ : Core ℤ
inst✝² : Addition ℤ
inst✝¹ : Multiplication ℤ
inst✝ : Negation ℤ
x✝ : -1 ≃ 0
⊢ False
ℕ : Type
inst✝⁴ : Natural ℕ
ℤ : Type
inst✝³ : Core ℤ
inst✝² : Addition ℤ
inst✝¹ : Multiplication ℤ
inst✝ : Negation ℤ
x✝ : -1 ≃ 0
this : 1 ≃ 0
⊢ False