(** ** Define [includes] *)

Definition includes (x y:RegExp) : Prop := (x || y) =R= y.Notation "x <= y" := (includes x y) (at level 70).Definition prop_eq (p q:Prop) : Prop := (p <-> q).

Lemma includes_right_Cat_monotone : forall x y z, x <= y -> (x ++ z) <= (y ++ z).