Proof that the
Theorem:
(defthm statement-noloopinitp-of-statement-dead (implies (statement-noloopinitp stmt) (statement-noloopinitp (statement-dead stmt))))
Theorem:
(defthm statement-list-noloopinitp-of-statement-list-dead (implies (statement-list-noloopinitp stmts) (statement-list-noloopinitp (statement-list-dead stmts))))
Theorem:
(defthm block-noloopinitp-of-block-dead (implies (block-noloopinitp block) (block-noloopinitp (block-dead block))))
Theorem:
(defthm block-option-noloopinitp-of-block-option-dead (implies (block-option-noloopinitp block?) (block-option-noloopinitp (block-option-dead block?))))
Theorem:
(defthm swcase-noloopinitp-of-swcase-dead (implies (swcase-noloopinitp case) (swcase-noloopinitp (swcase-dead case))))
Theorem:
(defthm swcase-list-noloopinitp-of-swcase-list-dead (implies (swcase-list-noloopinitp cases) (swcase-list-noloopinitp (swcase-list-dead cases))))
Theorem:
(defthm fundef-noloopinitp-of-fundef-dead (implies (fundef-noloopinitp fundef) (fundef-noloopinitp (fundef-dead fundef))))