Section Tagged_predicates.
Context `{Tn:Tarski_neutral_dimensionless}.
Definition Diff_tagged (A B: Tpoint) := A <> B.
Definition Cong_tagged A B C D := Cong A B C D.
Definition Bet_tagged A B C := Bet A B C.
Definition Col_tagged A B C := Col A B C.
Definition NCol_tagged A B C := ~ Col A B C.
Definition Mid_tagged A B C := Midpoint A B C.

Lemma Mid_tagged_Mid : forall A B C, Mid_tagged A B C -> Midpoint A B C.