Section TCP_tarski.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.
(* Lemma triangle_circumscription_aux : forall A B C P, Cong A P B P -> Cong A P C P -> exists CC, Cong A CC B CC /\ Cong A CC C CC /\ Coplanar A B C CC. *)

Lemma triangle_circumscription_implies_tarski_s_euclid_aux1 :
forall A B C D T X Y Z M1 Z1,
triangle_circumscription_principle ->
B <> D ->
C <> D ->
D <> T ->
T <> X ->
~ Col A B C ->
Col A B M1 ->
Bet A D T ->
~ Col B C T ->
Bet B D C ->
Col T Y Z ->
Bet Y T X ->
Bet Y M1 Z1 ->
Cong Y T T X ->
Cong Y M1 M1 Z1 ->
Perp B C T Z ->
Perp A B Y Z1 ->
exists x, Col A B x /\ Par_strict B C x T /\ Cong X x Y x.