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/Pure/Isar/element.ML
changeset 26628 63306cb94313
parent 26336 a0e2b706ce73
child 26716 8690e75e1395 
--- a/src/Pure/Isar/element.ML	Sat Apr 12 17:00:38 2008 +0200
+++ b/src/Pure/Isar/element.ML	Sat Apr 12 17:00:40 2008 +0200
@@ -291,13 +291,13 @@
   Witness (t, Goal.protect (Thm.assume (Thm.cterm_of thy t)));
 
 fun prove_witness ctxt t tac =
-  Witness (t, Goal.close_result (Goal.prove ctxt [] [] (Logic.protect t) (fn _ =>
+  Witness (t, Thm.close_derivation (Goal.prove ctxt [] [] (Logic.protect t) (fn _ =>
     Tactic.rtac Drule.protectI 1 THEN tac)));
 
-val close_witness = map_witness (fn (t, th) => (t, Goal.close_result th));
+val close_witness = map_witness (fn (t, th) => (t, Thm.close_derivation th));
 
 fun conclude_witness (Witness (_, th)) =
-  Goal.close_result (MetaSimplifier.norm_hhf_protect (Goal.conclude th));
+  Thm.close_derivation (MetaSimplifier.norm_hhf_protect (Goal.conclude th));
 
 fun compose_witness (Witness (_, th)) r =
   let
isabelle