case left
a b c d : ℤ
hb0 : 0 < b
hd0 : 0 < d
h1 : Nat.coprime (Int.natAbs a) (Int.natAbs b)
h2 : Nat.coprime (Int.natAbs c) (Int.natAbs d)
h : ↑a / ↑b = ↑c / ↑d
⊢ a = c

case right
a b c d : ℤ
hb0 : 0 < b
hd0 : 0 < d
h1 : Nat.coprime (Int.natAbs a) (Int.natAbs b)
h2 : Nat.coprime (Int.natAbs c) (Int.natAbs d)
h : ↑a / ↑b = ↑c / ↑d
⊢ b = d
a b c d : ℤ
hb0 : 0 < b
hd0 : 0 < d
h1 : Nat.coprime (Int.natAbs a) (Int.natAbs b)
h2 : Nat.coprime (Int.natAbs c) (Int.natAbs d)
h : ↑a / ↑b = ↑c / ↑d
⊢ a = c ∧ b = d
apply And.intro
no goals
case left
a b c d : ℤ
hb0 : 0 < b
hd0 : 0 < d
h1 : Nat.coprime (Int.natAbs a) (Int.natAbs b)
h2 : Nat.coprime (Int.natAbs c) (Int.natAbs d)
h : ↑a / ↑b = ↑c / ↑d
⊢ a = c
rw [← num_div_eq_of_coprime hb0 h1, h, num_div_eq_of_coprime hd0 h2]
no goals
case right
a b c d : ℤ
hb0 : 0 < b
hd0 : 0 < d
h1 : Nat.coprime (Int.natAbs a) (Int.natAbs b)
h2 : Nat.coprime (Int.natAbs c) (Int.natAbs d)
h : ↑a / ↑b = ↑c / ↑d
⊢ b = d
rw [← den_div_eq_of_coprime hb0 h1, h, den_div_eq_of_coprime hd0 h2]