src/Pure/Isar/isar_syn.ML
changeset 61841 4d3527b94f2a
parent 61673 fd4ac1530d63
child 61890 f6ded81f5690
--- a/src/Pure/Isar/isar_syn.ML	Sat Dec 12 15:37:42 2015 +0100
+++ b/src/Pure/Isar/isar_syn.ML	Sun Dec 13 21:56:15 2015 +0100
@@ -699,16 +699,16 @@
 
 val _ =
   Outer_Syntax.command @{command_keyword apply} "initial goal refinement step (unstructured)"
-    (Method.parse >> (fn m => (Method.report m; Toplevel.proofs (Proof.apply_results m))));
+    (Method.parse >> (fn m => (Method.report m; Toplevel.proofs (Proof.apply m))));
 
 val _ =
   Outer_Syntax.command @{command_keyword apply_end} "terminal goal refinement step (unstructured)"
-    (Method.parse >> (fn m => (Method.report m; Toplevel.proofs (Proof.apply_end_results m))));
+    (Method.parse >> (fn m => (Method.report m; Toplevel.proofs (Proof.apply_end m))));
 
 val _ =
   Outer_Syntax.command @{command_keyword proof} "backward proof step"
     (Scan.option Method.parse >> (fn m =>
-      (Option.map Method.report m; Toplevel.proofs (Proof.proof_results m))));
+      (Option.map Method.report m; Toplevel.proofs (Proof.proof m))));
 
 
 (* subgoal focus *)