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

Lemma safeN_strip {Espec: OracleKind}: forall ge n ora ve te k m, jsafeN (@OK_spec Espec) ge n ora (State ve te (strip_skip k)) m = jsafeN (@OK_spec Espec) ge n ora (State ve te k) m.