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

Lemma make_map_app : forall h1 h2 (Hnz : Forall (fun x => value_of_hist (fst x) <> vint 0) h1) (Hint : Forall (fun x => Forall int_op (map snd (fst x))) h1), make_map (h1 ++ h2) = make_map h1 ++ make_map h2.