src/Pure/Isar/isar_syn.ML
changeset 38348 cf7b2121ad9d
parent 38342 09d4a04d5c2e
child 38350 480b2de9927c
equal deleted inserted replaced
38347:19000bb11ff5 38348:cf7b2121ad9d
   470 
   470 
   471 val _ =
   471 val _ =
   472   Outer_Syntax.command "instantiation" "instantiate and prove type arity" Keyword.thy_decl
   472   Outer_Syntax.command "instantiation" "instantiate and prove type arity" Keyword.thy_decl
   473    (Parse.multi_arity --| Parse.begin
   473    (Parse.multi_arity --| Parse.begin
   474      >> (fn arities => Toplevel.print o
   474      >> (fn arities => Toplevel.print o
   475          Toplevel.begin_local_theory true (Theory_Target.instantiation_cmd arities)));
   475          Toplevel.begin_local_theory true (Class.instantiation_cmd arities)));
   476 
   476 
   477 val _ =
   477 val _ =
   478   Outer_Syntax.command "instance" "prove type arity or subclass relation" Keyword.thy_goal
   478   Outer_Syntax.command "instance" "prove type arity or subclass relation" Keyword.thy_goal
   479   ((Parse.xname -- ((Parse.$$$ "\\<subseteq>" || Parse.$$$ "<") |-- Parse.!!! Parse.xname)
   479   ((Parse.xname -- ((Parse.$$$ "\\<subseteq>" || Parse.$$$ "<") |-- Parse.!!! Parse.xname)
   480         >> Class.classrel_cmd ||
   480         >> Class.classrel_cmd ||