src/HOL/Nitpick.thy
changeset 42064 f4e53c8630c0
parent 41797 0c6093d596d6
child 44013 5cfc1c36ae97
     1.1 --- a/src/HOL/Nitpick.thy	Tue Mar 22 18:38:29 2011 +0100
     1.2 +++ b/src/HOL/Nitpick.thy	Tue Mar 22 19:04:32 2011 +0100
     1.3 @@ -24,8 +24,10 @@
     1.4       ("Tools/Nitpick/nitpick.ML")
     1.5       ("Tools/Nitpick/nitpick_isar.ML")
     1.6       ("Tools/Nitpick/nitpick_tests.ML")
     1.7 +     ("Tools/Nitpick/nitrox.ML")
     1.8  begin
     1.9  
    1.10 +typedecl iota (* for Nitrox *)
    1.11  typedecl bisim_iterator
    1.12  
    1.13  axiomatization unknown :: 'a
    1.14 @@ -231,6 +233,7 @@
    1.15  use "Tools/Nitpick/nitpick.ML"
    1.16  use "Tools/Nitpick/nitpick_isar.ML"
    1.17  use "Tools/Nitpick/nitpick_tests.ML"
    1.18 +use "Tools/Nitpick/nitrox.ML"
    1.19  
    1.20  setup {* Nitpick_Isar.setup *}
    1.21  
    1.22 @@ -239,7 +242,8 @@
    1.23      fold_graph' nat_gcd nat_lcm int_gcd int_lcm Frac Abs_Frac Rep_Frac zero_frac
    1.24      one_frac num denom norm_frac frac plus_frac times_frac uminus_frac
    1.25      number_of_frac inverse_frac less_frac less_eq_frac of_frac
    1.26 -hide_type (open) bisim_iterator fun_box pair_box unsigned_bit signed_bit word
    1.27 +hide_type (open) iota bisim_iterator fun_box pair_box unsigned_bit signed_bit
    1.28 +    word
    1.29  hide_fact (open) Ex1_unfold rtrancl_unfold rtranclp_unfold tranclp_unfold
    1.30      prod_def refl'_def wf'_def wf_wfrec'_def wfrec'_def card'_def setsum'_def
    1.31      fold_graph'_def The_psimp Eps_psimp unit_case_unfold nat_case_unfold