diff options
| author |  Jade Philipoom <jadep@mit.edu> | 2016-02-07 13:18:51 -0500 |
|---|---|---|
| committer | Jade Philipoom <jadep@mit.edu> | 2016-02-07 13:18:51 -0500 |
| commit | 50d521721412c0483e6833707af4c8dc7978aeff (patch) | |
| tree | 79f91202d23694de3eb7129fd02ea2f4fd8c815b /src | |
| parent | 0e86e4dbf73db6e3a5554218df38ae80619c96ed (diff) | |
removed lingering Check/SearchAbout statements
Diffstat (limited to 'src')
| -rw-r--r-- | src/Curves/PointFormats.v | 1 | ||||
| -rw-r--r-- | src/Specific/EdDSA25519.v | 2 |
2 files changed, 0 insertions, 3 deletions
diff --git a/src/Curves/PointFormats.v b/src/Curves/PointFormats.v index 4e36cca11..8137abc4c 100644 --- a/src/Curves/PointFormats.v +++ b/src/Curves/PointFormats.v @@ -353,7 +353,6 @@ Module CompleteTwistedEdwardsCurve (M : Modulus) (Import P : TwistedEdwardsParam let 'exist P2' pf2 := P2 in mkPoint (unifiedAdd' P1' P2') (unifiedAdd'_onCurve' _ _ pf1 pf2). Local Infix "+" := unifiedAdd. - SearchAbout Pos.iter_op. Fixpoint scalarMult (n:nat) (P : point) : point := match n with diff --git a/src/Specific/EdDSA25519.v b/src/Specific/EdDSA25519.v index 701890314..96f997180 100644 --- a/src/Specific/EdDSA25519.v +++ b/src/Specific/EdDSA25519.v @@ -282,8 +282,6 @@ Module EdDSA25519_Params <: EdDSAParams. Definition FlEncoding := Build_Encoding {s:nat | s mod (Z.to_nat l) = s} (word b) Fl_enc Fl_dec Fl_encoding_valid. - Check (Build_Encoding point (word b)). - (* square root mod q relies on the fact that q is 5 mod 8 *) Definition sqrt_mod_q (a : GF) := (match (GF_eq_dec (a ^ Z.to_N (q / 4)%Z) 1) with |