End RAMIF_PLAIN.
End RAMIF_PLAIN.
Module RAMIF_Q.
Section RAMIF_Q.
Context {A : Type}.
Context {ND : NatDed A}.
Context {SL : SepLog A}.

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