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_sepcon2 {A}{NA: NatDed A}{SA: SepLog A}:
forall T (P: A) (Q: T -> A),  P * exp Q = exp (fun x => P * Q x).