Rules about fix.
Theorem: fix-when-acl2-numberp
(defthm fix-when-acl2-numberp (implies (acl2-numberp x) (equal (fix x) x)))
Theorem: acl2-numberp-of-fix
(defthm acl2-numberp-of-fix (acl2-numberp (fix x)))