# HG changeset patch
# User haftmann
# Date 1256892136 -3600
# Node ID 718beb78521371914954247b6ac51d4e4c858ca0
# Parent  c6a2e295227e886fc0942198431951172c221de4
avoid value restriction

diff -r c6a2e295227e -r 718beb785213 ProgTutorial/Package/Ind_Interface.thy
--- a/ProgTutorial/Package/Ind_Interface.thy	Fri Oct 30 09:42:16 2009 +0100
+++ b/ProgTutorial/Package/Ind_Interface.thy	Fri Oct 30 09:42:16 2009 +0100
@@ -129,7 +129,7 @@
 *}
 (*<*)ML %no{*fun add_inductive_cmd pred_specs rule_specs lthy = lthy 
    fun add_inductive pred_specs rule_specs lthy = lthy*}(*>*)
-ML_val %linenosgray{*val specification =
+ML_val %linenosgray{*val specification : (local_theory -> local_theory) parser =
   spec_parser >>
     (fn (pred_specs, rule_specs) => add_inductive_cmd pred_specs rule_specs)