evalDirect ::
  (Field t, CanAddSubMulDivCNBy t Dyadic, CanDivCNBy t Integer,
  CanAddSubMulBy t c, Ring c)
  => Frac c -> t -> t
evalDirect (Frac p q _) x =
  (Cheb.evalDirect p x) /! (Cheb.evalDirect q x)
evalDirect ::
  (Field t, CanAddSubMulDivCNBy t Dyadic, CanDivCNBy t Integer,
  CanAddSubMulBy t c, Ring c)
  => Frac c -> t -> t
evalDirect (Frac p q _) x =
  (Cheb.evalDirect p x) /! (Cheb.evalDirect q x)
evalDirect (Frac p q _) x =
  (Cheb.evalDirect p x) /! (Cheb.evalDirect q x)