Inductive ev_plus ge: state -> mem -> _ -> state -> mem -> Prop :=
  | ev_plus_left: forall s1 m1 ev1 s2 m2 ev2 s3 m3,
      ev_step (CLC_evsem ge) s1 m1 ev1 s2 m2 -> ev_star ge s2 m2 ev2 s3 m3 ->
      ev_plus ge s1 m1 (ev1 ++ ev2) s3 m3.Inductive ev_plus ge: state -> mem -> _ -> state -> mem -> Prop :=
  | ev_plus_left: forall s1 m1 ev1 s2 m2 ev2 s3 m3,
      ev_step (CLC_evsem ge) s1 m1 ev1 s2 m2 -> ev_star ge s2 m2 ev2 s3 m3 ->
      ev_plus ge s1 m1 (ev1 ++ ev2) s3 m3.

Lemma exec_skipsT: forall ge {s0 k s k'} (H1: match_cont (Kseq s0 :: k) (strip_skip' (CC.Kseq s k'))) f ve te m mm, match s0 with Sskip => False | Scontinue => False | Sloop _ _ => False | Sifthenelse _ _ _ => False | Sreturn _ => False | _ => True end -> exists k2 mm', strip_skip' (CC.Kseq s k') = CC.Kseq s0 k2 /\ ev_star ge (CC.State f s k' ve te mm) m nil (CC.State f s0 k2 ve te mm') m.