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

Lemma trans: forall {B BG BL} g m l p pG pL g' mG' mL' l' (fG: B -> BG) (fL: B -> BL),
corable p ->
corable pL ->
corable pG ->
g |-- m * allp (pG --> (mG' -* g')) ->
m |-- l * allp (pL --> (l' -* mL')) ->
(forall b, p b |-- pL (fL b)) ->
(forall b, p b && mL' (fL b) |-- pG (fG b) && mG' (fG b)) ->
g |-- l * allp (p --> (Basics.compose l' fL -* Basics.compose g' fG)).