diff options
author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-12-12 22:57:31 +0100 |
---|---|---|
committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-12-12 22:57:31 +0100 |
commit | 761a1e046b4fb276ee0b63785ed20a35c26641c9 (patch) | |
tree | 58b3ed3d492577e969d2fc6137519b2630060648 /kvx/SelectOpproof.v | |
parent | 728c4dfe489b78b9816d2efb039618168eada263 (diff) | |
download | compcert-kvx-761a1e046b4fb276ee0b63785ed20a35c26641c9.tar.gz compcert-kvx-761a1e046b4fb276ee0b63785ed20a35c26641c9.zip |
fix assembly syntax
Diffstat (limited to 'kvx/SelectOpproof.v')
-rw-r--r-- | kvx/SelectOpproof.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/kvx/SelectOpproof.v b/kvx/SelectOpproof.v index 0ede1e2d..a374ec54 100644 --- a/kvx/SelectOpproof.v +++ b/kvx/SelectOpproof.v @@ -1896,6 +1896,14 @@ Proof. repeat (try econstructor; try eassumption)). - apply eval_fma; assumption. - apply eval_fmaf; assumption. + - cbn in *; + destruct vl; trivial. destruct vl; trivial. + destruct v0; try discriminate; + cbn; rewrite H0; reflexivity. + - cbn in *; + destruct vl; trivial. destruct vl; trivial. + destruct v0; try discriminate; + cbn; rewrite H0; reflexivity. Qed. End CMCONSTR. |