let pint_cmp op i1 i2 =
    match op with
      | Lt -> F.p_icmp Formula.Clt i1 i2
      | Gt -> F.p_icmp Formula.Clt i2 i1
      | Le -> F.p_icmp Formula.Cleq i1 i2
      | Ge -> F.p_icmp Formula.Cleq i2 i1
      | Eq -> F.p_icmp Formula.Ceq i1 i2
      | Ne -> F.p_icmp Formula.Cneq i1 i2
      | _ ->  WpLog.fatal "[pint_cmp] non integer relation"