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

Lemma split: forall {B} g1 g2 l1 l2 (p g1' g2' l1' l2': B -> A),
(forall x: B, corable (p x)) ->
g1 |-- l1 * allp (p --> (l1' -* g1')) ->
g2 |-- l2 * allp (p --> (l2' -* g2')) ->
g1 * g2 |-- (l1 * l2) * allp (p --> (l1' * l2' -* g1' * g2')).