Section TCP_tarski.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.

Lemma impossible_case_4_1 :
forall A B C D T x y,
A <> B ->
A <> C ->
A <> D ->
A <> T ->
B <> C ->
B <> D ->
B <> T ->
C <> D ->
C <> T ->
D <> T ->
x <> y ->
~ Col A B C ->
Col A C y ->
Bet A D T ->
~ Col B C T ->
Bet B D C ->
Bet A x B \/ Bet A B x ->
Bet T y x ->
False.