Semantics of the non-shift instructions with the
Function:
(defun exec-op-imm (funct rd rs1 imm stat feat) (declare (xargs :guard (and (op-imm-funct-p funct) (ubyte5p rd) (ubyte5p rs1) (ubyte12p imm) (statp stat) (featp feat)))) (declare (xargs :guard (stat-validp stat feat))) (let ((__function__ 'exec-op-imm)) (declare (ignorable __function__)) (op-imm-funct-case funct :addi (exec-addi rd rs1 imm stat feat) :slti (exec-slti rd rs1 imm stat feat) :sltiu (exec-sltiu rd rs1 imm stat feat) :andi (exec-andi rd rs1 imm stat feat) :ori (exec-ori rd rs1 imm stat feat) :xori (exec-xori rd rs1 imm stat feat))))
Theorem:
(defthm statp-of-exec-op-imm (b* ((new-stat (exec-op-imm funct rd rs1 imm stat feat))) (statp new-stat)) :rule-classes :rewrite)
Theorem:
(defthm exec-op-imm-of-op-imm-funct-fix-funct (equal (exec-op-imm (op-imm-funct-fix funct) rd rs1 imm stat feat) (exec-op-imm funct rd rs1 imm stat feat)))
Theorem:
(defthm exec-op-imm-op-imm-funct-equiv-congruence-on-funct (implies (op-imm-funct-equiv funct funct-equiv) (equal (exec-op-imm funct rd rs1 imm stat feat) (exec-op-imm funct-equiv rd rs1 imm stat feat))) :rule-classes :congruence)
Theorem:
(defthm exec-op-imm-of-ubyte5-fix-rd (equal (exec-op-imm funct (ubyte5-fix rd) rs1 imm stat feat) (exec-op-imm funct rd rs1 imm stat feat)))
Theorem:
(defthm exec-op-imm-ubyte5-equiv-congruence-on-rd (implies (ubyte5-equiv rd rd-equiv) (equal (exec-op-imm funct rd rs1 imm stat feat) (exec-op-imm funct rd-equiv rs1 imm stat feat))) :rule-classes :congruence)
Theorem:
(defthm exec-op-imm-of-ubyte5-fix-rs1 (equal (exec-op-imm funct rd (ubyte5-fix rs1) imm stat feat) (exec-op-imm funct rd rs1 imm stat feat)))
Theorem:
(defthm exec-op-imm-ubyte5-equiv-congruence-on-rs1 (implies (ubyte5-equiv rs1 rs1-equiv) (equal (exec-op-imm funct rd rs1 imm stat feat) (exec-op-imm funct rd rs1-equiv imm stat feat))) :rule-classes :congruence)
Theorem:
(defthm exec-op-imm-of-ubyte12-fix-imm (equal (exec-op-imm funct rd rs1 (ubyte12-fix imm) stat feat) (exec-op-imm funct rd rs1 imm stat feat)))
Theorem:
(defthm exec-op-imm-ubyte12-equiv-congruence-on-imm (implies (acl2::ubyte12-equiv imm imm-equiv) (equal (exec-op-imm funct rd rs1 imm stat feat) (exec-op-imm funct rd rs1 imm-equiv stat feat))) :rule-classes :congruence)
Theorem:
(defthm exec-op-imm-of-stat-fix-stat (equal (exec-op-imm funct rd rs1 imm (stat-fix stat) feat) (exec-op-imm funct rd rs1 imm stat feat)))
Theorem:
(defthm exec-op-imm-stat-equiv-congruence-on-stat (implies (stat-equiv stat stat-equiv) (equal (exec-op-imm funct rd rs1 imm stat feat) (exec-op-imm funct rd rs1 imm stat-equiv feat))) :rule-classes :congruence)
Theorem:
(defthm exec-op-imm-of-feat-fix-feat (equal (exec-op-imm funct rd rs1 imm stat (feat-fix feat)) (exec-op-imm funct rd rs1 imm stat feat)))
Theorem:
(defthm exec-op-imm-feat-equiv-congruence-on-feat (implies (feat-equiv feat feat-equiv) (equal (exec-op-imm funct rd rs1 imm stat feat) (exec-op-imm funct rd rs1 imm stat feat-equiv))) :rule-classes :congruence)