Semantics of the
This is only valid in 64-bit mode.
We calculate the effective address.
We read an unsigned 64-bit integer from
Function:
(defun exec-sd (rs1 rs2 imm stat feat) (declare (xargs :guard (and (ubyte5p rs1) (ubyte5p rs2) (ubyte12p imm) (statp stat) (featp feat)))) (declare (xargs :guard (and (feat-64p feat) (stat-validp stat feat)))) (let ((__function__ 'exec-sd)) (declare (ignorable __function__)) (b* ((addr (eff-addr rs1 imm stat feat)) (val (read-xreg-unsigned (ubyte5-fix rs2) stat feat)) (stat (write-memory-unsigned64 addr val stat feat)) (stat (inc4-pc stat feat))) stat)))
Theorem:
(defthm statp-of-exec-sd (b* ((new-stat (exec-sd rs1 rs2 imm stat feat))) (statp new-stat)) :rule-classes :rewrite)
Theorem:
(defthm exec-sd-of-ubyte5-fix-rs1 (equal (exec-sd (ubyte5-fix rs1) rs2 imm stat feat) (exec-sd rs1 rs2 imm stat feat)))
Theorem:
(defthm exec-sd-ubyte5-equiv-congruence-on-rs1 (implies (ubyte5-equiv rs1 rs1-equiv) (equal (exec-sd rs1 rs2 imm stat feat) (exec-sd rs1-equiv rs2 imm stat feat))) :rule-classes :congruence)
Theorem:
(defthm exec-sd-of-ubyte5-fix-rs2 (equal (exec-sd rs1 (ubyte5-fix rs2) imm stat feat) (exec-sd rs1 rs2 imm stat feat)))
Theorem:
(defthm exec-sd-ubyte5-equiv-congruence-on-rs2 (implies (ubyte5-equiv rs2 rs2-equiv) (equal (exec-sd rs1 rs2 imm stat feat) (exec-sd rs1 rs2-equiv imm stat feat))) :rule-classes :congruence)
Theorem:
(defthm exec-sd-of-ubyte12-fix-imm (equal (exec-sd rs1 rs2 (ubyte12-fix imm) stat feat) (exec-sd rs1 rs2 imm stat feat)))
Theorem:
(defthm exec-sd-ubyte12-equiv-congruence-on-imm (implies (acl2::ubyte12-equiv imm imm-equiv) (equal (exec-sd rs1 rs2 imm stat feat) (exec-sd rs1 rs2 imm-equiv stat feat))) :rule-classes :congruence)
Theorem:
(defthm exec-sd-of-stat-fix-stat (equal (exec-sd rs1 rs2 imm (stat-fix stat) feat) (exec-sd rs1 rs2 imm stat feat)))
Theorem:
(defthm exec-sd-stat-equiv-congruence-on-stat (implies (stat-equiv stat stat-equiv) (equal (exec-sd rs1 rs2 imm stat feat) (exec-sd rs1 rs2 imm stat-equiv feat))) :rule-classes :congruence)
Theorem:
(defthm exec-sd-of-feat-fix-feat (equal (exec-sd rs1 rs2 imm stat (feat-fix feat)) (exec-sd rs1 rs2 imm stat feat)))
Theorem:
(defthm exec-sd-feat-equiv-congruence-on-feat (implies (feat-equiv feat feat-equiv) (equal (exec-sd rs1 rs2 imm stat feat) (exec-sd rs1 rs2 imm stat feat-equiv))) :rule-classes :congruence)