let prop_rcmp op x y =
match op with
| Eq -> F.p_rcmp Formula.Ceq x y
| Ne -> F.p_rcmp Formula.Cneq x y
| Lt -> F.p_rcmp Formula.Clt x y
| Le -> F.p_rcmp Formula.Cleq x y
| Ge -> F.p_rcmp Formula.Cleq y x
| Gt -> F.p_rcmp Formula.Clt y x
| _ -> assert false