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.
Definition Perp_in_tagged X A B C D := Perp_at X A B C D.
Definition Perp_tagged A B C D := Perp A B C D.
Definition Par_strict_tagged A B C D := Par_strict A B C D.

Lemma Par_strict_tagged_Par_strict : forall A B C D, Par_strict_tagged A B C D -> Par_strict A B C D.