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_sepcon_andp {A}{ND: NatDed A}{SL: SepLog A}:
forall P Q R, sepcon P (andp Q R) |-- andp (sepcon P Q) (sepcon P R).