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

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