let pcmp_operator op x y =
    match op with
      | Eq -> M.equal_loc_bool x y
      | Ne -> F.e_not ( M.equal_loc_bool x y)
      | Lt -> M.lt_loc_bool x y
      | Le -> M.le_loc_bool x y
      | Ge -> M.le_loc_bool y x
      | Gt -> M.lt_loc_bool y x
      | _ -> WpLog.fatal "[pcmp_operator] non comparator"