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

(* Specifications: *)
Lemma cons_app: forall A (x: A) (y: list A), x::y = (x::nil)++y.
Definition true_expr : Clight.expr := Clight.Econst_int Int.one (Tint I32 Signed noattr).
(* BEGIN Lemmas duplicated from Clight_sim. v *)
Lemma dec_skip: forall s, {s=Sskip}+{s<>Sskip}.
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'.