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).