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 lta_nbet__ncol : forall A B C X Y Z, ~ Bet X Y Z -> LtA A B C X Y Z -> ~ Col X Y Z. *)
Definition gHalfA A' O' B' A O B := exists P, HalfA P A O B /\ CongA A' O' B' A O P.

Lemma ghalfa_right_comm : forall A' O' B' A O B, gHalfA A' O' B' A O B ->
gHalfA A' O' B' B O A.