Fixpoint eforget (rl: list reg) (ae: aenv) {struct rl} : aenv :=
  match rl with
  | nil => ae
  | r1 :: rs => eforget rs (AE.set r1 Vtop ae)
  end.

(* Specifications: *)
Lemma eforget_ge: forall rl ae, AE.ge (eforget rl ae) ae.
Lemma ematch_forget: forall e rl ae, ematch e ae -> ematch e (eforget rl ae).
Lemma ematch_incr: forall bc bc' e ae, ematch bc e ae -> bc_incr bc bc' -> ematch bc' e ae.