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