diff options
| author | Pierre-Marie Pédrot | 2021-01-19 13:45:27 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-01-19 13:45:27 +0100 |
| commit | 071c50e9c2755e93766e5fb047b0a9065934e8fe (patch) | |
| tree | 1c702aafeebc10843c76ba992658000d9b6e864e /theories/Numbers | |
| parent | a85d8cb68f53667d13ae0b5210b5e3dcc3fd8aa4 (diff) | |
| parent | 7df37822980666c51109205dca8df99f3b81c4fb (diff) | |
Merge PR #13699: Fix #13579 (hnf on primitives raises an anomaly)
Ack-by: SkySkimmer
Reviewed-by: ppedrot
Diffstat (limited to 'theories/Numbers')
| -rw-r--r-- | theories/Numbers/Cyclic/Int63/Int63.v | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/theories/Numbers/Cyclic/Int63/Int63.v b/theories/Numbers/Cyclic/Int63/Int63.v index f324bbf52b..7bb725538b 100644 --- a/theories/Numbers/Cyclic/Int63/Int63.v +++ b/theories/Numbers/Cyclic/Int63/Int63.v @@ -954,6 +954,7 @@ Proof. intros _ HH; generalize (HH H1); discriminate. clear H. generalize (ltb_spec j i); case Int63.ltb; intros H2; unfold bit; simpl. + change 62%int63 with (digits - 1)%int63. assert (F2: (φ j < φ i)%Z) by (case H2; auto); clear H2. replace (is_zero (((x << i) >> j) << (digits - 1))) with true; auto. case (to_Z_bounded j); intros H1j H2j. |