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 exp_congr:
forall A NA T X Y,
(forall v, X v = Y v) -> @exp A NA T X = @exp A NA T Y.