src/HOL/Old_Number_Theory/WilsonRuss.thy
changeset 59498 50b60f501b05
parent 58889 5b7a9633cfa8
child 61382 efac889fccbc
     1.1 --- a/src/HOL/Old_Number_Theory/WilsonRuss.thy	Tue Feb 10 14:29:36 2015 +0100
     1.2 +++ b/src/HOL/Old_Number_Theory/WilsonRuss.thy	Tue Feb 10 14:48:26 2015 +0100
     1.3 @@ -252,7 +252,7 @@
     1.4     apply (subst wset.simps)
     1.5     apply (auto, unfold Let_def, auto)
     1.6    apply (subst setprod.insert)
     1.7 -    apply (tactic {* stac @{thm setprod.insert} 3 *})
     1.8 +    apply (tactic {* stac @{context} @{thm setprod.insert} 3 *})
     1.9        apply (subgoal_tac [5]
    1.10          "zcong (a * inv p a * (\<Prod>x\<in>wset (a - 1) p. x)) (1 * 1) p")
    1.11         prefer 5