aboutsummaryrefslogtreecommitdiff
path: root/src/Spec/Ed25519.v
diff options
context:
space:
mode:
authorGravatar jadep <jade.philipoom@gmail.com>2016-04-29 15:44:07 -0400
committerGravatar Robert Sloan <varomodt@gmail.com>2016-06-22 13:44:47 -0400
commit98cc4b968e7600ce064e2b2b310910adef970dae (patch)
treef0264c29b6f8cea0449bf10d51fb6a131e83faa6 /src/Spec/Ed25519.v
parent471e6975e9d619990cea921ea9815e5ebf220b41 (diff)
Moved sign_bit definition to Spec.
Diffstat (limited to 'src/Spec/Ed25519.v')
-rw-r--r--src/Spec/Ed25519.v6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Spec/Ed25519.v b/src/Spec/Ed25519.v
index 9ae03dcd5..cddd72aaf 100644
--- a/src/Spec/Ed25519.v
+++ b/src/Spec/Ed25519.v
@@ -143,11 +143,9 @@ Proof.
reflexivity.
Qed.
-Lemma b_minus1_nonzero : 0 < b - 1. Proof. cbv. omega. Qed.
-
Definition PointEncoding : encoding of E.point as (word b) :=
- (@point_encoding curve25519params (b - 1) q_5mod8 sqrt_minus1_valid FqEncoding
- (@sign_bit _ prime_q two_lt_q (b - 1) b_valid) sign_bit_zero sign_bit_opp).
+ (@point_encoding curve25519params (b - 1) q_5mod8 sqrt_minus1_valid FqEncoding sign_bit
+ (@sign_bit_zero _ prime_q two_lt_q _ b_valid) (@sign_bit_opp _ prime_q two_lt_q _ b_valid)).
Definition H : forall n : nat, word n -> word (b + b). Admitted.
Definition B : E.point. Admitted. (* TODO: B = decodePoint (y=4/5, x="positive") *)