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 emp_sepcon {A}{NA: NatDed A}{SA: SepLog A}{CA: ClassicalSep A} : forall (P:A), emp * P = P.