Invariance of read-object under enter-scope.
Theorem: read-object-of-enter-scope
(defthm read-object-of-enter-scope (implies (not (errorp (read-object objdes compst))) (equal (read-object objdes (enter-scope compst)) (read-object objdes compst))))