Require Export GeoCoq.Tarski_dev.Annexes.suma.
Section HalfAngle.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.
Definition HalfA P A O B := ~ Bet A O B /\ InAngle P A O B /\ CongA A O P B O P.

Lemma halfa__ts : forall P A O B, ~ Col A O B -> HalfA P A O B -> TS O P A B.