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.
Definition Per_tagged A B C := Per A B C.

Lemma Per_tagged_Per : forall A B C, Per_tagged A B C -> Per A B C.