diff options
author | 2016-07-13 10:28:01 -0400 | |
---|---|---|
committer | 2016-07-13 10:28:01 -0400 | |
commit | 671dc4c7881517bee661a33cbbbe44dee7273e1a (patch) | |
tree | 6bce548a9a17c98daa44f92609bbcef04b0617d3 /src | |
parent | e3b69200fae4bc11fa9843b1123884e7aef9d6a8 (diff) |
Experiments/SpecificCurve25519.v: curve25519 addition using small Z-s
Diffstat (limited to 'src')
-rw-r--r-- | src/Experiments/SpecificCurve25519.v | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/Experiments/SpecificCurve25519.v b/src/Experiments/SpecificCurve25519.v new file mode 100644 index 000000000..e1b86d229 --- /dev/null +++ b/src/Experiments/SpecificCurve25519.v @@ -0,0 +1,13 @@ +Require Import Crypto.Util.Notations Coq.ZArith.BinInt. +Require Import Crypto.Specific.GF25519. +Require Import Crypto.CompleteEdwardsCurve.ExtendedCoordinates. +Local Infix "<<" := Z.shiftr. +Local Infix "&" := Z.land. + +Section Curve25519. + Context {twice_d : fe25519}. + + Definition ge25519_add := + Eval cbv beta delta [Extended.add_coordinates fe25519 add mul sub ModularBaseSystemOpt.Let_In] in + @Extended.add_coordinates fe25519 add sub mul twice_d. +End Curve25519.
\ No newline at end of file |