diff options
author | jadep <jade.philipoom@gmail.com> | 2016-06-11 09:17:09 -0400 |
---|---|---|
committer | jadep <jade.philipoom@gmail.com> | 2016-06-11 09:17:09 -0400 |
commit | a37eb79f7750a419346211abb58ec45b79975da0 (patch) | |
tree | ba62e0ff6176a8dc208f65bfae52c8415076d107 /src/ModularArithmetic/PseudoMersenneBaseParams.v | |
parent | 2e566c32baf2a140cd7820c4f06437ee5c43ac44 (diff) |
starting rewrite using different definition of map
Diffstat (limited to 'src/ModularArithmetic/PseudoMersenneBaseParams.v')
-rw-r--r-- | src/ModularArithmetic/PseudoMersenneBaseParams.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ModularArithmetic/PseudoMersenneBaseParams.v b/src/ModularArithmetic/PseudoMersenneBaseParams.v index 3914d6219..e20a7ed09 100644 --- a/src/ModularArithmetic/PseudoMersenneBaseParams.v +++ b/src/ModularArithmetic/PseudoMersenneBaseParams.v @@ -7,7 +7,7 @@ Definition sum_firstn l n := fold_right Z.add 0 (firstn n l). Class PseudoMersenneBaseParams (modulus : Z) := { limb_widths : list Z; - limb_widths_nonneg : forall w, In w limb_widths -> 0 <= w; + limb_widths_pos : forall w, In w limb_widths -> 0 < w; limb_widths_nonnil : limb_widths <> nil; limb_widths_good : forall i j, (i + j < length limb_widths)%nat -> sum_firstn limb_widths (i + j) <= |