equal
deleted
inserted
replaced
50 * puts them into a goalstack. |
50 * puts them into a goalstack. |
51 *--------------------------------------------------------------------------*) |
51 *--------------------------------------------------------------------------*) |
52 fun tgoalw thy defs rules = |
52 fun tgoalw thy defs rules = |
53 case termination_goals rules of |
53 case termination_goals rules of |
54 [] => error "tgoalw: no termination conditions to prove" |
54 [] => error "tgoalw: no termination conditions to prove" |
55 | L => goalw_cterm defs |
55 | L => OldGoals.goalw_cterm defs |
56 (Thm.cterm_of (Theory.sign_of thy) |
56 (Thm.cterm_of (Theory.sign_of thy) |
57 (HOLogic.mk_Trueprop(USyntax.list_mk_conj L))); |
57 (HOLogic.mk_Trueprop(USyntax.list_mk_conj L))); |
58 |
58 |
59 fun tgoal thy = tgoalw thy []; |
59 fun tgoal thy = tgoalw thy []; |
60 |
60 |