Section CoincR_for_cop.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.
Definition ss_ok_for_cop ss interp :=
@ss_ok Tarski_is_a_Arity_for_cop
Tarski_is_a_Coinc_predicates_for_cop ss interp.

Lemma ss_ok_empty_for_cop : forall interp, ss_ok_for_cop SS.empty interp.
Definition st_ok_for_cop st interp :=
@st_ok Tarski_is_a_Arity_for_cop
Tarski_is_a_Coinc_predicates_for_cop st interp.