Definition PMap_eq {A} (m m' : PMap.t (Z -> A)) := forall b' ofs', m !! b' ofs' = m' !! b' ofs'.

Lemma sorted_find A a x l l'
(sorted : Sorted (AMap.Raw.PX.ltk (elt:=A)) ((a, x) :: l))
(sorted' : Sorted (AMap.Raw.PX.ltk (elt:=A)) ((a, x) :: l')) :
(forall y : AMap.key,
AMap.Raw.find (elt:=A) y ((a, x) :: l) =
AMap.Raw.find (elt:=A) y ((a, x) :: l')) ->
forall y : AMap.key,
AMap.Raw.find (elt:=A) y l =
AMap.Raw.find (elt:=A) y l'.