Definition denote_tc_assert' {CS: compspecs} (a: tc_assert) (rho: environ) : mpred.
pose (P := denote_tc_assert a rho).
unfold denote_tc_assert in P.
super_unfold_lift.
destruct a; apply P.
Defined.

(* Specifications: *)
Lemma denote_tc_assert'_eq{CS: compspecs}:
denote_tc_assert' = denote_tc_assert.
Lemma int_eq_true : forall x y,
true = Int.eq x y -> x = y.