diff -r 2bbdb9c427b5 -r dceaf2d9fedd Nominal/NewParser.thy
--- a/Nominal/NewParser.thy	Wed Aug 18 00:19:15 2010 +0800
+++ b/Nominal/NewParser.thy	Wed Aug 18 00:23:42 2010 +0800
@@ -810,7 +810,7 @@
   val bclauses = prepare_bclauses dt_strs lthy2
   val bclauses' = complete dt_strs bclauses 
 in
-  nominal_datatype2 dts bn_funs bn_eqs bclauses' lthy |> snd
+  timeit (fn () => nominal_datatype2 dts bn_funs bn_eqs bclauses' lthy |> snd)
 end