(asm-output-list-replace-field-access
c$::asm-output-list original
linkage new1 new2 split-members)
→
fty::resultTheorem:
(defthm asm-output-list-replace-field-access-type-prescription (true-listp (asm-output-list-replace-field-access c$::asm-output-list original linkage new1 new2 split-members)) :rule-classes :type-prescription)
Theorem:
(defthm asm-output-list-replace-field-access-when-atom (implies (atom c$::asm-output-list) (equal (asm-output-list-replace-field-access c$::asm-output-list original linkage new1 new2 split-members) nil)))
Theorem:
(defthm asm-output-list-replace-field-access-of-cons (equal (asm-output-list-replace-field-access (cons c$::asm-output c$::asm-output-list) original linkage new1 new2 split-members) (cons (asm-output-replace-field-access c$::asm-output original linkage new1 new2 split-members) (asm-output-list-replace-field-access c$::asm-output-list original linkage new1 new2 split-members))))
Theorem:
(defthm asm-output-list-replace-field-access-of-append (equal (asm-output-list-replace-field-access (append acl2::x acl2::y) original linkage new1 new2 split-members) (append (asm-output-list-replace-field-access acl2::x original linkage new1 new2 split-members) (asm-output-list-replace-field-access acl2::y original linkage new1 new2 split-members))))
Theorem:
(defthm consp-of-asm-output-list-replace-field-access (equal (consp (asm-output-list-replace-field-access c$::asm-output-list original linkage new1 new2 split-members)) (consp c$::asm-output-list)))
Theorem:
(defthm len-of-asm-output-list-replace-field-access (equal (len (asm-output-list-replace-field-access c$::asm-output-list original linkage new1 new2 split-members)) (len c$::asm-output-list)))
Theorem:
(defthm nth-of-asm-output-list-replace-field-access (equal (nth acl2::n (asm-output-list-replace-field-access c$::asm-output-list original linkage new1 new2 split-members)) (if (< (nfix acl2::n) (len c$::asm-output-list)) (asm-output-replace-field-access (nth acl2::n c$::asm-output-list) original linkage new1 new2 split-members) nil)))
Theorem:
(defthm asm-output-list-replace-field-access-of-revappend (equal (asm-output-list-replace-field-access (revappend acl2::x acl2::y) original linkage new1 new2 split-members) (revappend (asm-output-list-replace-field-access acl2::x original linkage new1 new2 split-members) (asm-output-list-replace-field-access acl2::y original linkage new1 new2 split-members))))
Theorem:
(defthm asm-output-list-replace-field-access-of-reverse (equal (asm-output-list-replace-field-access (reverse c$::asm-output-list) original linkage new1 new2 split-members) (reverse (asm-output-list-replace-field-access c$::asm-output-list original linkage new1 new2 split-members))))