(** ** Properties of [agree_locs] *)
(** Preservation under assignment of machine register. *)

Lemma agree_locs_set_res:
forall ls0 res v ls,
agree_locs ls ls0 ->
(forall r, In r (params_of_builtin_res res) -> mreg_within_bounds b r) ->
agree_locs (Locmap.setres res v ls) ls0.