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 k) m -> jsafeN OK_spec ge n ora (State ve te (Kseq Sskip :: k)) m.