Section CENV_SUB.
Context {CS CS': compspecs}
(CSUB: cenv_sub (@cenv_cs CS) (@cenv_cs CS')).
Definition is_tc_FF (a: tc_assert) :=
match a with tc_FF _ => True | _ => False end.
Definition dec_tc_FF (a: tc_assert) : {is_tc_FF a}+{~is_tc_FF a}.

Lemma tc_samebase_cenv_sub a1 a2 rho w:
app_pred (@denote_tc_assert CS (@tc_samebase a1 a2) rho) w ->
app_pred (@denote_tc_assert CS' (@tc_samebase a1 a2) rho) w.