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

Lemma reduce: forall {B} g l p (g' l': B -> A),
corable p ->
g |-- l * (allp (p --> (l' -* g'))) ->
g |-- l * (exp (p && l') -* exp (p && g')).