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).