Section WT_CONTEXT.
Variable cenv: composite_env.
Variable tenv: typenv.
Variable a a': expr.
Hypothesis SAMETY: typeof a' = typeof a.

Lemma wt_subexpr:
forall from to C,
context from to C ->
wt_expr_kind cenv tenv to (C a) ->
wt_expr_kind cenv tenv from a
with wt_subexprlist:
forall from C,
contextlist from C ->
wt_exprlist cenv tenv (C a) ->
wt_expr_kind cenv tenv from a.