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/HOL/Import/import_data.ML
changeset 80634 a90ab1ea6458
parent 74561 8e6c973003c8
child 80636 4041e7c8059d 
--- a/src/HOL/Import/import_data.ML	Sun Aug 04 13:14:33 2024 +0200
+++ b/src/HOL/Import/import_data.ML	Sun Aug 04 13:24:54 2024 +0200
@@ -90,7 +90,7 @@
     val (absn, _) = dest_Const abst
     val (repn, _) = dest_Const rept
     val nty = domain_type (fastype_of rept)
-    val ntyn = fst (dest_Type nty)
+    val ntyn = dest_Type_name nty
     val thy2 = add_typ_map tyname ntyn thy
     val thy3 = add_const_map absname absn thy2
     val thy4 = add_const_map repname repn thy3
isabelle