Fixpoint einit_regs (rl: list reg) : aenv :=
match rl with
| r1 :: rs => AE.set r1 (Ifptr Nonstack) (einit_regs rs)
| nil => AE.top
end.

Lemma ematch_init:
forall rl vl,
(forall v, In v vl -> vmatch bc v (Ifptr Nonstack)) ->
ematch (init_regs vl rl) (einit_regs rl).