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 imp_derives {A} {NA: NatDed A}:
forall P P' Q Q' : A,
P' |-- P ->
Q |-- Q' ->
P --> Q |-- P' --> Q'.