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_Mid_tagged : forall A B C, Midpoint A B C -> Mid_tagged A B C.