src/HOL/SET-Protocol/PublicSET.thy

 *}
 
 method_setup possibility = {*
     Method.ctxt_args (fn ctxt =>
         Method.METHOD (fn facts =>
-            gen_possibility_tac (Simplifier.get_local_simpset ctxt))) *}
+            gen_possibility_tac (local_simpset_of ctxt))) *}
     "for proving possibility theorems"
 
 
 
 subsection{*Specialized Rewriting for Theorems About @{term analz} and Image*}