End NESTED_RAMIF.

(* Specifications: *)
Lemma semax_extract_later_prop' {cs: compspecs}:
forall {Espec: OracleKind},
forall (Delta : tycontext) (PP : Prop) P Q R c post,
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R)) |-- !!PP ->
(PP -> semax Delta (|>PROPx P (LOCALx Q (SEPx R))) c post) ->
semax Delta (|>PROPx P (LOCALx Q (SEPx R))) c post.
Lemma insert_corable_sep: forall R1 P Q R,
corable R1 ->
`R1 && PROPx P (LOCALx Q (SEPx R)) = PROPx P (LOCALx Q (SEPx (R1 && emp :: R))).