Section SOUNDNESS_CONSTRUCTORS.
Variable ce: composite_env.
Variable e: typenv.
Variable rt: type.
Hint Resolve check_rval_wt check_lval_wt: ty.
Hint Extern 1 (wt_expr _ _ _) => (unfold wt_expr; simpl): ty.
End SOUNDNESS_CONSTRUCTORS.
(** * Subject reduction *)
(** We show that reductions preserve well-typedness *)

Lemma wt_val_casted:
forall v ty, val_casted v ty -> wt_val v ty.