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

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