src/HOLCF/Lift.thy
changeset 32149 ef59550a55d3
parent 31076 99fe356cbbc2
child 35948 5e7909f0346b
     1.1 --- a/src/HOLCF/Lift.thy	Thu Jul 23 18:44:08 2009 +0200
     1.2 +++ b/src/HOLCF/Lift.thy	Thu Jul 23 18:44:09 2009 +0200
     1.3 @@ -61,7 +61,7 @@
     1.4  
     1.5  method_setup defined = {*
     1.6    Scan.succeed (fn ctxt => SIMPLE_METHOD'
     1.7 -    (etac @{thm lift_definedE} THEN' asm_simp_tac (local_simpset_of ctxt)))
     1.8 +    (etac @{thm lift_definedE} THEN' asm_simp_tac (simpset_of ctxt)))
     1.9  *} ""
    1.10  
    1.11  lemma DefE: "Def x = \<bottom> \<Longrightarrow> R"