Control the use of serialize in print-object$.
Theorem:
(defthm state-p1-of-set-serialize-character (implies (state-p1 state) (state-p1 (set-serialize-character c state))))
Theorem:
(defthm open-output-channel-p1-of-set-serialize-character (implies (and (state-p1 state) (open-output-channel-p1 channel :object state)) (open-output-channel-p1 channel :object (set-serialize-character c state))))
Theorem:
(defthm get-serialize-character-of-set-serialize-character (equal (get-serialize-character (set-serialize-character c state)) (cond ((not c) nil) ((serialize-characterp c) c) (t (get-serialize-character state)))))
Theorem:
(defthm boundp-global1-of-set-serialize-character (iff (boundp-global1 'serialize-character (set-serialize-character c state)) (cond ((not c) t) ((serialize-characterp c) t) (t (boundp-global1 'serialize-character state)))))