diff -r a28b5fc129b7 -r 22235e4dbe5f src/Tools/isac/IsacKnowledge/Typefix.thy --- a/src/Tools/isac/IsacKnowledge/Typefix.thy Wed Aug 25 15:15:01 2010 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,68 +0,0 @@ -(* Title: fixed type for _RE_parsing of strings from frontend - Author: Walther Neuper - 9911xx - (c) due to copyright terms - with hints from Markus Wenzel - *) - -theory Typefix imports "../Scripts/Script" -uses ("../Scripts/scrtools.sml") -("../ME/mstools.sml") ("../ME/ctree.sml") ("../ME/ptyps.sml") -("../ME/generate.sml") ("../ME/calchead.sml") ("../ME/appl.sml") -("../ME/rewtools.sml") ("../ME/script.sml") ("../ME/solve.sml") -("../ME/inform.sml") ("../ME/mathengine.sml") -("../xmlsrc/mathml.sml") ("../xmlsrc/datatypes.sml") -("../xmlsrc/pbl-met-hierarchy.sml") ("../xmlsrc/thy-hierarchy.sml") -("../xmlsrc/interface-xml.sml") ("../FE-interface/messages.sml") -("../FE-interface/states.sml") ("../FE-interface/interface.sml") -("../print_exn_G.sml") -begin -use "../Scripts/scrtools.sml" - -use "../ME/mstools.sml" -use "../ME/ctree.sml" -use "../ME/ptyps.sml" -use "../ME/generate.sml" -use "../ME/calchead.sml" -use "../ME/appl.sml" -use "../ME/rewtools.sml" -use "../ME/script.sml" -use "../ME/solve.sml" -use "../ME/inform.sml" -use "../ME/mathengine.sml" - -use "../xmlsrc/mathml.sml" -use "../xmlsrc/datatypes.sml" -use "../xmlsrc/pbl-met-hierarchy.sml" -use "../xmlsrc/thy-hierarchy.sml" -use "../xmlsrc/interface-xml.sml" - -use "../FE-interface/messages.sml" -use "../FE-interface/states.sml" -use "../FE-interface/interface.sml" - -use "../print_exn_G.sml" - -syntax - - "_plus" :: 'a - "_minus" :: 'a - "_umin" :: 'a - "_times" :: 'a - -translations - - "op +" => "_plus :: [real, real] => real" (*infixl 65 *) - "op -" => "_minus :: [real, real] => real" (*infixl 65 *) - "uminus"=> "_umin :: [real] => real" (*"- _" [80] 80*) - "op *" => "_times :: [real, real] => real" (*infixl 70 *) - -ML {* -val parse_translation = - [("_plus", curry Term.list_comb (Syntax.const "op +")), - ("_minus", curry Term.list_comb (Syntax.const "op -")), - ("_umin", curry Term.list_comb (Syntax.const "uminus")), - ("_times", curry Term.list_comb (Syntax.const "op *"))]; -*} - -end \ No newline at end of file