Theorems relating push-frame, pop-frame, and top-frame.
Theorem:
(defthm top-frame-of-push-frame (equal (top-frame (push-frame frame compst)) (frame-fix frame)))
Theorem:
(defthm pop-frame-of-push-frame (equal (pop-frame (push-frame frame compst)) (compustate-fix compst)))
Theorem:
(defthm push-frame-of-top-frame-and-pop-frame (implies (> (compustate-frames-number compst) 0) (equal (push-frame (top-frame compst) (pop-frame compst)) (compustate-fix compst))))