Hint Resolve closed_wrtl_tc_andp closed_wrtl_tc_orp closed_wrtl_tc_bool : closed.

Lemma closed_wrtl_tc_test_eq:
forall {cs: compspecs} S e e',
expr_closed_wrt_lvars S e ->
expr_closed_wrt_lvars S e' ->
closed_wrt_lvars S
(denote_tc_assert
(tc_test_eq e e')).