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