src/HOL/Tools/Nitpick/nitpick_model.ML
changeset 34936 c4f04bee79f3
parent 34126 8a2c5d7aff51
child 34974 18b41bba42b5
     1.1 --- a/src/HOL/Tools/Nitpick/nitpick_model.ML	Thu Jan 14 17:06:35 2010 +0100
     1.2 +++ b/src/HOL/Tools/Nitpick/nitpick_model.ML	Wed Jan 20 10:38:06 2010 +0100
     1.3 @@ -440,7 +440,9 @@
     1.4                        | _ => raise TERM ("Nitpick_Model.reconstruct_term.term_\
     1.5                                           \for_atom (Abs_Frac)", ts)
     1.6                      end
     1.7 -                  else if not for_auto andalso is_abs_fun thy constr_x then
     1.8 +                  else if not for_auto andalso
     1.9 +                          (is_abs_fun thy constr_x orelse
    1.10 +                           constr_s = @{const_name Quot}) then
    1.11                      Const (abs_name, constr_T) $ the_single ts
    1.12                    else
    1.13                      list_comb (Const constr_x, ts)
    1.14 @@ -560,8 +562,8 @@
    1.15              pairself (strip_comb o unfold_outer_the_binders) (t1, t2)
    1.16            val max_depth = max_depth - (if member (op =) coTs T then 1 else 0)
    1.17          in
    1.18 -          head1 = head2
    1.19 -          andalso forall (bisimilar_values coTs max_depth) (args1 ~~ args2)
    1.20 +          head1 = head2 andalso
    1.21 +          forall (bisimilar_values coTs max_depth) (args1 ~~ args2)
    1.22          end
    1.23        else
    1.24          t1 = t2
    1.25 @@ -704,8 +706,8 @@
    1.26    in
    1.27      (Pretty.chunks (if null chunks then [Pretty.str "Empty assignment"]
    1.28                      else chunks),
    1.29 -     bisim_depth >= 0
    1.30 -     orelse forall (is_codatatype_wellformed codatatypes) codatatypes)
    1.31 +     bisim_depth >= 0 orelse
    1.32 +     forall (is_codatatype_wellformed codatatypes) codatatypes)
    1.33    end
    1.34  
    1.35  (* scope -> Time.time option -> nut list -> nut list -> nut NameTable.table