diff -r 0599286b1e2a -r 1264f2a21ea9 Nominal/nominal_function_core.ML
--- a/Nominal/nominal_function_core.ML	Wed Jun 22 17:57:15 2011 +0900
+++ b/Nominal/nominal_function_core.ML	Wed Jun 22 12:18:22 2011 +0100
@@ -589,7 +589,7 @@
   let
     val ({intrs = intrs_gen, elims = [elim_gen], preds = [ Rdef ], induct, raw_induct, ...}, lthy) =
       lthy
-      |> Local_Theory.conceal 
+      |> Local_Theory.conceal
       |> Inductive.add_inductive_i
           {quiet_mode = true,
             verbose = ! trace,