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

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