Section Intuitionistic_Tarski_to_Tarski.
Context `{BTn:intuitionistic_Tarski_neutral_dimensionless}.
Definition BetT A B C := IBet A B C \/ A=B \/ B=C.
(* Lemma 4.1 page 22 *)

Lemma pasch_col_case : forall A B C P Q : ITpoint,
BetT A P C ->
BetT B Q C -> ICol A B C -> exists x : ITpoint, BetT P x B /\ BetT Q x A.