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 TT_prop_right {A}{ND: NatDed A}: forall P: Prop, P -> @derives A ND TT (prop P).