End SemaxContext.
Hint Resolve @age_laterR.
Fixpoint filter_seq (k: cont) : cont :=
match k with
| Kseq s :: k1 => filter_seq k1
| _ => k
end.

Lemma strip_step:  (* This one uses equality, one in Clight_sim uses <->  *)
forall ge ve te k m st' m',
cl_step ge (State ve te (strip_skip k)) m st' m' =
cl_step ge (State ve te k) m st' m'.