Theorems about reads of registers over writes of memory.
These theorems are all enabled by default because they always clearly simplify the term.
Theorem:
(defthm read-xreg-unsigned-of-write-mem8 (equal (read-xreg-unsigned reg (write-mem8 addr val stat feat) feat) (read-xreg-unsigned reg stat feat)))
Theorem:
(defthm read-xreg-signed-of-write-mem8 (equal (read-xreg-signed reg (write-mem8 addr val stat feat) feat) (read-xreg-signed reg stat feat)))
Theorem:
(defthm read-xreg-unsigned32-of-write-mem8 (equal (read-xreg-unsigned32 reg (write-mem8 addr val stat feat) feat) (read-xreg-unsigned32 reg stat feat)))
Theorem:
(defthm read-xreg-signed32-of-write-mem8 (equal (read-xreg-signed32 reg (write-mem8 addr val stat feat) feat) (read-xreg-signed32 reg stat feat)))
Theorem:
(defthm read-xreg-unsigned-of-write-mem16 (equal (read-xreg-unsigned reg (write-mem16 addr val stat feat) feat) (read-xreg-unsigned reg stat feat)))
Theorem:
(defthm read-xreg-signed-of-write-mem16 (equal (read-xreg-signed reg (write-mem16 addr val stat feat) feat) (read-xreg-signed reg stat feat)))
Theorem:
(defthm read-xreg-unsigned32-of-write-mem16 (equal (read-xreg-unsigned32 reg (write-mem16 addr val stat feat) feat) (read-xreg-unsigned32 reg stat feat)))
Theorem:
(defthm read-xreg-signed32-of-write-mem16 (equal (read-xreg-signed32 reg (write-mem16 addr val stat feat) feat) (read-xreg-signed32 reg stat feat)))
Theorem:
(defthm read-xreg-unsigned-of-write-mem32 (equal (read-xreg-unsigned reg (write-mem32 addr val stat feat) feat) (read-xreg-unsigned reg stat feat)))
Theorem:
(defthm read-xreg-signed-of-write-mem32 (equal (read-xreg-signed reg (write-mem32 addr val stat feat) feat) (read-xreg-signed reg stat feat)))
Theorem:
(defthm read-xreg-unsigned32-of-write-mem32 (equal (read-xreg-unsigned32 reg (write-mem32 addr val stat feat) feat) (read-xreg-unsigned32 reg stat feat)))
Theorem:
(defthm read-xreg-signed32-of-write-mem32 (equal (read-xreg-signed32 reg (write-mem32 addr val stat feat) feat) (read-xreg-signed32 reg stat feat)))
Theorem:
(defthm read-xreg-unsigned-of-write-mem64 (equal (read-xreg-unsigned reg (write-mem64 addr val stat feat) feat) (read-xreg-unsigned reg stat feat)))
Theorem:
(defthm read-xreg-signed-of-write-mem64 (equal (read-xreg-signed reg (write-mem64 addr val stat feat) feat) (read-xreg-signed reg stat feat)))
Theorem:
(defthm read-xreg-unsigned32-of-write-mem64 (equal (read-xreg-unsigned32 reg (write-mem64 addr val stat feat) feat) (read-xreg-unsigned32 reg stat feat)))
Theorem:
(defthm read-xreg-signed32-of-write-mem64 (equal (read-xreg-signed32 reg (write-mem64 addr val stat feat) feat) (read-xreg-signed32 reg stat feat)))