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

Lemma exp_right: forall {T} (a: T) g l g' l',
g |-- l * (l' -* g' a) ->
g |-- l * (l' -* exp g').