--- a/src/HOL/Nitpick_Examples/minipick.ML Wed Oct 12 09:16:30 2011 +0200
+++ b/src/HOL/Nitpick_Examples/minipick.ML Wed Oct 12 16:21:07 2011 +0200
@@ -381,7 +381,7 @@
fun kodkod_problem_from_term ctxt total raw_card raw_infinite t =
let
- val thy = ProofContext.theory_of ctxt
+ val thy = Proof_Context.theory_of ctxt
fun card (Type (@{type_name fun}, [T1, T2])) =
reasonable_power (card T2) (card T1)
| card (Type (@{type_name prod}, [T1, T2])) = card T1 * card T2
@@ -433,7 +433,7 @@
fun minipick ctxt n t =
let
- val thy = ProofContext.theory_of ctxt
+ val thy = Proof_Context.theory_of ctxt
val {total_consts, ...} = Nitpick_Isar.default_params thy []
val totals =
total_consts |> Option.map single |> the_default [true, false]