Arguments hash : simpl never.

Lemma upd_entries_A : forall T lgk lgv entries pk pv i k lv v, Znth i entries = (pk, pv) ->
Zlength T = size -> 0 <= i < size -> value_of lv v -> (k = 0 -> v = 0) ->
(v = 0 -> forall j v' : Z, lv j = Some v' -> v' = 0) ->
map (hashtable_entry_A (upd_Znth i T (k, lv)) lgk lgv entries) (upto (Z.to_nat size)) =
upd_Znth i (map (hashtable_entry_A T lgk lgv entries) (upto (Z.to_nat size))) (k_state i lgk pk k * v_state i lgv pv lv).