src/Pure/Isar/isar_syn.ML
changeset 6869 850812ed9976
parent 6850 da8a4660fb0c
child 6878 1e97e7fbcca5
equal deleted inserted replaced
6868:27ba88d57399 6869:850812ed9976
   286 
   286 
   287 
   287 
   288 (* proof context *)
   288 (* proof context *)
   289 
   289 
   290 val assumeP =
   290 val assumeP =
   291   OuterSyntax.command "assume" "assume propositions" K.prf_decl
   291   OuterSyntax.command "assume" "assume propositions" K.prf_asm
   292     ((P.opt_thm_name ":" -- Scan.repeat1 propp >> P.triple1) -- P.marg_comment
   292     ((P.opt_thm_name ":" -- Scan.repeat1 propp >> P.triple1) -- P.marg_comment
   293       >> (Toplevel.print oo (Toplevel.proof o IsarThy.assume)));
   293       >> (Toplevel.print oo (Toplevel.proof o IsarThy.assume)));
   294 
   294 
   295 val presumeP =
   295 val presumeP =
   296   OuterSyntax.command "presume" "assume propositions, to be established later" K.prf_decl
   296   OuterSyntax.command "presume" "assume propositions, to be established later" K.prf_asm
   297     ((P.opt_thm_name ":" -- Scan.repeat1 propp >> P.triple1) -- P.marg_comment
   297     ((P.opt_thm_name ":" -- Scan.repeat1 propp >> P.triple1) -- P.marg_comment
   298       >> (Toplevel.print oo (Toplevel.proof o IsarThy.presume)));
   298       >> (Toplevel.print oo (Toplevel.proof o IsarThy.presume)));
   299 
   299 
   300 val fixP =
   300 val fixP =
   301   OuterSyntax.command "fix" "fix variables (Skolem constants)" K.prf_decl
   301   OuterSyntax.command "fix" "fix variables (Skolem constants)" K.prf_asm
   302     (Scan.repeat1 (P.name -- Scan.option (P.$$$ "::" |-- P.typ)) -- P.marg_comment
   302     (Scan.repeat1 (P.name -- Scan.option (P.$$$ "::" |-- P.typ)) -- P.marg_comment
   303       >> (Toplevel.print oo (Toplevel.proof o IsarThy.fix)));
   303       >> (Toplevel.print oo (Toplevel.proof o IsarThy.fix)));
   304 
   304 
   305 val letP =
   305 val letP =
   306   OuterSyntax.command "let" "bind text variables" K.prf_decl
   306   OuterSyntax.command "let" "bind text variables" K.prf_decl