Update the |EXLD|::|NAME| field of a elf32_sym bit structure.
(!elf32_sym->name name x) → new-x
Function:
(defun !elf32_sym->name (name x) (declare (xargs :guard (and (elf_bits32-p name) (elf32_sym-p x)))) (mbe :logic (b* ((name (mbe :logic (elf_bits32-fix name) :exec name)) (x (elf32_sym-fix x))) (part-install name x :width 32 :low 0)) :exec (the (unsigned-byte 128) (logior (the (unsigned-byte 128) (logand (the (unsigned-byte 128) x) (the (signed-byte 33) -4294967296))) (the (unsigned-byte 32) name)))))
Theorem:
(defthm elf32_sym-p-of-!elf32_sym->name (b* ((new-x (!elf32_sym->name name x))) (elf32_sym-p new-x)) :rule-classes :rewrite)
Theorem:
(defthm !elf32_sym->name-of-elf_bits32-fix-name (equal (!elf32_sym->name (elf_bits32-fix name) x) (!elf32_sym->name name x)))
Theorem:
(defthm !elf32_sym->name-elf_bits32-equiv-congruence-on-name (implies (elf_bits32-equiv name name-equiv) (equal (!elf32_sym->name name x) (!elf32_sym->name name-equiv x))) :rule-classes :congruence)
Theorem:
(defthm !elf32_sym->name-of-elf32_sym-fix-x (equal (!elf32_sym->name name (elf32_sym-fix x)) (!elf32_sym->name name x)))
Theorem:
(defthm !elf32_sym->name-elf32_sym-equiv-congruence-on-x (implies (elf32_sym-equiv x x-equiv) (equal (!elf32_sym->name name x) (!elf32_sym->name name x-equiv))) :rule-classes :congruence)
Theorem:
(defthm !elf32_sym->name-is-elf32_sym (equal (!elf32_sym->name name x) (change-elf32_sym x :name name)))
Theorem:
(defthm elf32_sym->name-of-!elf32_sym->name (b* ((?new-x (!elf32_sym->name name x))) (equal (elf32_sym->name new-x) (elf_bits32-fix name))))
Theorem:
(defthm !elf32_sym->name-equiv-under-mask (b* ((?new-x (!elf32_sym->name name x))) (elf32_sym-equiv-under-mask new-x x -4294967296)))