(** Properties of values resulting from a cast *)

(* Specifications: *)
Lemma val_casted_load_result:
forall v ty chunk,
val_casted v ty -> access_mode ty = By_value chunk ->
Val.load_result chunk v = v.
Lemma val_casted_inject:
forall f v v' ty,
Val.inject f v v' -> val_casted v ty -> val_casted v' ty.
Lemma forall2_val_casted_inject:
forall f vl vl', Val.inject_list f vl vl' ->
forall tyl, list_forall2 val_casted vl tyl -> list_forall2 val_casted vl' tyl.