let int_cmp op i1 i2 =
match op with
| Lt -> F.e_icmp Formula.Clt i1 i2
| Gt -> F.e_icmp Formula.Clt i2 i1
| Le -> F.e_icmp Formula.Cleq i1 i2
| Ge -> F.e_icmp Formula.Cleq i2 i1
| Eq -> F.e_icmp Formula.Ceq i1 i2
| Ne -> F.e_icmp Formula.Cneq i1 i2
| _ -> WpLog.fatal "[int_cmp] non intger comparator"