Corollary int_op_value_of_hist : forall h, Forall int_op (map snd h) -> tc_val tint (value_of_hist h).

Lemma make_map_length : forall h (Hnz : Forall (fun x => value_of_hist (fst x) <> vint 0) h) (Hint : Forall (fun x => Forall int_op (map snd (fst x))) h), Zlength (make_map h) = Zlength h.