Definition inject_memval (j:meminj) (v:memval): memval :=
match v with
Pointer b ofs n =>
match j b with
None => Undef
| Some(b',delta) => Pointer b' (Int.add ofs (Int.repr delta)) n
end
| _ => v
end.

Lemma inject_memval_memval_inject1: forall j v
(H: forall b ofs n, v = Pointer b ofs n ->
exists p, j b = Some p),
memval_inject j v (inject_memval j v).