Rules about realfix.
Theorem: realfix-when-real/rationalp
(defthm realfix-when-real/rationalp (implies (real/rationalp x) (equal (realfix x) x)))
Theorem: real/rationalp-of-realfix
(defthm real/rationalp-of-realfix (real/rationalp (realfix x)))