Instance EqDec_statement: EqDec statement := eq_dec_statement.
Instance EqDec_external_function: EqDec external_function := eq_dec_external_function.

Lemma bupd_denote_tc: forall {cs: compspecs} P t rho a,
denote_tc_assert t rho a -> bupd P a -> bupd (denote_tc_assert t rho && P) a.