Hint Resolve  closed_wrt_tc_test_eq  closed_wrtl_tc_test_eq : closed.

Lemma closed_wrt_tc_test_order:
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_order e e')).