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 distrib_andp_orp: forall {A : Type} {ND : NatDed A} (P Q R : A),
(P && Q) || R = (P || R) && (Q || R).