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"