From d3135a69f653034f07b7657486f926a7a20ef3ee Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Thu, 1 Jun 2017 23:59:55 -0400 Subject: Strip trailing whitespace With ```bash bash ./etc/coq-scripts/formatting/strip-trailing-whitespace.sh ``` --- src/Curves/Edwards/Pre.v | 2 +- src/Curves/Montgomery/Affine.v | 2 +- src/Curves/Montgomery/AffineInstances.v | 4 ++-- src/Curves/Montgomery/AffineProofs.v | 4 ++-- src/Curves/Weierstrass/Affine.v | 2 +- src/Curves/Weierstrass/AffineProofs.v | 2 +- 6 files changed, 8 insertions(+), 8 deletions(-) (limited to 'src/Curves') diff --git a/src/Curves/Edwards/Pre.v b/src/Curves/Edwards/Pre.v index 244acc9b5..9f5d5cfab 100644 --- a/src/Curves/Edwards/Pre.v +++ b/src/Curves/Edwards/Pre.v @@ -43,4 +43,4 @@ Section Edwards. Lemma onCurve_add : onCurve ((x1*y2 + y1*x2)/(1 + d*x1*x2*y1*y2)) ((y1*y2 - a*x1*x2)/(1 - d*x1*x2*y1*y2)). Proof using Type*. pose proof denominator_nonzero. Field.fsatz. Qed. End Addition. -End Edwards. \ No newline at end of file +End Edwards. diff --git a/src/Curves/Montgomery/Affine.v b/src/Curves/Montgomery/Affine.v index 70e8a3f6f..bfd7dce60 100644 --- a/src/Curves/Montgomery/Affine.v +++ b/src/Curves/Montgomery/Affine.v @@ -62,4 +62,4 @@ Module M. Next Obligation. Proof. destruct P; cbv; break_match; trivial; fsatz. Qed. End MontgomeryWeierstrass. End MontgomeryCurve. -End M. \ No newline at end of file +End M. diff --git a/src/Curves/Montgomery/AffineInstances.v b/src/Curves/Montgomery/AffineInstances.v index ef5ccd578..049a7695b 100644 --- a/src/Curves/Montgomery/AffineInstances.v +++ b/src/Curves/Montgomery/AffineInstances.v @@ -19,7 +19,7 @@ Module M. Local Notation "0" := Fzero. Local Notation "1" := Fone. Local Notation "4" := (1+1+1+1). - + Global Instance MontgomeryWeierstrassIsomorphism {a b: F} (b_nonzero : b <> 0) @@ -40,7 +40,7 @@ Module M. (M.add(char_ge_3:=char_ge_3)(b_nonzero:=b_nonzero)) M.zero (M.opp(b_nonzero:=b_nonzero)) - + (M.of_Weierstrass(Haw:=reflexivity _)(Hbw:=reflexivity _)(b_nonzero:=b_nonzero)) (M.to_Weierstrass(Haw:=reflexivity _)(Hbw:=reflexivity _)(b_nonzero:=b_nonzero)). Proof. diff --git a/src/Curves/Montgomery/AffineProofs.v b/src/Curves/Montgomery/AffineProofs.v index 4601c3b66..588605c35 100644 --- a/src/Curves/Montgomery/AffineProofs.v +++ b/src/Curves/Montgomery/AffineProofs.v @@ -13,7 +13,7 @@ Module M. Context {F Feq Fzero Fone Fopp Fadd Fsub Fmul Finv Fdiv} {field:@Algebra.Hierarchy.field F Feq Fzero Fone Fopp Fadd Fsub Fmul Finv Fdiv} {Feq_dec:Decidable.DecidableRel Feq}. - + Local Infix "=" := Feq : type_scope. Local Notation "a <> b" := (not (a = b)) : type_scope. Local Infix "+" := Fadd. Local Infix "*" := Fmul. Local Infix "-" := Fsub. Local Infix "/" := Fdiv. @@ -74,7 +74,7 @@ Module M. (M.add(char_ge_3:=_3)(b_nonzero:=_4)) M.zero (M.opp(b_nonzero:=_7)) - + (M.of_Weierstrass(Haw:=Haw)(Hbw:=Hbw)(b_nonzero:=_5)) (M.to_Weierstrass(Haw:=Haw)(Hbw:=Hbw)(b_nonzero:=_6)). Proof. diff --git a/src/Curves/Weierstrass/Affine.v b/src/Curves/Weierstrass/Affine.v index 3a48bf998..cdcb1bec7 100644 --- a/src/Curves/Weierstrass/Affine.v +++ b/src/Curves/Weierstrass/Affine.v @@ -17,4 +17,4 @@ Module W. cbv [W.coordinates]; break_match; trivial; fsatz. Qed. End W. -End W. \ No newline at end of file +End W. diff --git a/src/Curves/Weierstrass/AffineProofs.v b/src/Curves/Weierstrass/AffineProofs.v index 3401d7b31..2faac22eb 100644 --- a/src/Curves/Weierstrass/AffineProofs.v +++ b/src/Curves/Weierstrass/AffineProofs.v @@ -35,7 +35,7 @@ Module W. {char_ge_12:@Ring.char_ge F Feq Fzero Fone Fopp Fadd Fsub Fmul 12%positive} (* FIXME: shouldn't need we need 4, not 12? *) {discriminant_nonzero:id(4*a*a*a + 27*b*b <> 0)} : commutative_group(eq:=W.eq(a:=a)(b:=b))(op:=W.add(char_ge_3:=char_ge_3))(id:=W.zero)(inv:=W.opp). - Proof using Type. + Proof using Type. Time cbv [W.opp W.eq W.zero W.add W.coordinates proj1_sig]; repeat match goal with -- cgit v1.2.3