diff options
author | 2016-04-28 10:21:25 -0400 | |
---|---|---|
committer | 2016-06-22 13:44:46 -0400 | |
commit | 9878f1bc396fd39ab36c50b48f59f29e859e84a9 (patch) | |
tree | d5f94395a0f4c77ccec790eb8e3787b478dd2c03 /src/Specific/Ed25519.v | |
parent | 89282a1607533b940a8c17f820e6eecbb69bc529 (diff) |
Completed encoding reorganization; factored sign_bit out of PointEncodings and finished encoding admits.
Diffstat (limited to 'src/Specific/Ed25519.v')
-rw-r--r-- | src/Specific/Ed25519.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Specific/Ed25519.v b/src/Specific/Ed25519.v index 320200218..d14e8ea30 100644 --- a/src/Specific/Ed25519.v +++ b/src/Specific/Ed25519.v @@ -123,7 +123,7 @@ Proof. apply weqb_true_iff in Heqb. subst. rewrite encoding_valid in H; discriminate. } Qed. -Definition enc' : F q * F q -> word (S (b - 1)). +Definition enc' : F q * F q -> word b. Proof. intro x. let enc' := (eval hnf in (@enc (@E.point curve25519params) _ _)) in @@ -296,7 +296,7 @@ Proof. { do 2 (eapply option_rect_Proper_nd; [intro|reflexivity..]). symmetry; apply decode_test_encode_test. } Unfocus. - + rewrite enc'_correct. cbv [unExtendedPoint unifiedAddM1 negateExtended scalarMultM1]. (* Why does this take too long? @@ -349,7 +349,7 @@ Proof. reflexivity. } Unfocus. - cbv iota beta delta [point_dec_coordinates sign_bit dec FqEncoding modular_word_encoding E.solve_for_x2 sqrt_mod_q]. + cbv iota beta delta [point_dec_coordinates ModularWordEncodingTheorems.sign_bit dec FqEncoding modular_word_encoding E.solve_for_x2 sqrt_mod_q]. etransitivity. Focus 2. { |