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

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).