src/FOLP/FOLP.thy
changeset 22577 1a08fce38565
parent 17480 fd19f77dcf60
child 26322 eaf634e975fa
--- a/src/FOLP/FOLP.thy	Tue Apr 03 19:31:48 2007 +0200
+++ b/src/FOLP/FOLP.thy	Wed Apr 04 00:10:59 2007 +0200
@@ -38,15 +38,14 @@
   val imp_intr = impI
 
   (*etac rev_cut_eq moves an equality to be the last premise. *)
-  val rev_cut_eq = prove_goal (the_context ())
+  val rev_cut_eq = prove_goal @{theory}
                 "[| p:a=b;  !!x. x:a=b ==> f(x):R |] ==> ?p:R"
    (fn prems => [ REPEAT(resolve_tac prems 1) ]);
 
   val rev_mp = rev_mp
   val subst = subst
   val sym = sym
-  val thin_refl = prove_goal (the_context ())
-                  "!!X. [|p:x=x; PROP W|] ==> PROP W" (K [atac 1]);
+  val thin_refl = prove_goal @{theory} "!!X. [|p:x=x; PROP W|] ==> PROP W" (K [atac 1]);
   end;
 
 structure Hypsubst = HypsubstFun(Hypsubst_Data);