calc
a * b ≃ _ := AA.substR ‹b ≃ 0›
a * 0 ≃ _ := AA.absorbR
0     ≃ _ := Rel.refl
ℕ : Type
inst✝⁵ : Natural ℕ
ℤ : Type
inst✝⁴ : Core ℤ
inst✝³ : Addition ℤ
inst✝² : Multiplication ℤ
inst✝¹ : Negation ℤ
inst✝ : Sign ℤ
a b : ℤ
x✝ : a ≃ 0 ∨ b ≃ 0
h✝ : b ≃ 0
⊢ a * b ≃ 0
no goals