tuned;
authorwenzelm
Mon, 03 Jun 2019 23:29:05 +0200
changeset 70312 56f96489478c
parent 70311 e49bf4ebf330
child 70313 9c19e15c8548
tuned;
src/HOL/Tools/Function/function_common.ML
--- a/src/HOL/Tools/Function/function_common.ML	Mon Jun 03 21:47:54 2019 +0200
+++ b/src/HOL/Tools/Function/function_common.ML	Mon Jun 03 23:29:05 2019 +0200
@@ -114,7 +114,7 @@
         inducts = Option.map fact inducts, termination = thm termination,
         totality = Option.map thm totality, defname = Morphism.binding phi defname,
         is_partial = is_partial, cases = fact cases,
-        elims = Option.map (map fact) elims, pelims = map fact pelims }
+        pelims = map fact pelims, elims = Option.map (map fact) elims }
     end