diff options
| author | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2020-10-21 09:15:40 +0200 |
|---|---|---|
| committer | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2020-10-21 09:15:40 +0200 |
| commit | 0f47c1dbf3cee6845df9c4c3da0924ed4e10a9c4 (patch) | |
| tree | b0799e5d8e4ae62a9ae47c5358a62630c7a4efc3 /kvx/Peephole.v | |
| parent | 647471e5b084703d1c817c02ef4298c474d3d571 (diff) | |
| parent | 3f99a42035389b1953030af8490a5ec18a64394f (diff) | |
| download | compcert-kvx-0f47c1dbf3cee6845df9c4c3da0924ed4e10a9c4.tar.gz compcert-kvx-0f47c1dbf3cee6845df9c4c3da0924ed4e10a9c4.zip | |
Merge branch 'kvx-work' into aarch64_block_bodystar
Diffstat (limited to 'kvx/Peephole.v')
| -rw-r--r-- | kvx/Peephole.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kvx/Peephole.v b/kvx/Peephole.v index 35f4bbd9..5adb823b 100644 --- a/kvx/Peephole.v +++ b/kvx/Peephole.v @@ -153,6 +153,6 @@ Program Definition optimize_bblock (bb : bblock) := exit := exit bb |}. Next Obligation. destruct (wf_bblockb (optimize_body (body bb))) eqn:Rwf. - - rewrite Rwf. simpl. trivial. + - rewrite Rwf. cbn. trivial. - exact (correct bb). Qed. |