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_scheme.ML
changeset 32197 bc341bbe4417
parent 31775 2b04504fcb69
child 32603 e08fdd615333 
--- a/src/HOL/Tools/Function/induction_scheme.ML	Sat Jul 25 18:55:30 2009 +0200
+++ b/src/HOL/Tools/Function/induction_scheme.ML	Sun Jul 26 13:12:52 2009 +0200
@@ -324,7 +324,7 @@
                          THEN CONVERSION ind_rulify 1)
                      |> Seq.hd
                      |> Thm.elim_implies (Conv.fconv_rule Drule.beta_eta_conversion bstep)
-                     |> Goal.finish
+                     |> Goal.finish ctxt
                      |> implies_intr (cprop_of branch_hyp)
                      |> fold_rev (forall_intr o cert) fxs
           in
isabelle