Hint Resolve alloc_reg_valid: rtlg.

(* Specifications: *)
Lemma alloc_reg_fresh_or_in_map:
forall map a s r s' i,
map_valid map s ->
alloc_reg map a s = OK r s' i ->
reg_in_map map r \/ reg_fresh r s.
Lemma alloc_regs_valid:
forall al s1 s2 map rl i,
map_valid map s1 ->
alloc_regs map al s1 = OK rl s2 i ->
regs_valid rl s2.