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_andp2 {A}{NA: NatDed A}: forall B (p: A) (q: B -> A) , (p && exp q) = exp (fun x => p && q x).