Section RAMIF_Q'.
Context {A : Type}.
Context {ND : NatDed A}.
Context {SL : SepLog A}.
Context {CoSL: CorableSepLog A}.

Lemma frame_pre: forall {B} g l (p g' l': B -> A) F,
(forall x: B, corable (p x)) ->
g |-- l * allp (p --> (l' -* g')) ->
g * F |-- (l * F) * allp (p --> (l' -* g')).