Section Archimedes_for_angles.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.

Lemma gradaexp_destruction_aux : forall A B C P Q R,
GradA A B C P Q R ->
exists S T U, GradAExp A B C S T U /\ (Obtuse S T U \/ LeA P Q R S T U).