Definition true_expr : Clight.expr := Clight.Econst_int Int.one (Tint I32 Signed noattr).

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