diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-11 08:30:14 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-11 08:30:14 +0200 |
| commit | d5b86a98560c36fbcb3ab8d2698e09147acda512 (patch) | |
| tree | f3ab850a1620fa5d3dbbe439998d09de8e0d817d /flocq/Calc/Fcalc_round.v | |
| parent | ea2d6b70ed06c60dba9ba81cf53883c85fb92068 (diff) | |
| parent | 3872ce9f9806d9af334b1fde092145edf664d170 (diff) | |
| download | compcert-d5b86a98560c36fbcb3ab8d2698e09147acda512.tar.gz compcert-d5b86a98560c36fbcb3ab8d2698e09147acda512.zip | |
Merge branch 'master' into add-file
Diffstat (limited to 'flocq/Calc/Fcalc_round.v')
| -rw-r--r-- | flocq/Calc/Fcalc_round.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/flocq/Calc/Fcalc_round.v b/flocq/Calc/Fcalc_round.v index a1bcb84a..19652d08 100644 --- a/flocq/Calc/Fcalc_round.v +++ b/flocq/Calc/Fcalc_round.v @@ -646,7 +646,7 @@ case Zlt_bool_spec ; intros Hk. (* *) unfold truncate_aux. rewrite Fx at 1. -refine (let H := _ in conj _ H). +unshelve refine (let H := _ in conj _ H). unfold k. ring. rewrite <- H. apply F2R_eq_compat. |