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