src/Pure/old_goals.ML
changeset 32432 64f30bdd3ba1
parent 32231 95b8afcbb0ed
child 32738 15bb09ca0378
equal deleted inserted replaced
32431:bcd14373ec30 32432:64f30bdd3ba1
   360       val tac = EVERY (tacsf prems)
   360       val tac = EVERY (tacsf prems)
   361       fun statef() =
   361       fun statef() =
   362           (case Seq.pull (tac st0) of
   362           (case Seq.pull (tac st0) of
   363                SOME(st,_) => st
   363                SOME(st,_) => st
   364              | _ => error ("prove_goal: tactic failed"))
   364              | _ => error ("prove_goal: tactic failed"))
   365   in  mkresult (check, cond_timeit (!Output.timing) "" statef)  end
   365   in  mkresult (check, cond_timeit (!Output.timing) "" statef)  end;
   366   handle e => (print_sign_exn_unit (Thm.theory_of_cterm chorn) e;
       
   367                writeln ("The exception above was raised for\n" ^
       
   368                       Display.string_of_cterm chorn); raise e);
       
   369 
   366 
   370 (*Two variants: one checking the result, one not.
   367 (*Two variants: one checking the result, one not.
   371   Neither prints runtime messages: they are for internal packages.*)
   368   Neither prints runtime messages: they are for internal packages.*)
   372 fun prove_goalw_cterm rths chorn =
   369 fun prove_goalw_cterm rths chorn =
   373         setmp Output.timing false (prove_goalw_cterm_general true rths chorn)
   370         setmp Output.timing false (prove_goalw_cterm_general true rths chorn)