Section STABILITY.
Variable CS: compspecs.
Variables Delta Delta': tycontext.
Hypothesis extends: tycontext_sub Delta Delta'.

(* Specifications: *)
Lemma tc_bool_e_sub: forall b b' err rho phi,
(b = true -> b' = true) ->
denote_tc_assert (tc_bool b err) rho phi ->
denote_tc_assert (tc_bool b' err) rho phi.
Lemma tc_bool_e_i:
forall b c rho phi,
b = true ->
app_pred (denote_tc_assert (tc_bool b c) rho) phi.
Lemma tc_expr_lvalue_sub: forall rho,
typecheck_environ Delta rho ->
forall e,
tc_expr Delta e rho |-- tc_expr Delta' e rho /\
tc_lvalue Delta e rho |-- tc_lvalue Delta' e rho.
Lemma tc_expr_sub:
forall e rho, typecheck_environ Delta rho -> tc_expr Delta e rho |-- tc_expr Delta' e rho.
Lemma tc_temp_id_load_sub:
forall id t v rho,
tc_temp_id_load id t Delta v rho |--    tc_temp_id_load id t Delta' v rho.
Lemma tc_exprlist_sub:
forall e t rho, typecheck_environ Delta rho -> tc_exprlist Delta e t rho |-- tc_exprlist Delta' e t rho.