Hint Resolve alloc_regs_valid: rtlg.

(* Specifications: *)
Lemma alloc_regs_fresh_or_in_map:
forall map al s rl s' i,
map_valid map s ->
alloc_regs map al s = OK rl s' i ->
forall r, In r rl -> reg_in_map map r \/ reg_fresh r s.
Lemma alloc_optreg_valid:
forall dest s1 s2 map r i,
map_valid map s1 ->
alloc_optreg map dest s1 = OK r s2 i -> reg_valid r s2.