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 /aarch64/Asmgenproof1.v | |
| parent | 7601fb5e792a5305336e5cda9794c4041d053b95 (diff) | |
| download | compcert-kvx-f3bdf0c70faa9e69359bd06b78570c60a569a7cb.tar.gz compcert-kvx-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.
Diffstat (limited to 'aarch64/Asmgenproof1.v')
| -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 |