End RAMIF_PLAIN.
End RAMIF_PLAIN.
Module RAMIF_Q.
Section RAMIF_Q.
Context {A : Type}.
Context {ND : NatDed A}.
Context {SL : SepLog A}.

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