(* Copyright 2006, 2008 Andrew W. Appel, Robert Dockins and Xavier Leroy * This file is part of the List-machine Benchmark. * The List-machine Benchmark is licensed under GPLv3; see LICENSE. *)
(*** Library of finite maps indexed by positive binary integers ***)
Require Export ZArith.

(* Specifications: *)
Lemma peq: forall (n1 n2: positive), {n1=n2}+{n1<>n2}.
Lemma get_set_same:
forall (n: positive) (m: map) (x: A),
get (set m n x) n = Some x.
Lemma peq: forall (n1 n2: positive), {n1=n2}+{n1<>n2}.
Lemma get_set_same:
forall (n: positive) (m: map) (x: A),
get (set m n x) n = Some x.
Lemma peq: forall (n1 n2: positive), {n1=n2}+{n1<>n2}.
Lemma get_set_same:
forall (n: positive) (m: map) (x: A),
get (set m n x) n = Some x.