rw [mul_comm b, mul_comm d, hyp]
case help
d✝ : ℕ
inst✝ : NeZero d✝
a✝ b✝ : ℕ
I : BasicInterval
hab : a✝ ≠ 0 ∨ b✝ ≠ 0
hm : mem a✝ b✝ I
h :
  (∀ (a' b' : ℕ), mem_S_le d✝ ↑a' ↑b' → mem a' b' I → a' * I.b₂ = b' * I.a₂) ∨
    ∀ (a' b' : ℕ), mem_S_ge d✝ ↑a' ↑b' → mem a' b' I → a' * I.b₁ = b' * I.a₁
a b c d : ℕ
hyp : a * b = c * d
⊢ d * c = b * a
no goals