changeset 42361 | 23f352990944 |
parent 41993 | bd6296de1432 |
child 42959 | ee829022381d |
--- a/src/HOL/Tools/Nitpick/nitpick_isar.ML Sat Apr 16 15:47:52 2011 +0200 +++ b/src/HOL/Tools/Nitpick/nitpick_isar.ML Sat Apr 16 16:15:37 2011 +0200 @@ -303,7 +303,7 @@ end fun default_params thy = - extract_params (ProofContext.init_global thy) false (default_raw_params thy) + extract_params (Proof_Context.init_global thy) false (default_raw_params thy) o map (apsnd single) val parse_key = Scan.repeat1 Parse.typ_group >> space_implode " "