Definition full_hist h v := exists l, hist_list h l /\ apply_hist (vint 0) l = Some (vint v).
Definition full_hist' h v := exists l, hist_list' h l /\ apply_hist (vint 0) l = Some v.

Corollary full_hist_nil' : forall n l (Hfull : Forall2 full_hist' (repeat [] n) (map (fun x => vint x) l))
(Hrep : Forall repable_signed l), l = repeat 0 n.