src/Pure/Isar/isar_syn.ML
changeset 25861 494d9301cc75
parent 25794 11bec58fc289
child 26048 f6f264ff2844
equal deleted inserted replaced
25860:844ab7ace3db 25861:494d9301cc75
   461 
   461 
   462 (* arbitrary overloading *)
   462 (* arbitrary overloading *)
   463 
   463 
   464 val _ =
   464 val _ =
   465   OuterSyntax.command "overloading" "overloaded definitions" K.thy_decl
   465   OuterSyntax.command "overloading" "overloaded definitions" K.thy_decl
   466    (Scan.repeat1 (P.xname --| P.$$$ "::" -- P.typ --| P.$$$ "is" -- P.name --
   466    (Scan.repeat1 (P.name --| (P.$$$ "\\<equiv>" || P.$$$ "==") -- P.term --
   467       Scan.optional (P.$$$ "(" |-- (P.$$$ "unchecked" >> K false) --| P.$$$ ")") true)
   467       Scan.optional (P.$$$ "(" |-- (P.$$$ "unchecked" >> K false) --| P.$$$ ")") true)
   468         --| P.begin
   468         --| P.begin
   469    >> (fn operations => Toplevel.print o
   469    >> (fn operations => Toplevel.print o
   470          Toplevel.begin_local_theory true (TheoryTarget.overloading_cmd operations)));
   470          Toplevel.begin_local_theory true (TheoryTarget.overloading_cmd operations)));
   471 
   471