src/HOL/Tools/Nitpick/nitpick_nut.ML
changeset 35185 9b8f351cced6
parent 35079 592edca1dfb3
child 35190 ce653cc27a94
     1.1 --- a/src/HOL/Tools/Nitpick/nitpick_nut.ML	Wed Feb 17 11:20:09 2010 +0100
     1.2 +++ b/src/HOL/Tools/Nitpick/nitpick_nut.ML	Wed Feb 17 12:14:08 2010 +0100
     1.3 @@ -892,7 +892,7 @@
     1.4  (* scope -> bool -> rep NameTable.table -> bool -> nut -> nut *)
     1.5  fun choose_reps_in_nut (scope as {hol_ctxt as {thy, ctxt, ...}, card_assigns,
     1.6                                    bits, datatypes, ofs, ...})
     1.7 -                       liberal table def =
     1.8 +                       unsound table def =
     1.9    let
    1.10      val bool_atom_R = Atom (2, offset_of_type ofs bool_T)
    1.11      (* polarity -> bool -> rep *)
    1.12 @@ -1036,7 +1036,7 @@
    1.13                if is_constructive u then s_op2 Eq T (Formula Neut) u1' u2'
    1.14                else opt_opt_case ()
    1.15            in
    1.16 -            if liberal orelse polar = Neg orelse
    1.17 +            if unsound orelse polar = Neg orelse
    1.18                 is_concrete_type datatypes (type_of u1) then
    1.19                case (is_opt_rep (rep_of u1'), is_opt_rep (rep_of u2')) of
    1.20                  (true, true) => opt_opt_case ()
    1.21 @@ -1138,7 +1138,7 @@
    1.22                else
    1.23                  let val quant_u = s_op2 oper T (Formula polar) u1' u2' in
    1.24                    if def orelse
    1.25 -                     (liberal andalso (polar = Pos) = (oper = All)) orelse
    1.26 +                     (unsound andalso (polar = Pos) = (oper = All)) orelse
    1.27                       is_complete_type datatypes (type_of u1) then
    1.28                      quant_u
    1.29                    else