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