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