diff options
author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-09-11 16:16:33 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-09-11 16:16:33 +0200 |
commit | f3bdf0c70faa9e69359bd06b78570c60a569a7cb (patch) | |
tree | 2e776de2f8065803ab47d881e1aeb19f0165b20b | |
parent | 7601fb5e792a5305336e5cda9794c4041d053b95 (diff) | |
download | compcert-f3bdf0c70faa9e69359bd06b78570c60a569a7cb.tar.gz compcert-f3bdf0c70faa9e69359bd06b78570c60a569a7cb.zip |
Asmgenproof1: useless unfolding in proof scripts causing "omega" to fail
"omega" fails in Coq 8.7, but not in 8.8 and later.
-rw-r--r-- | aarch64/Asmgenproof1.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/aarch64/Asmgenproof1.v b/aarch64/Asmgenproof1.v index d60ad2bc..663ee50b 100644 --- a/aarch64/Asmgenproof1.v +++ b/aarch64/Asmgenproof1.v @@ -426,7 +426,7 @@ Lemma exec_addimm_aux_32: Proof. intros insn sem SEM ASSOC; intros. unfold addimm_aux. set (nlo := Zzero_ext 12 (Int.unsigned n)). set (nhi := Int.unsigned n - nlo). - assert (E: Int.unsigned n = nhi + nlo) by (unfold nlo, nhi; omega). + assert (E: Int.unsigned n = nhi + nlo) by (unfold nhi; omega). rewrite <- (Int.repr_unsigned n). destruct (Z.eqb_spec nhi 0); [|destruct (Z.eqb_spec nlo 0)]. - econstructor; split. apply exec_straight_one. apply SEM. Simpl. @@ -484,7 +484,7 @@ Lemma exec_addimm_aux_64: Proof. intros insn sem SEM ASSOC; intros. unfold addimm_aux. set (nlo := Zzero_ext 12 (Int64.unsigned n)). set (nhi := Int64.unsigned n - nlo). - assert (E: Int64.unsigned n = nhi + nlo) by (unfold nlo, nhi; omega). + assert (E: Int64.unsigned n = nhi + nlo) by (unfold nhi; omega). rewrite <- (Int64.repr_unsigned n). destruct (Z.eqb_spec nhi 0); [|destruct (Z.eqb_spec nlo 0)]. - econstructor; split. apply exec_straight_one. apply SEM. Simpl. @@ -1833,4 +1833,4 @@ Proof. intros. Simpl. Qed. -End CONSTRUCTORS. +End CONSTRUCTORS.
\ No newline at end of file |