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/Tools/Nitpick/nitpick_preproc.ML
changeset 80634 a90ab1ea6458
parent 79170 4affbdbeefd4 
--- a/src/HOL/Tools/Nitpick/nitpick_preproc.ML	Sun Aug 04 13:14:33 2024 +0200
+++ b/src/HOL/Tools/Nitpick/nitpick_preproc.ML	Sun Aug 04 13:24:54 2024 +0200
@@ -235,7 +235,7 @@
           val t1 = do_term new_Ts old_Ts Neut t1
           val T1 = fastype_of1 (new_Ts, t1)
           val (s1, Ts1) = dest_Type T1
-          val T' = hd (snd (dest_Type (hd Ts1)))
+          val T' = hd (dest_Type_args (hd Ts1))
           val t2 = Abs (s, T', do_term (T' :: new_Ts) (T :: old_Ts) Neut t2')
           val T2 = fastype_of1 (new_Ts, t2)
           val t2 = coerce_term hol_ctxt new_Ts (hd Ts1) T2 t2
isabelle