(** The assignment of function arguments to local variables (on the Cminor side) and pseudo-registers (on the RTL side) preserves matching between environments. *)

Lemma match_set_params_init_regs:
forall j il rl s1 map2 s2 vl tvl i,
add_vars init_mapping il s1 = OK (rl, map2) s2 i ->
val_list_inject j vl tvl ->
match_env j map2 (set_params vl il) nil (init_regs tvl rl)
/\ (forall r, reg_fresh r s2 -> (init_regs tvl rl)#r = Vundef).