Section extensions.

(* Specifications: *)
Lemma age1_resource_decay:
forall jm jm', age jm jm' -> resource_decay (nextblock (m_dry jm)) (m_phi jm) (m_phi jm').
Lemma safe_loop_skip:
forall {Espec: OracleKind}
ge ora ve te k m,
jsafeN (@OK_spec Espec) ge (level m) ora
(State ve te (Kseq (Sloop Clight.Sskip Clight.Sskip) :: k)) m.
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.
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.
Lemma safe_step_forward {Espec: OracleKind}:
forall psi n ora st m,
cl_at_external st = None ->
jsafeN (@OK_spec Espec) psi (S n) ora st m ->
exists st', exists m',
jstep (cl_core_sem psi) st m st' m' /\ jm_bupd ora (jsafeN (@OK_spec Espec) psi n ora  st') m'.
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.