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

Lemma step_continue_strip:
forall f k ve te m,
star (CC.State f Scontinue k ve te m)
(CC.State f Scontinue (strip_skip' k) ve te m).