(** ** [Star] is morphism *)

(* Specifications: *)
Lemma forallb_matches_morphism_s : forall ss r r', r =R= r' ->
forallb (fun s0 => r ~= s0) ss = forallb (fun s0 => r' ~= s0) ss.
Lemma Star_morphism_s : forall s r r', r =R= r' -> (Star r) ~= s = (Star r') ~= s.
Add Parametric Morphism : Star with
signature re_eq ==> re_eq as Star_morphism.