diff options
| author |  Andres Erbsen <andreser@mit.edu> | 2017-02-22 14:11:41 -0500 |
|---|---|---|
| committer | Andres Erbsen <andreser@mit.edu> | 2017-03-02 13:37:14 -0500 |
| commit | 2a321d84d1eceffbe35538c6f7fff2974e034e50 (patch) | |
| tree | 853a56ca9fda978b82e8126fd754a002d7f74aa1 /src/ModularArithmetic/PseudoMersenneBaseParams.v | |
| parent | f5c6a57c1453249aac448a33ac3443e45a0d3222 (diff) | |
use [positive] for [F] modulus, char_ge_C instead of char_gt_C
Diffstat (limited to 'src/ModularArithmetic/PseudoMersenneBaseParams.v')
| -rw-r--r-- | src/ModularArithmetic/PseudoMersenneBaseParams.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/ModularArithmetic/PseudoMersenneBaseParams.v b/src/ModularArithmetic/PseudoMersenneBaseParams.v index b564bcb05..6f6fd6556 100644 --- a/src/ModularArithmetic/PseudoMersenneBaseParams.v +++ b/src/ModularArithmetic/PseudoMersenneBaseParams.v @@ -4,16 +4,16 @@ Require Import Crypto.Util.ListUtil. Require Crypto.BaseSystem. Local Open Scope Z_scope. -Class PseudoMersenneBaseParams (modulus : Z) := { +Class PseudoMersenneBaseParams (modulus : positive) := { limb_widths : list Z; 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) <= sum_firstn limb_widths i + sum_firstn limb_widths j; - prime_modulus : Znumtheory.prime modulus; + prime_modulus : Znumtheory.prime (Z.pos modulus); k := sum_firstn limb_widths (length limb_widths); - c := 2 ^ k - modulus; + c := 2 ^ k - (Z.pos modulus); c_pos : 0 < c; limb_widths_match_modulus : forall i j, (i < length limb_widths)%nat -> |