let icmp_operator iota op x y =
match op with
| Eq -> A.i_cmp iota Formula.Ceq x y
| Ne -> A.i_cmp iota Formula.Cneq x y
| Lt -> A.i_cmp iota Formula.Clt x y
| Le -> A.i_cmp iota Formula.Cleq x y
| Ge -> A.i_cmp iota Formula.Cleq y x
| Gt -> A.i_cmp iota Formula.Clt y x
| _ -> assert false