test/Tools/isac/Test_Isac.thy
author Walther Neuper <neuper@ist.tugraz.at>
Wed, 04 May 2011 09:01:10 +0200
branchdecompose-isar
changeset 41972 22c5483e9bfb
parent 41969 a350b4ed575b
child 41973 bf17547ce960
permissions -rw-r--r--
update all "Pair" to "Product_Type.Pair"

regression test --- x+1=2 start SubProblem 'stac2tac_ TODO: no match for SubProblem
neuper@41945
     1
(* Title:  All tests on isac; observe outcommented
neuper@41943
     2
   Author: Walther Neuper 101001
neuper@41943
     3
   (c) copyright due to lincense terms.
neuper@41943
     4
neuper@41943
     5
$ cd /usr/local/isabisac/test/Tools/isac
neuper@41945
     6
$ /usr/local/isabisac/bin/isabelle emacs -l Isac Test_Isac.thy &
neuper@41968
     7
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
neuper@41968
     8
        10        20        30        40        50        60        70        80         90      100
neuper@41943
     9
*)
neuper@41943
    10
neuper@41954
    11
theory Test_Isac imports Isac
neuper@41945
    12
uses 
neuper@41945
    13
  (         "library.sml")
neuper@41945
    14
  (         "calcelems.sml")
neuper@41945
    15
  ("ProgLang/termC.sml") 
neuper@41945
    16
  ("ProgLang/calculate.sml")
neuper@41945
    17
  ("ProgLang/rewrite.sml")
neuper@41945
    18
(*("ProgLang/listg.sml") ("ProgLang/scrtools.sml") ("ProgLang/tools.sml") *)
neuper@41945
    19
neuper@41945
    20
  ("Interpret/mstools.sml") 
bonzai@41951
    21
  ("Interpret/ctree.sml")
neuper@41945
    22
  ("Interpret/ptyps.sml") 
neuper@41945
    23
(*("Interpret/generate.sml")*)
neuper@41945
    24
  ("Interpret/calchead.sml") 
neuper@41945
    25
(*("Interpret/appl.sml")*)
neuper@41945
    26
  ("Interpret/rewtools.sml") 
neuper@41945
    27
(*("Interpret/script.sml")
neuper@41945
    28
  ("Interpret/solve.sml") 
neuper@41945
    29
  ("Interpret/inform.sml")*)
neuper@41945
    30
  ("Interpret/mathengine.sml")
neuper@41945
    31
neuper@41945
    32
(*("xmlsrc/mathml.sml")
neuper@41945
    33
  ("xmlsrc/datatypes.sml")
neuper@41945
    34
  ("xmlsrc/pbl-met-hierarchy.sml")
neuper@41945
    35
  ("xmlsrc/thy-hierarchy.sml")*)
neuper@41945
    36
  ("xmlsrc/interface-xml.sml")
neuper@41945
    37
neuper@41945
    38
  ("Frontend/messages.sml")
neuper@41945
    39
  ("Frontend/states.sml")
neuper@41945
    40
  ("Frontend/interface.sml")
neuper@41945
    41
  ("print_exn_G.sml")
neuper@41945
    42
neuper@41945
    43
  ("Knowledge/delete.sml")
neuper@41945
    44
  ("Knowledge/descript.sml")
neuper@41945
    45
  ("Knowledge/atools.sml")
neuper@41945
    46
  ("Knowledge/simplify.sml")
neuper@41945
    47
  ("Knowledge/poly.sml")
neuper@41945
    48
  ("Knowledge/rational.sml")
neuper@41945
    49
  ("Knowledge/equation.sml")
neuper@41945
    50
  ("Knowledge/root.sml")
neuper@41945
    51
  ("Knowledge/lineq.sml")
neuper@41945
    52
  ("Knowledge/rooteq.sml")
neuper@41945
    53
  ("Knowledge/rateq.sml")
neuper@41945
    54
  ("Knowledge/rootrateq.sml")
neuper@41945
    55
(*("Knowledge/polyeq.sml")*)
neuper@41945
    56
  ("Knowledge/calculus.sml")
neuper@41945
    57
  ("Knowledge/trig.sml")
neuper@41945
    58
  ("Knowledge/logexp.sml")
neuper@41945
    59
  ("Knowledge/diff.sml")
neuper@41945
    60
  ("Knowledge/integrate.sml")
neuper@41945
    61
  ("Knowledge/eqsystem.sml")
neuper@41945
    62
  ("Knowledge/test.sml")
neuper@41945
    63
  ("Knowledge/polyminus.sml")
neuper@41945
    64
  ("Knowledge/vect.sml")
neuper@41945
    65
  ("Knowledge/diffapp.sml")
neuper@41945
    66
  ("Knowledge/biegelinie.sml")
neuper@41945
    67
  ("Knowledge/algein.sml")
neuper@41945
    68
  ("Knowledge/diophanteq.sml")
neuper@41945
    69
  ("Knowledge/isac.sml")
neuper@41945
    70
neuper@41943
    71
begin
neuper@41947
    72
neuper@41943
    73
  ML {*"%%%%%%%%%%%%%%%%% start ProgLang.thy %%%%%%%%%%%%%%%%%%%";*}
neuper@41945
    74
  use          "library.sml"        (*new 2011*)
neuper@41945
    75
  use          "calcelems.sml"      (*complete*)
neuper@41943
    76
  use "ProgLang/termC.sml"          (*part.*)
neuper@41943
    77
  use "ProgLang/calculate.sml"      (*part.*)
neuper@41943
    78
  use "ProgLang/rewrite.sml"        (*part.*)
neuper@41943
    79
(*use "ProgLang/listg.sml"            2002*)
neuper@41943
    80
(*use "ProgLang/scrtools.sml"         2002*)
neuper@41943
    81
(*use "ProgLang/tools.sml"            2002*)
neuper@41943
    82
  ML {*"%%%%%%%%%%%%%%%%% end ProgLang.thy %%%%%%%%%%%%%%%%%%%%%";*}
neuper@41943
    83
  ML {*"%%%%%%%%%%%%%%%%% start Interpret.thy %%%%%%%%%%%%%%%%%%";*}
neuper@41943
    84
  use "Interpret/mstools.sml"       (*empty*)
neuper@41972
    85
  use "Interpret/ctree.sml"         (*!    *)
neuper@41972
    86
ML {*
neuper@41972
    87
*}
neuper@41943
    88
  use "Interpret/ptyps.sml"         (*    *)
neuper@41943
    89
(*use "Interpret/generate.sml"        new 2011*)
neuper@41972
    90
  use "Interpret/calchead.sml"      (*!    *)
neuper@41972
    91
  use "Interpret/appl.sml"          (*!complete*)
neuper@41972
    92
  use "Interpret/rewtools.sml"      (*!    *)
neuper@41972
    93
  use "Interpret/script.sml"        (*!TODO*)
neuper@41972
    94
(*use "Interpret/solve.sml"           !TODO*)
neuper@41972
    95
(*use "Interpret/inform.sml"          !TODO*)
neuper@41972
    96
  use "Interpret/mathengine.sml"    (*!part.*)
neuper@41943
    97
  ML {*"%%%%%%%%%%%%%%%%% end Interpret.thy %%%%%%%%%%%%%%%%%%%%";*}
neuper@41943
    98
  ML {*"%%%%%%%%%%%%%%%%% start xmlsrc.thy %%%%%%%%%%%%%%%%%%%%%";*}
neuper@41943
    99
(*use "xmlsrc/mathml.sml"             TODO*)
neuper@41943
   100
(*use "xmlsrc/datatypes.sml"          TODO*)
neuper@41943
   101
(*use "xmlsrc/pbl-met-hierarchy.sml"  TODO*)
neuper@41943
   102
(*use "xmlsrc/thy-hierarchy.sml"      TODO after 2009-2*) 
neuper@41943
   103
  use "xmlsrc/interface-xml.sml"    (*TODO after 2009-2*)
neuper@41943
   104
  ML {*"%%%%%%%%%%%%%%%%% end xmlsrc.thy %%%%%%%%%%%%%%%%%%%%%%%";*}
neuper@41943
   105
  ML {*"%%%%%%%%%%%%%%%%% start Frontend.thy %%%%%%%%%%%%%%%%%%%";*}
neuper@41943
   106
  use "Frontend/messages.sml"        (*new 2011*)
neuper@41943
   107
  use "Frontend/states.sml"          (*new 2011*)
neuper@41945
   108
  use "Frontend/interface.sml"       (*part.*)                            
neuper@41945
   109
  use         "print_exn_G.sml"      (*new 2011*)
neuper@41943
   110
  ML {*"%%%%%%%%%%%%%%%%% end Frontend.thy %%%%%%%%%%%%%%%%%%%%%";*}
neuper@41943
   111
  ML {*"%%%%%%%%%%%%%%%%% start Knowledge.thy %%%%%%%%%%%%%%%%%%";*}
neuper@41943
   112
  use "Knowledge/delete.sml"         (*new 2011*)
neuper@41943
   113
  use "Knowledge/descript.sml"       (*new 2011*)
neuper@41943
   114
(*use "Knowledge/atools.sml"           2002, added termorder.sml 2011*)
neuper@41943
   115
  use "Knowledge/simplify.sml"       (*part.*)
neuper@41943
   116
(*use "Knowledge/poly.sml"             2002*)
neuper@41947
   117
(*use "Knowledge/rational.sml"         part.; diff.emacs--jedit*)
neuper@41943
   118
(*use "Knowledge/equation.sml"         2002*)
neuper@41943
   119
(*use "Knowledge/root.sml"             2002*)
neuper@41943
   120
  use "Knowledge/lineq.sml"          (*new 2011*)
neuper@41943
   121
(*use "Knowledge/rooteq.sml"           2002*)
neuper@41943
   122
(*use "Knowledge/rateq.sml"            2002*)
neuper@41943
   123
(*use "Knowledge/rootrat.sml"          2002*)
neuper@41943
   124
(*use "Knowledge/rootrateq.sml"        2002*)
neuper@41943
   125
(*use "Knowledge/polyeq.sml"           2002*)
neuper@41956
   126
(*use "Knowledge/rlang.sml"            2002???*)
neuper@41943
   127
  use "Knowledge/calculus.sml"       (*new 2011*)
neuper@41943
   128
(*use "Knowledge/trig.sml"             2002*)
neuper@41943
   129
(*use "Knowledge/logexp.sml"           2002*)
neuper@41943
   130
  use "Knowledge/diff.sml"           (*part.*)
neuper@41947
   131
(*use "Knowledge/integrate.sml"        part. was complete 2009-2
neuper@41947
   132
                                              diff.emacs--jedit*)
neuper@41943
   133
(*use "Knowledge/eqsystem.sml"         2002*)
neuper@41943
   134
  use "Knowledge/test.sml"           (*new 2011*)
neuper@41943
   135
  use "Knowledge/polyminus.sml"      (*part.*)
neuper@41943
   136
(*use "Knowledge/vect.sml"             2002*)
neuper@41943
   137
(*use "Knowledge/diffapp.sml"          2002*)
neuper@41943
   138
(*use "Knowledge/biegelinie.sml"       2002*)
neuper@41943
   139
(*use "Knowledge/algein.sml"           2002*)
neuper@41943
   140
  use "Knowledge/diophanteq.sml"     (*complete*)
neuper@41943
   141
  use "Knowledge/isac.sml"           (*part.*)
neuper@41943
   142
  ML {*"%%%%%%%%%%%%%%%%% end Knowledge.thy %%%%%%%%%%%%%%%%%%%%";*}
neuper@41945
   143
  ML {*"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%";*}
neuper@41945
   144
  ML {*"%%%%%%%%%%%%%%%%% all tests successful %%%%%%%%%%%%%%%%%";*}
neuper@41945
   145
  ML {*"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%";*}
neuper@41943
   146
neuper@41943
   147
end
neuper@41943
   148
neuper@41943
   149
(*=== inhibit exn ?=============================================================
neuper@41943
   150
===== inhibit exn ?===========================================================*)
neuper@41943
   151
neuper@41969
   152
(*========== inhibit exn 110503 ================================================
neuper@41943
   153
neuper@41943
   154
"########### testcode inserted vvv ###########################################";
neuper@41943
   155
"########### testcode inserted ^^^ ###########################################";
neuper@41943
   156
neuper@41969
   157
============ inhibit exn 110503 ==============================================*)
neuper@41943
   158
neuper@41943
   159
(*-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.
neuper@41943
   160
-.-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.*)