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