Instance CompSpecs : compspecs.Definition Vprog : varspecs.Definition tentry := Tstruct _entry noattr.

(* Specifications: *)
Lemma index_of_spec : forall k m, match index_of m k with | Some i => 0 <= i < Zlength m /\ fst (Znth i m (0, 0)) = k | None => ~In k (map fst m) end.