
diff -r d67a6a48f1c7 -r 89158f401b07 Nominal/Nominal2_Base.thy
--- a/Nominal/Nominal2_Base.thy	Mon Apr 01 23:22:53 2013 +0100
+++ b/Nominal/Nominal2_Base.thy	Fri Apr 19 00:10:52 2013 +0100
@@ -446,7 +446,7 @@
 end
 
 lemma permute_set_eq:
-  shows "p \<bullet> X = {x. - p \<bullet> x \<in> X}"
+ shows "p \<bullet> X = {x. - p \<bullet> x \<in> X}"
 unfolding permute_set_def
 by (auto) (metis permute_minus_cancel(1))
 
@@ -823,14 +823,13 @@
  {* Nominal_Permeq.args_parser >> Nominal_Permeq.perm_strict_simp_meth *}
  {* pushes permutations inside, raises an error if it cannot solve all permutations. *}
 
-simproc_setup perm_simproc ("p \<bullet> t") = {* fn _ => fn ss => fn ctrm =>
+simproc_setup perm_simproc ("p \<bullet> t") = {* fn _ => fn ctxt => fn ctrm =>
   case term_of (Thm.dest_arg ctrm) of 
     Free _ => NONE
   | Var _ => NONE
   | Const (@{const_name permute}, _) $ _ $ _ => NONE
   | _ =>
       let
-        val ctxt = Simplifier.the_context ss
         val thm = Nominal_Permeq.eqvt_conv ctxt Nominal_Permeq.eqvt_strict_config ctrm
           handle ERROR _ => Thm.reflexive ctrm
       in
@@ -1864,14 +1863,14 @@
 
 text {* for handling of freshness of functions *}
 
-simproc_setup fresh_fun_simproc ("a \<sharp> (f::'a::pt \<Rightarrow>'b::pt)") = {* fn _ => fn ss => fn ctrm =>
+simproc_setup fresh_fun_simproc ("a \<sharp> (f::'a::pt \<Rightarrow>'b::pt)") = {* fn _ => fn ctxt => fn ctrm =>
   let 
     val _ $ _ $ f = term_of ctrm
   in
     case (Term.add_frees f [], Term.add_vars f []) of
       ([], []) => SOME(@{thm fresh_fun_eqvt[simplified eqvt_def, THEN Eq_TrueI]})
     | (x::_, []) => let
-         val thy = Proof_Context.theory_of (Simplifier.the_context ss)        
+         val thy = Proof_Context.theory_of ctxt
          val argx = Free x
          val absf = absfree x f
          val cty_inst = [SOME (ctyp_of thy (fastype_of argx)), SOME (ctyp_of thy (fastype_of f))]
@@ -2928,7 +2927,7 @@
 by (simp_all add: fresh_at_base)
 
 
-simproc_setup fresh_ineq ("x \<noteq> (y::'a::at_base)") = {* fn _ => fn ss => fn ctrm =>
+simproc_setup fresh_ineq ("x \<noteq> (y::'a::at_base)") = {* fn _ => fn ctxt => fn ctrm =>
   let
     fun first_is_neg lhs rhs [] = NONE
       | first_is_neg lhs rhs (thm::thms) =
@@ -2940,10 +2939,10 @@
            | _ => first_is_neg lhs rhs thms)
 
     val simp_thms = @{thms fresh_Pair fresh_at_base atom_eq_iff}
-    val prems = Simplifier.prems_of ss
+    val prems = Simplifier.prems_of ctxt
       |> filter (fn thm => case Thm.prop_of thm of                    
            _ $ (Const (@{const_name fresh}, _) $ _ $ _) => true | _ => false)
-      |> map (simplify (HOL_basic_ss addsimps simp_thms))
+      |> map (simplify (put_simpset HOL_basic_ss  ctxt addsimps simp_thms))
       |> map HOLogic.conj_elims
       |> flat
   in 
@@ -3319,15 +3318,14 @@
   apply (auto simp add: fresh_Pair intro: a)
   done
 
-simproc_setup Fresh_simproc ("Fresh (h::'a::at \<Rightarrow> 'b::pt)") = {* fn _ => fn ss => fn ctrm =>
+simproc_setup Fresh_simproc ("Fresh (h::'a::at \<Rightarrow> 'b::pt)") = {* fn _ => fn ctxt => fn ctrm =>
   let
-     val ctxt = Simplifier.the_context ss
      val _ $ h = term_of ctrm
 
      val cfresh = @{const_name fresh}
      val catom  = @{const_name atom}
 
-     val atoms = Simplifier.prems_of ss
+     val atoms = Simplifier.prems_of ctxt
       |> map_filter (fn thm => case Thm.prop_of thm of                    
            _ $ (Const (cfresh, _) $ (Const (catom, _) $ atm) $ _) => SOME (atm) | _ => NONE)
       |> distinct (op=)
@@ -3337,8 +3335,8 @@
          val goal1 = HOLogic.mk_Trueprop (mk_fresh (mk_atom atm) h)
          val goal2 = HOLogic.mk_Trueprop (mk_fresh (mk_atom atm) (h $ atm))
  
-         val thm1 = Goal.prove ctxt [] [] goal1 (K (asm_simp_tac ss 1)) 
-         val thm2 = Goal.prove ctxt [] [] goal2 (K (asm_simp_tac ss 1)) 
+         val thm1 = Goal.prove ctxt [] [] goal1 (K (asm_simp_tac ctxt 1)) 
+         val thm2 = Goal.prove ctxt [] [] goal2 (K (asm_simp_tac ctxt 1)) 
        in
          SOME (@{thm Fresh_apply'} OF [thm1, thm2] RS eq_reflection)
        end handle ERROR _ => NONE




