diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-06-01 23:59:55 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-06-02 00:00:09 -0400 |
| commit | d3135a69f653034f07b7657486f926a7a20ef3ee (patch) | |
| tree | e163e017643c1bc8c877ecefaa43299c458d232e /src/Spec | |
| parent | 3f11f57487ce9e913b36271cee2f8b6b695945cf (diff) | |
Strip trailing whitespace
With
```bash
bash ./etc/coq-scripts/formatting/strip-trailing-whitespace.sh
```
Diffstat (limited to 'src/Spec')
| -rw-r--r-- | src/Spec/CompleteEdwardsCurve.v | 2 | ||||
| -rw-r--r-- | src/Spec/Ed25519.v | 6 | ||||
| -rw-r--r-- | src/Spec/Test/X25519.v | 2 | ||||
| -rw-r--r-- | src/Spec/WeierstrassCurve.v | 2 |
4 files changed, 6 insertions, 6 deletions
diff --git a/src/Spec/CompleteEdwardsCurve.v b/src/Spec/CompleteEdwardsCurve.v index 83e5645d5..9cde8d004 100644 --- a/src/Spec/CompleteEdwardsCurve.v +++ b/src/Spec/CompleteEdwardsCurve.v @@ -52,4 +52,4 @@ End E. Delimit Scope E_scope with E. Infix "=" := E.eq : E_scope. Infix "+" := E.add : E_scope. -Infix "*" := E.mul : E_scope.
\ No newline at end of file +Infix "*" := E.mul : E_scope. diff --git a/src/Spec/Ed25519.v b/src/Spec/Ed25519.v index b8526bb0e..56d5c1bf0 100644 --- a/src/Spec/Ed25519.v +++ b/src/Spec/Ed25519.v @@ -54,11 +54,11 @@ Section Ed25519. Local Instance char_gt_e : (* TODO: prove this in PrimeFieldTheorems *) @Ring.char_ge (F.F q) (@eq (F.F q)) (F.of_Z q BinNums.Z0) - (F.of_Z q (BinNums.Zpos BinNums.xH)) (@F.opp q) + (F.of_Z q (BinNums.Zpos BinNums.xH)) (@F.opp q) (@F.add q) (@F.sub q) (@F.mul q) (BinNat.N.succ_pos BinNat.N.two). Proof. intros p ?. edestruct (fun p:p = (BinNat.N.succ_pos BinNat.N.zero) \/ p = (BinNat.N.succ_pos BinNat.N.one) => p); subst. - { admit. (* + { admit. (* p : BinNums.positive H : BinPos.Pos.le p (BinNat.N.succ_pos BinNat.N.one) ============================ @@ -89,7 +89,7 @@ Section Ed25519. (l:=l) (b:=b) (n:=n) (c:=c) (Eenc:=Eenc) (Senc:=Senc) (H:=SHA512). Proof using Type. - split; + split; match goal with | |- ?P => match goal with [H:P|-_] => exact H end (* COQBUG: https://coq.inria.fr/bugs/show_bug.cgi?id=5366 *) | _ => exact _ diff --git a/src/Spec/Test/X25519.v b/src/Spec/Test/X25519.v index 15ca468c1..a4fed8dd4 100644 --- a/src/Spec/Test/X25519.v +++ b/src/Spec/Test/X25519.v @@ -19,4 +19,4 @@ Proof. vm_decide_no_check. Qed. Example testvector_two : F.to_Z (monty 35156891815674817266734212754503633747128614016119564763269015315466259359304%N (F.of_Z _ 8883857351183929894090759386610649319417338800022198945255395922347792736741%Z)) = 39566196721700740701373067725336211924689549479508623342842086701180565506965%Z. -Proof. vm_decide_no_check. Qed.
\ No newline at end of file +Proof. vm_decide_no_check. Qed. diff --git a/src/Spec/WeierstrassCurve.v b/src/Spec/WeierstrassCurve.v index fc7c64198..9a3a9185d 100644 --- a/src/Spec/WeierstrassCurve.v +++ b/src/Spec/WeierstrassCurve.v @@ -41,7 +41,7 @@ Module W. Program Definition zero : point := ∞. Local Notation "0" := Fzero. Local Notation "1" := Fone. - Local Notation "2" := (1+1). Local Notation "3" := (1+2). + Local Notation "2" := (1+1). Local Notation "3" := (1+2). Program Definition add (P1 P2:point) : point := match coordinates P1, coordinates P2 return F*F+∞ with |