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.

Lemma Perp_tagged_Perp : forall A B C D, Perp_tagged A B C D -> Perp A B C D.