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 allp_congr:
forall {A: Type}  {NA: NatDed A} (B: Type) (P Q: B -> A),
(forall x:B, P x = Q x) -> (allp P = allp Q).