(*************)
(* Locations *)
(*************)

Inductive ptr := ptr_nat of nat.(*************)
(* Locations *)
(*************)

Inductive ptr := ptr_nat of nat.Definition null := ptr_nat 0.Definition nat_ptr (x : ptr) := let: ptr_nat y := x in y.

(* Specifications: *)
Lemma eq_ptrP : Equality.axiom eq_ptr.