Arguments hash : simpl never.

Corollary entries_lookup : forall k i i1 keys lg T entries (Hk : k <> 0) (Hi : 0 <= i < size)
(Hi1 : (i + hash k) mod size = i1 mod size) (HT : Zlength T = size) (Hlg : Zlength lg = size)
(Hkeys: Zlength keys = size)
(Hfail : Forall (fun z => z <> 0 /\ z <> k) (sublist 0 i (rebase keys (hash k))))
(Hhit : fst (Znth (i1 mod size) T) = k \/ fst (Znth (i1 mod size) T) = 0),
fold_right sepcon emp (upd_Znth (i1 mod size) (map (hashtable_entry T lg entries) (upto (Z.to_nat size))) emp) *
fold_right sepcon emp (map (fun i => ghost_snap (Znth ((i + hash k) mod size) keys)
(Znth ((i + hash k) mod size) lg)) (upto (Z.to_nat i)))
|-- !! (lookup T k = Some (i1 mod size)).