Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
using canonical instantiation interface
authorhaftmann
Mon, 20 Aug 2007 18:07:30 +0200
changeset 24346 4f6b71b84ee7
parent 24345 86a3557a9ebb
child 24347 245ff8661b8c
using canonical instantiation interface
src/HOL/Tools/datatype_abs_proofs.ML file | annotate | diff | comparison | revisions
src/HOL/Tools/datatype_package.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/datatype_abs_proofs.ML	Mon Aug 20 18:07:29 2007 +0200
+++ b/src/HOL/Tools/datatype_abs_proofs.ML	Mon Aug 20 18:07:30 2007 +0200
@@ -427,8 +427,8 @@
         val n = Sign.arity_number thy tyco;
       in
         thy
-        |> AxClass.prove_arity (tyco, replicate n HOLogic.typeS, [HOLogic.class_size])
-             (Class.intro_classes_tac [])
+        |> Class.prove_instance_arity (Class.intro_classes_tac [])
+            [(tyco, replicate n HOLogic.typeS, [HOLogic.class_size])] []
       end
 
     val (size_def_thms, thy') =
--- a/src/HOL/Tools/datatype_package.ML	Mon Aug 20 18:07:29 2007 +0200
+++ b/src/HOL/Tools/datatype_package.ML	Mon Aug 20 18:07:30 2007 +0200
@@ -565,8 +565,8 @@
         val n = Sign.arity_number thy tyco;
       in
         thy
-        |> AxClass.prove_arity (tyco, replicate n HOLogic.typeS, [HOLogic.class_size])
-             (Class.intro_classes_tac [])
+        |> Class.prove_instance_arity (Class.intro_classes_tac [])
+            [(tyco, replicate n HOLogic.typeS, [HOLogic.class_size])] []
       end
 
     val thy2' = thy
isabelle