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

Lemma safe_seq_skip' {Espec: OracleKind} ge n ora ve te k m : jsafeN OK_spec ge n ora (State ve te (Kseq Sskip :: k)) m -> jsafeN OK_spec ge n ora (State ve te k) m.