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/Function/induction_schema.ML
changeset 39756 6c8e83d94536
parent 37677 c5a8b612e571
child 41117 d6379876ec4c 
--- a/src/HOL/Tools/Function/induction_schema.ML	Tue Sep 28 12:10:37 2010 +0200
+++ b/src/HOL/Tools/Function/induction_schema.ML	Tue Sep 28 12:34:41 2010 +0200
@@ -196,7 +196,7 @@
       |> fold_rev (Logic.all o Free) ws
       |> term_conv thy ind_atomize
       |> Object_Logic.drop_judgment thy
-      |> tupled_lambda (foldr1 HOLogic.mk_prod (map Free xs))
+      |> HOLogic.tupled_lambda (foldr1 HOLogic.mk_prod (map Free xs))
   in
     SumTree.mk_sumcases HOLogic.boolT (map brnch branches)
   end
isabelle