Hint Resolve closed_wrtl_tc_andp closed_wrtl_tc_orp closed_wrtl_tc_bool : closed.

Lemma closed_wrt_tc_test_eq:
forall {cs: compspecs} S e e',
expr_closed_wrt_vars S e ->
expr_closed_wrt_vars S e' ->
closed_wrt_vars S
(denote_tc_assert
(tc_test_eq e e')).