src/HOL/Import/shuffler.ML
changeset 35232 f588e1169c8b
parent 35021 c839a4c670c6
child 35408 b48ab741683b
     1.1 --- a/src/HOL/Import/shuffler.ML	Fri Feb 19 11:56:11 2010 +0100
     1.2 +++ b/src/HOL/Import/shuffler.ML	Fri Feb 19 16:11:45 2010 +0100
     1.3 @@ -488,7 +488,7 @@
     1.4  fun norm_term thy t =
     1.5      let
     1.6          val norms = ShuffleData.get thy
     1.7 -        val ss = Simplifier.theory_context thy empty_ss
     1.8 +        val ss = Simplifier.global_context thy empty_ss
     1.9            setmksimps single
    1.10            addsimps (map (Thm.transfer thy) norms)
    1.11            addsimprocs [quant_simproc thy, eta_expand_simproc thy,eta_contract_simproc thy]