Module PartialMap.
Export NatList.
Inductive partial_map : Type :=
| empty  : partial_map
| record : id -> nat -> partial_map -> partial_map.
Instance dec_partial_map (p q : partial_map) : Dec (p = q).
Admitted.

Theorem update_neq' :
forall (d : partial_map) (x y : id) (o: nat),
~ (x = y) -> find x (update d y o) = find x d.