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

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