let real_cmp op r1 r2 =
    match op with
      | Lt -> F.e_rcmp Formula.Clt r1 r2
      | Gt -> F.e_rcmp Formula.Clt r2 r1
      | Le -> F.e_rcmp Formula.Cleq r1 r2
      | Ge -> F.e_rcmp Formula.Cleq r2 r1
      | Eq -> F.e_rcmp Formula.Ceq r1 r2
      | Ne -> F.e_rcmp Formula.Cneq r1 r2
      | _ ->  WpLog.fatal "[real_cmp] non real comparator"