Nominal/NewParser.thy
changeset 2411 dceaf2d9fedd
parent 2410 2bbdb9c427b5
child 2424 621ebd8b13c4
--- 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