Definition padd (p: aptr) (n: ptrofs) : aptr :=
match p with
| Gl id ofs => Gl id (Ptrofs.add ofs n)
| Stk ofs => Stk (Ptrofs.add ofs n)
| _ => p
end.

Lemma padd_sound:
forall b ofs p delta,
pmatch b ofs p ->
pmatch b (Ptrofs.add ofs delta) (padd p delta).