let boolean_of_integer z = F.e_icmp Formula.Cneq z (F.e_int 0)