English
If ∠ p1 p2 p3 = π/2, then ∠ p2 p3 p1 = arccos(dist(p3,p2) / dist(p1,p3)).
Русский
Если ∠ p1 p2 p3 = π/2, то ∠ p2 p3 p1 = arccos(dist(p3,p2) / dist(p1,p3)).
LaTeX
$$$ \angle p_2 p_3 p_1 = \arccos\left( \dfrac{\operatorname{dist}(p_3,p_2)}{\operatorname{dist}(p_1,p_3)} \right) $$$
Lean4
/-- An angle in a right-angled triangle expressed using `arccos`. -/
theorem angle_eq_arccos_of_angle_eq_pi_div_two {p₁ p₂ p₃ : P} (h : ∠ p₁ p₂ p₃ = π / 2) :
∠ p₂ p₃ p₁ = Real.arccos (dist p₃ p₂ / dist p₁ p₃) :=
by
rw [angle, ← inner_eq_zero_iff_angle_eq_pi_div_two, real_inner_comm, ← neg_eq_zero, ← inner_neg_left,
neg_vsub_eq_vsub_rev] at h
rw [angle, dist_eq_norm_vsub' V p₃ p₂, dist_eq_norm_vsub V p₁ p₃, ← vsub_add_vsub_cancel p₁ p₂ p₃, add_comm,
angle_add_eq_arccos_of_inner_eq_zero h]