Inductive plus: state -> state -> Prop :=
| plus_left: forall s1 s2 s3,
CCstep s1 s2 -> star s2 s3 -> plus s1 s3.

Lemma star_plus_trans: forall {s1 s2 s3},
star s1 s2 -> plus s2 s3 -> plus s1 s3.