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

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