src/HOL/Tools/Nitpick/nitpick_model.ML
changeset 35408 b48ab741683b
parent 35402 115a5a95710a
child 35625 9c818cab0dd0
--- a/src/HOL/Tools/Nitpick/nitpick_model.ML	Sat Feb 27 22:52:25 2010 +0100
+++ b/src/HOL/Tools/Nitpick/nitpick_model.ML	Sat Feb 27 23:13:01 2010 +0100
@@ -103,7 +103,7 @@
              (case nice_term_ord (t11, t21) of
                 EQUAL => nice_term_ord (t12, t22)
               | ord => ord)
-           | _ => TermOrd.fast_term_ord tp
+           | _ => Term_Ord.fast_term_ord tp
 
 (* nut NameTable.table -> KK.raw_bound list -> nut -> int list list *)
 fun tuple_list_for_name rel_table bounds name =