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

Lemma trans: forall g m l g' m' l',
g |-- m * (m' -* g') ->
m |-- l * (l' -* m') ->
g |-- l * (l' -* g').