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_trivial {A}{NA: NatDed A}:
forall {T: Type} (any: T) (P: A), exp (fun x:T => P) = P.