aboutsummaryrefslogtreecommitdiff
path: root/src/Curves/Weierstrass
diff options
context:
space:
mode:
authorGravatar Jason Gross <jgross@mit.edu>2018-01-05 18:09:37 -0500
committerGravatar Andres Erbsen <andreser@mit.edu>2018-01-09 10:09:46 -0500
commit84b46b6906df3505266d7a66135ecfbef45e9e98 (patch)
treedcceb0302bbbe56568c97b23cdd52c0c326e9cfa /src/Curves/Weierstrass
parentaa28ca2993cb7f4a7663c9a54a6fa596a46a02ed (diff)
Revert "Replace char_ge_12 with char_ge_3"
This reverts commit d33d8be154dbce048ac10d82bc0b39468abd5fdb. Hmm, apparently there's an error on Qed... maybe a bug in fsatz?
Diffstat (limited to 'src/Curves/Weierstrass')
-rw-r--r--src/Curves/Weierstrass/Jacobian.v6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Curves/Weierstrass/Jacobian.v b/src/Curves/Weierstrass/Jacobian.v
index fcabae005..323816b81 100644
--- a/src/Curves/Weierstrass/Jacobian.v
+++ b/src/Curves/Weierstrass/Jacobian.v
@@ -167,7 +167,7 @@ Module Jacobian.
let yneq := if dec (r = 0) then false else true in
if (negb xneq && negb yneq && z1nz && z2nz)%bool
then proj1_sig (double P)
- else
+ else
let i := h + h in
let i := i^2 in
let j := h * i in
@@ -208,7 +208,9 @@ Module Jacobian.
Lemma Proper_add : Proper (eq ==> eq ==> eq) add. Proof. t. Qed.
Import BinPos.
- Lemma to_affine_add P Q
+ Lemma to_affine_add
+ {char_ge_12:@Ring.char_ge F Feq Fzero Fone Fopp Fadd Fsub Fmul 12} (* TODO: why do we need 12 instead of 3? *)
+ P Q
: W.eq (to_affine (add P Q)) (W.add (to_affine P) (to_affine Q)).
Proof. prept; trivial; try contradiction. Time all: abstract t. Time Qed.
(* 306.478 secs (43.916u,1.032s) ;; 18.857 secs (18.856u,0.008s) *)