equal
deleted
inserted
replaced
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 || |