diff options
| author | Maxime Dénès <mail@maximedenes.fr> | 2016-09-21 13:42:58 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-01-09 14:58:03 +0100 |
| commit | 4e21c35b306bae7d832e6d0c0758069856b144b7 (patch) | |
| tree | ee8590f54d943482e3efa293666a481c1f268a05 /flocq | |
| parent | 21e81ddda15d25f8ddd83b210df43196e0be66c4 (diff) | |
| download | compcert-kvx-4e21c35b306bae7d832e6d0c0758069856b144b7.tar.gz compcert-kvx-4e21c35b306bae7d832e6d0c0758069856b144b7.zip | |
The contradiction tactic has become more powerful.
Diffstat (limited to 'flocq')
| -rw-r--r-- | flocq/Core/Fcore_digits.v | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/flocq/Core/Fcore_digits.v b/flocq/Core/Fcore_digits.v index d40c1a09..7d1d490a 100644 --- a/flocq/Core/Fcore_digits.v +++ b/flocq/Core/Fcore_digits.v @@ -853,8 +853,7 @@ Proof. intros n Zn. rewrite <- (Zdigits_abs n). assert (Hn: (0 < Zabs n)%Z). -destruct n ; try easy. -now elim Zn. +destruct n ; now easy. destruct (Zabs n) as [|p|p] ; try easy ; clear. simpl. generalize 1%Z (radix_val beta) (refl_equal Lt : (0 < 1)%Z). |