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_left2 {T}{ND: NatDed T}{IT: Indir T}:
forall A B C : T, A && B |-- C -> A && |> B |-- |>C.