changeset 59498 | 50b60f501b05 |
parent 58838 | 59203adfc33f |
child 59582 | 0fbed69ff081 |
--- a/src/ZF/Tools/primrec_package.ML Tue Feb 10 14:29:36 2015 +0100 +++ b/src/ZF/Tools/primrec_package.ML Tue Feb 10 14:48:26 2015 +0100 @@ -177,7 +177,7 @@ eqn_terms |> map (fn t => Goal.prove_global thy1 [] [] (Ind_Syntax.traceIt "next primrec equation = " thy1 t) (fn {context = ctxt, ...} => - EVERY [rewrite_goals_tac ctxt rewrites, resolve_tac @{thms refl} 1])); + EVERY [rewrite_goals_tac ctxt rewrites, resolve_tac ctxt @{thms refl} 1])); val (eqn_thms', thy2) = thy1