Angles and orthogonal projection.

This file proves lemmas relating to angles involving orthogonal projections.

@[simp]

theorem EuclideanGeometry.angle_self_orthogonalProjection {V : Type u_1} {P : Type u_2} [NormedAddCommGroup V] [InnerProductSpace ℝ V] [MetricSpace P] [NormedAddTorsor V P] (p : P) {p' : P} {s : AffineSubspace ℝ P} [s.direction.HasOrthogonalProjection] (h : p' ∈ s) : angle p (↑((orthogonalProjection s) p)) p' = Real.pi / 2

@[simp]

theorem EuclideanGeometry.angle_orthogonalProjection_self {V : Type u_1} {P : Type u_2} [NormedAddCommGroup V] [InnerProductSpace ℝ V] [MetricSpace P] [NormedAddTorsor V P] (p : P) {p' : P} {s : AffineSubspace ℝ P} [s.direction.HasOrthogonalProjection] (h : p' ∈ s) : angle p' (↑((orthogonalProjection s) p)) p = Real.pi / 2