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 segment_construction :
forall A B C D : ITpoint,
exists E : ITpoint, BetT A B E /\ ICong B E C D.