Theorems relating enter-scope and exit-scope.
Theorem: exit-scope-of-enter-scope
(defthm exit-scope-of-enter-scope (implies (> (compustate-frames-number compst) 0) (equal (exit-scope (enter-scope compst)) (compustate-fix compst))))