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_orp_andp {A}{ND: NatDed A}:
forall (P Q R : A), andp (orp P Q) R = orp (andp P R) (andp Q R).