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