(** * Properties of operations over types *)
Remark transl_params_types:
forall params,
map typ_of_type (map snd params) = typlist_of_typelist (type_of_params params).

Lemma transl_alignof_blockcopy:
forall (cunit prog: Clight.program) t sz,
linkorder cunit prog ->
sizeof cunit.(prog_comp_env) t = OK sz ->
sz = Ctypes.sizeof prog.(prog_comp_env) t /\
alignof_blockcopy cunit.(prog_comp_env) t = alignof_blockcopy prog.(prog_comp_env) t.