Ltac geninv x :=
  let H := fresh in (generalize x; intro H; inv H).

Lemma match_env_invariant: forall f1 cenv e sp lo hi f2, match_env f1 cenv e sp lo hi -> inject_incr f1 f2 -> (forall b delta, f2 b = Some(sp, delta) -> f1 b = Some(sp, delta)) -> (forall b, Plt b lo -> f2 b = f1 b) -> match_env f2 cenv e sp lo hi.