let
int_of_term env t =
(* if Term.type_of t == Smt.Type.type_int then *)
HT
.find env.id_terms t