fix, assume, presume: prf_asm;
authorwenzelm
Thu, 01 Jul 1999 17:24:29 +0200
changeset 6869 850812ed9976
parent 6868 27ba88d57399
child 6870 43d64c520d11
fix, assume, presume: prf_asm;
src/Pure/Isar/isar_syn.ML
--- a/src/Pure/Isar/isar_syn.ML	Thu Jul 01 17:24:14 1999 +0200
+++ b/src/Pure/Isar/isar_syn.ML	Thu Jul 01 17:24:29 1999 +0200
@@ -288,17 +288,17 @@
 (* proof context *)
 
 val assumeP =
-  OuterSyntax.command "assume" "assume propositions" K.prf_decl
+  OuterSyntax.command "assume" "assume propositions" K.prf_asm
     ((P.opt_thm_name ":" -- Scan.repeat1 propp >> P.triple1) -- P.marg_comment
       >> (Toplevel.print oo (Toplevel.proof o IsarThy.assume)));
 
 val presumeP =
-  OuterSyntax.command "presume" "assume propositions, to be established later" K.prf_decl
+  OuterSyntax.command "presume" "assume propositions, to be established later" K.prf_asm
     ((P.opt_thm_name ":" -- Scan.repeat1 propp >> P.triple1) -- P.marg_comment
       >> (Toplevel.print oo (Toplevel.proof o IsarThy.presume)));
 
 val fixP =
-  OuterSyntax.command "fix" "fix variables (Skolem constants)" K.prf_decl
+  OuterSyntax.command "fix" "fix variables (Skolem constants)" K.prf_asm
     (Scan.repeat1 (P.name -- Scan.option (P.$$$ "::" |-- P.typ)) -- P.marg_comment
       >> (Toplevel.print oo (Toplevel.proof o IsarThy.fix)));