Equivalent semantic definitions of
Theorem:
(defthm exec-xor-alt-def-signed-signed (equal (exec-xor rd rs1 rs2 stat feat) (b* ((rs1-operand (read-xreg-signed (ubyte5-fix rs1) stat feat)) (rs2-operand (read-xreg-signed (ubyte5-fix rs2) stat feat)) (result (logxor rs1-operand rs2-operand)) (stat (write-xreg (ubyte5-fix rd) result stat feat)) (stat (inc4-pc stat feat))) stat)))
Theorem:
(defthm exec-xor-alt-def-unsigned-signed (equal (exec-xor rd rs1 rs2 stat feat) (b* ((rs1-operand (read-xreg-unsigned (ubyte5-fix rs1) stat feat)) (rs2-operand (read-xreg-signed (ubyte5-fix rs2) stat feat)) (result (logxor rs1-operand rs2-operand)) (stat (write-xreg (ubyte5-fix rd) result stat feat)) (stat (inc4-pc stat feat))) stat)))
Theorem:
(defthm exec-xor-alt-def-signed-unsigned (equal (exec-xor rd rs1 rs2 stat feat) (b* ((rs1-operand (read-xreg-signed (ubyte5-fix rs1) stat feat)) (rs2-operand (read-xreg-unsigned (ubyte5-fix rs2) stat feat)) (result (logxor rs1-operand rs2-operand)) (stat (write-xreg (ubyte5-fix rd) result stat feat)) (stat (inc4-pc stat feat))) stat)))