Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
speed-up proof;
authorwenzelm
Thu, 24 Nov 2011 21:41:58 +0100
changeset 45627 a0336f8b6558
parent 45626 b4f374a45668
child 45628 f21eb7073895
speed-up proof;
src/HOL/Old_Number_Theory/Quadratic_Reciprocity.thy file | annotate | diff | comparison | revisions 
--- a/src/HOL/Old_Number_Theory/Quadratic_Reciprocity.thy	Thu Nov 24 21:15:20 2011 +0100
+++ b/src/HOL/Old_Number_Theory/Quadratic_Reciprocity.thy	Thu Nov 24 21:41:58 2011 +0100
@@ -114,8 +114,8 @@
    (-1::int)^(card E) = (-1::int)^(nat(setsum (%x. ((x * a) div p)) A))"
 proof -
   assume "a \<in> zOdd"
-  from QRLemma4 [OF this] have
-    "(int(card E): zEven) = (setsum (%x. ((x * a) div p)) A \<in> zEven)" ..
+  from QRLemma4 [OF this, symmetric] have
+    "(int(card E): zEven) = (setsum (%x. ((x * a) div p)) A \<in> zEven)" .
   moreover have "0 \<le> int(card E)"
     by auto
   moreover have "0 \<le> setsum (%x. ((x * a) div p)) A"
isabelle