Section HilbertContext_2D.
Context `{H2D : Hilbert_neutral_2D}.

Lemma TS_upper_dim_bis : forall A B C P Q I,
BetH P I Q -> BetH I B A -> P <> Q -> A <> B -> A <> C -> B <> C ->
A <> P -> A <> Q -> B <> P -> B <> Q -> C <> P -> C <> Q ->
CongH A P A Q -> CongH B P B Q -> CongH C P C Q ->
(Bet A B C \/ Bet B C A \/ Bet C A B).