TFL/post.ML
changeset 17959 8db36a108213
parent 17615 3c5b158be33c
child 18139 b15981aedb7b
equal deleted inserted replaced
17958:c0bc47e944de 17959:8db36a108213
    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