There's no particular reason to duplicate the extension
authorThomas Sewell <tsewell@nicta.com.au>
Fri, 11 Sep 2009 18:03:30 +1000
changeset 32748 887c68b70f7d
parent 32747 8b9ced1051e2
child 32749 3282c12a856c
There's no particular reason to duplicate the extension constant's definition under the name "ext_def", and it also prevents you having a field called ext.
src/HOL/Tools/record.ML
--- a/src/HOL/Tools/record.ML	Fri Sep 11 15:57:16 2009 +1000
+++ b/src/HOL/Tools/record.ML	Fri Sep 11 18:03:30 2009 +1000
@@ -1721,8 +1721,7 @@
            [("ext_inject", inject),
             ("ext_induct", induct),
             ("ext_surjective", surject),
-            ("ext_split", split_meta),
-            ("ext_def", ext_def)]
+            ("ext_split", split_meta)]
 
   in (thm_thy,extT,induct',inject',split_meta',ext_def')
   end;