src/HOL/Nitpick_Examples/minipick.ML
changeset 45128 5af3a3203a76
parent 45062 9598cada31b3
child 46092 287a3cefc21b
     1.1 --- a/src/HOL/Nitpick_Examples/minipick.ML	Wed Oct 12 09:16:30 2011 +0200
     1.2 +++ b/src/HOL/Nitpick_Examples/minipick.ML	Wed Oct 12 16:21:07 2011 +0200
     1.3 @@ -381,7 +381,7 @@
     1.4  
     1.5  fun kodkod_problem_from_term ctxt total raw_card raw_infinite t =
     1.6    let
     1.7 -    val thy = ProofContext.theory_of ctxt
     1.8 +    val thy = Proof_Context.theory_of ctxt
     1.9      fun card (Type (@{type_name fun}, [T1, T2])) =
    1.10          reasonable_power (card T2) (card T1)
    1.11        | card (Type (@{type_name prod}, [T1, T2])) = card T1 * card T2
    1.12 @@ -433,7 +433,7 @@
    1.13  
    1.14  fun minipick ctxt n t =
    1.15    let
    1.16 -    val thy = ProofContext.theory_of ctxt
    1.17 +    val thy = Proof_Context.theory_of ctxt
    1.18      val {total_consts, ...} = Nitpick_Isar.default_params thy []
    1.19      val totals =
    1.20        total_consts |> Option.map single |> the_default [true, false]