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

Lemma exp_right: forall {T B} (a: B -> T) g l (g': T -> B -> A) (l': B -> A),
g |-- l * allp (l' -* (fun b => g' (a b) b)) ->
g |-- l * allp (l' -* exp g').