(** * SR to MPCP *)
Section SR_to_MPCP.
Variable R : SRS.
Variables x0 y0 : string.
Notation "x ≻ y" := (rew R x y) (at level 70).
Notation "x ≻* y" := (rewt R x y) (at level 70).
Notation Sigma := (x0 ++ y0 ++ sym R).
Definition dollar := fresh Sigma.
Notation "$" := dollar.
Definition hash := fresh (dollar :: Sigma).
Notation "#" := hash.

(* Specifications: *)
Lemma sep_doll : $ <> #.
Lemma doll_sig a : a el Sigma -> $ <> a.
Lemma hash_sig a : a el Sigma -> # <> a.
Definition d := [$] / ($ :: x0 ++ [#]).