Instance andp_imp_CCC: forall A {ND : NatDed A}, CCCviaNatDed A andp imp.
Instance sepcon_wand_CCC: forall A {ND : NatDed A} {SL: SepLog A}, CCCviaNatDed A sepcon wand.

Lemma exp_derives {A}{NA: NatDed A}{B}:
forall F G: B -> A, (forall x, F x |-- G x) -> exp F |-- exp G.