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 {CS: ClassicalSep A}
{B C: Type} (f: B->C) p l m g1 g2,
g2 = g1 oo f ->
p |-- allp (l -* m oo f) ->
p * allp (m -* g1) |-- allp (l -* g2).