src/ZF/Tools/datatype_package.ML
changeset 44241 7943b69f0188
parent 44058 ae85c5d64913
child 46949 94aa7b81bcf6
--- a/src/ZF/Tools/datatype_package.ML	Wed Aug 17 16:46:58 2011 +0200
+++ b/src/ZF/Tools/datatype_package.ML	Wed Aug 17 18:05:31 2011 +0200
@@ -235,7 +235,7 @@
       Misc_Legacy.mk_defpair
         (recursor_tm,
          @{const Univ.Vrecursor} $
-           absfree ("rec", @{typ i}, list_comb (case_const, recursor_cases)));
+           absfree ("rec", @{typ i}) (list_comb (case_const, recursor_cases)));
 
   (* Build the new theory *)