diff options
| author |  thery <thery@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-06-19 16:58:13 +0000 |
|---|---|---|
| committer | thery <thery@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-06-19 16:58:13 +0000 |
| commit | 177d593b33af16fb484f7f0e2da772b95b3cdc6c (patch) | |
| tree | 981af7531bda6e108b98186f45d9378a0d0255a8 /theories/Ints | |
| parent | ceb2d717180c4183eec779817fdb9d3c206aea66 (diff) | |
safe_shift recursion
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9897 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Ints')
| -rw-r--r-- | theories/Ints/num/NMake.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Ints/num/NMake.v b/theories/Ints/num/NMake.v index be35b5fea..5a441d8b4 100644 --- a/theories/Ints/num/NMake.v +++ b/theories/Ints/num/NMake.v @@ -3858,7 +3858,7 @@ Definition pheight p := Peano.pred (nat_of_P (get_height w0_op.(znz_digits) (ple Definition safe_shiftl n x := itert _ double_size (shiftl n) (fun x => match compare n (head0 x) with Gt => false | _ => true end) - (digits x) x. + (digits n) x. Definition is_even x := match x with |