refine Iff.intro ?_ ?_
p q a b : ℝ≥0∞
ha : a ≠ 0
ha' : a ≠ ⊤
⊢ a - b = a ↔ b = 0
case refine_1
p q a b : ℝ≥0∞
ha : a ≠ 0
ha' : a ≠ ⊤
⊢ a - b = a → b = 0

case refine_2
p q a b : ℝ≥0∞
ha : a ≠ 0
ha' : a ≠ ⊤
⊢ b = 0 → a - b = a