author | wenzelm |
Mon, 03 Jun 2019 23:29:05 +0200 | |
changeset 70312 | 56f96489478c |
parent 70311 | e49bf4ebf330 |
child 70313 | 9c19e15c8548 |
--- 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