Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/ZF/Tools/datatype_package.ML
changeset 28965 1de908189869
parent 28839 32d498cf7595
child 29579 cb520b766e00 
--- a/src/ZF/Tools/datatype_package.ML	Wed Dec 03 21:00:39 2008 -0800
+++ b/src/ZF/Tools/datatype_package.ML	Thu Dec 04 14:43:33 2008 +0100
@@ -101,7 +101,7 @@
   val npart = length rec_names;  (*number of mutually recursive parts*)
 
 
-  val full_name = Sign.full_name thy_path;
+  val full_name = Sign.full_bname thy_path;
 
   (*Make constructor definition;
     kpart is the number of this mutually recursive part*)
@@ -262,7 +262,7 @@
              ||> add_recursor
              ||> Sign.parent_path
 
-  val intr_names = map (Name.binding o #2) (List.concat con_ty_lists);
+  val intr_names = map (Binding.name o #2) (List.concat con_ty_lists);
   val (thy1, ind_result) =
     thy0 |> Ind_Package.add_inductive_i
       false (rec_tms, dom_sum) (map Thm.no_attributes (intr_names ~~ intr_tms))
isabelle