rw [← Real.tan_eq_sin_div_cos]
case mk.left
pangle pmag : ℝ
hpangle1 : -(Real.pi / 2) < { angle := pangle, magnitude := pmag }.angle
hpangle2 : { angle := pangle, magnitude := pmag }.angle < Real.pi / 2
hpmag : 0 < pmag
⊢ Real.arctan (Real.sin pangle / Real.cos pangle) = pangle

case mk.left.hc
pangle pmag : ℝ
hpangle1 : -(Real.pi / 2) < { angle := pangle, magnitude := pmag }.angle
hpangle2 : { angle := pangle, magnitude := pmag }.angle < Real.pi / 2
hpmag : 0 < pmag
⊢ pmag ≠ 0
case mk.left
pangle pmag : ℝ
hpangle1 : -(Real.pi / 2) < { angle := pangle, magnitude := pmag }.angle
hpangle2 : { angle := pangle, magnitude := pmag }.angle < Real.pi / 2
hpmag : 0 < pmag
⊢ Real.arctan (Real.tan pangle) = pangle

case mk.left.hc
pangle pmag : ℝ
hpangle1 : -(Real.pi / 2) < { angle := pangle, magnitude := pmag }.angle
hpangle2 : { angle := pangle, magnitude := pmag }.angle < Real.pi / 2
hpmag : 0 < pmag
⊢ pmag ≠ 0