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 later_andp  {A}{ND: NatDed A}{IA: Indir A}:
forall P Q: A, later (P && Q) = later P && later Q.