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