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

Lemma simple_trans: forall {B} g m l (g' m' l': B -> A),
g |-- m * allp (m' -* g') ->
m |-- l * allp (l' -* m') ->
g |-- l * allp (l' -* g').