test/Tools/isac/Test_Isac.thy
author Walther Neuper <wneuper@ist.tugraz.at>
Wed, 11 Apr 2018 14:44:46 +0200
changeset 59429 c0fe04973189
parent 59428 ba408e905cce
child 59449 5535bdba43b6
permissions -rwxr-xr-x
partial_function: start cleaning programs, biegelinie for paper
neuper@52065
     1
(* Title:  All tests on isac (some outcommented since Isabelle2002-->2009-2)
neuper@41943
     2
   Author: Walther Neuper 101001
wneuper@59258
     3
   (c) copyright due to license terms.
neuper@41943
     4
neuper@52101
     5
   Isac's tests are organised parallel to sources: 
neuper@52101
     6
     "~~/test/Tools/isac" has same directory structure as "~~/src/Tools/isac"
neuper@52101
     7
   plus
neuper@52065
     8
     ~~/test/Tools/isac/ADDTESTS
neuper@52101
     9
     ~~/test/Tools/isac/Minisubpbl: the Lucas-Interpreter's core functionality
wneuper@59323
    10
-------------------------------------------------------------------------------
neuper@52065
    11
wneuper@59323
    12
Prepare running tests: see below
wneuper@59323
    13
Run tests:
neuper@52065
    14
$ cd /usr/local/isabisac/
wneuper@59323
    15
$ export ISABELLE_VERSION=2015 # for libisabelle
neuper@52065
    16
$ ./bin/isabelle jedit -l Isac test/Tools/isac/Test_Isac.thy &
neuper@41943
    17
*)
neuper@41943
    18
wneuper@59258
    19
section \<open>Prepare running tests\<close>
wneuper@59258
    20
text \<open>
wneuper@59323
    21
Isac encapsulates code as much as possible in structures without open. TODO ProgLang.
wneuper@59258
    22
This policy conflicts with those tests, which go into functions to details
wneuper@59258
    23
not declared in the signatures.
wneuper@59258
    24
wneuper@59258
    25
In order to maintain these tests without changes, this has to be done before running tests:
wneuper@59323
    26
(1) Extend signatures for tests by
wneuper@59323
    27
    ~~$ ./xcoding-to-test.sh
wneuper@59323
    28
    ~~$ ./zcoding-to-test.sh  # -"- + go back to Test_Isac.thy
wneuper@59323
    29
    Running Test_Isac.thy opens all structures, see code after "begin" below.
wneuper@59323
    30
(2) Clean signatures for coding
wneuper@59323
    31
    ~~$ ./xtest-to-coding.sh
wneuper@59323
    32
    ~~$ ./xtest-to-coding.sh  # -"- + go back to coding (!update thy!)
wneuper@59323
    33
wneuper@59323
    34
********************* don't forget (2) BEFORE pushing to repository *********************
wneuper@59323
    35
wneuper@59323
    36
The above bash files accomplish query replace in src/Tools/isac:
wneuper@59261
    37
    \<clubsuit>--- ! aktivate for Test_Isac BEGIN ---\* )\<clubsuit> \<longrightarrow> \<clubsuit>--- ! aktivate for Test_Isac BEGIN ---\*)\<clubsuit>
wneuper@59261
    38
    \<clubsuit>( *\--- ! aktivate for Test_Isac END ---\<clubsuit>   \<longrightarrow> \<clubsuit>(*\--- ! aktivate for Test_Isac END ---\<clubsuit>
wneuper@59261
    39
     ^^^ in signature outcommented,                     ^^^ NOT outcommented,
wneuper@59261
    40
         this is status for coding                          this is status for tests
wneuper@59258
    41
\<close>
wneuper@59258
    42
wneuper@59366
    43
section \<open>code for copy & paste\<close>
wneuper@59366
    44
text \<open>
wneuper@59366
    45
"~~~~~ fun , args:"; val () = ();
wneuper@59366
    46
"~~~~~ and , args:"; val () = ();
wneuper@59366
    47
wneuper@59366
    48
"~~~~~ to  return val:"; val () = ();
wneuper@59366
    49
wneuper@59366
    50
\<close>
wneuper@59258
    51
section \<open>Run the tests\<close>
wneuper@59258
    52
text \<open>
wneuper@59258
    53
* say "OK" to the popup asking for theories to be loaded
wneuper@59258
    54
* watch the <Theories> window for errors in the "imports" below
wneuper@59258
    55
\<close>
neuper@52073
    56
wneuper@59410
    57
theory Test_Isac imports Build_Thydata (* note that imports are WITHOUT open struct ..*)
wneuper@59364
    58
(*/---------------------- do Minisubpbl before ADDTESTS/All_Ctxt ------------------------------\*)
neuper@52116
    59
  "ADDTESTS/accumulate-val/Thy_All"
neuper@41980
    60
  "ADDTESTS/Ctxt"
neuper@42048
    61
  "ADDTESTS/test-depend/Build_Test"
neuper@42023
    62
  "ADDTESTS/All_Ctxt"
wneuper@59202
    63
  "ADDTESTS/Test_Units"
neuper@42179
    64
  "ADDTESTS/course/phst11/T1_Basics"
neuper@42092
    65
  "ADDTESTS/course/phst11/T2_Rewriting"
neuper@42179
    66
  "ADDTESTS/course/phst11/T3_MathEngine"
neuper@52065
    67
  "ADDTESTS/file-depend/BuildC_Test"
neuper@52102
    68
  "ADDTESTS/session-get_theory/Foo"
wneuper@59144
    69
(*"ADDTESTS/course/SignalProcess/Build_Inverse_Z_Transform"
wneuper@59144
    70
   ADDTESTS/------------------------------------------- see end of tests *)
wneuper@59194
    71
(*"~~/test/Pure/Isar/Test_Parsers"           dropped Isabelle2014-->2015 *)
neuper@52089
    72
(*"~~/test/Pure/Isar/Pure/Isar/Struct_Deriv" lost at update 2009-2-->2011*)
neuper@52073
    73
  "~~/test/Pure/Isar/Test_Parse_Term"
wneuper@59364
    74
(*/---------------------- do Minisubpbl before ADDTESTS/All_Ctxt ------------------------------\*)
neuper@55364
    75
  "~~/test/Tools/isac/Interpret/ptyps"       (* setup for ptyps.sml    *)
neuper@55366
    76
  "~~/test/Tools/isac/ProgLang/calculate"    (* setup for calculate.sml*)
wneuper@59388
    77
wneuper@59388
    78
wneuper@59388
    79
wneuper@59362
    80
  "~~/test/Tools/isac/ProgLang/scrtools"     (* setup for scrtools.sml *)
s1210629013@55377
    81
  "~~/test/Tools/isac/Knowledge/integrate"   (* setup for integrate.sml*)
wneuper@59364
    82
(*\---------------------- do Minisubpbl before ADDTESTS/All_Ctxt ------------------------------/*)
neuper@52168
    83
  "~~/src/Tools/isac/Knowledge/GCD_Poly_OLD" (*not imported by Isac.thy*)
neuper@52168
    84
  "~~/src/Tools/isac/Knowledge/GCD_Poly_FP"  (*not imported by Isac.thy*)
wneuper@59364
    85
(*\---------------------- do Minisubpbl before ADDTESTS/All_Ctxt ------------------------------/*)
neuper@52168
    86
neuper@41943
    87
begin
s1210629013@55442
    88
s1210629013@55446
    89
ML {*
wneuper@59258
    90
(*/-------------------------------------------------------- ! aktivate for Test_Isac BEGIN ---\*)
wneuper@59318
    91
                      (* these vvv test, if funs are intermediately opened in structure 
wneuper@59318
    92
                         in case of errors here consider ~~/./xtest-to-coding.sh      *)
wneuper@59261
    93
  open Kernel;
wneuper@59262
    94
  open Math_Engine;            CalcTreeTEST;
wneuper@59262
    95
  open Lucin;                  appy;
wneuper@59262
    96
  open Inform;                 cas_input;
wneuper@59263
    97
  open Rtools;                 trtas2str;
wneuper@59265
    98
  open Chead;                  pt_extract;
wneuper@59316
    99
  open Generate;               (* NONE *)
wneuper@59276
   100
  open Ctree;                  append_problem;
wneuper@59269
   101
  open Specify;                show_ptyps;
wneuper@59316
   102
  open Applicable;             mk_set;
wneuper@59316
   103
  open Solve;                  (* NONE *)
wneuper@59299
   104
  open Selem;                  e_fmz;
wneuper@59308
   105
  open Stool;                  transfer_asms_from_to;
wneuper@59316
   106
  open Tac;                    (* NONE *)
wneuper@59316
   107
  open Model;                  (* NONE *)
wneuper@59384
   108
  open LTool;                  rule2stac;
wneuper@59384
   109
  open Rewrite;                mk_thm;
wneuper@59388
   110
  open Calc;                   get_pair;
wneuper@59410
   111
  open TermC;                  atomt;
wneuper@59417
   112
  open Celem;                  e_pbt;
wneuper@59417
   113
  open Rule;                   string_of_thm;
wneuper@59258
   114
(*\--- ! aktivate for Test_Isac END ----------------------------------------------------------/*)
wneuper@59258
   115
*}
wneuper@59366
   116
wneuper@59258
   117
ML {*
wneuper@59366
   118
"~~~~~ fun xxx, args:"; val () = ();
wneuper@59356
   119
*} ML {*
wneuper@59356
   120
*} ML {*
wneuper@59356
   121
*}
wneuper@59356
   122
wneuper@59356
   123
ML {*
s1210629013@55446
   124
  KEStore_Elems.set_ref_thy @{theory};
wneuper@59248
   125
  (*fun autoCalculate' cI auto = autoCalculate cI auto (*|> Future.join*)*);
s1210629013@55446
   126
*}
s1210629013@55442
   127
wneuper@59372
   128
(*---------------------- check test file by testfile -------------------------------------------
wneuper@59372
   129
  ---------------------- check test file by testfile -------------------------------------------*)
neuper@52119
   130
section {* trials with Isabelle's functions *}
neuper@52119
   131
  ML {*"%%%%%%%%%%%%%%%%% start Isabelle %%%%%%%%%%%%%%%%%%%%%%%";*}
neuper@52119
   132
  ML_file "~~/test/Pure/General/alist.ML"
neuper@52119
   133
  ML_file "~~/test/Pure/General/basics.ML"
neuper@52119
   134
  ML_file "~~/test/Pure/General/scan.ML"
wneuper@59115
   135
  ML_file "~~/test/Pure/PIDE/xml.ML"
neuper@52119
   136
  ML {*"%%%%%%%%%%%%%%%%% end Isabelle %%%%%%%%%%%%%%%%%%%%%%%%%";*}
neuper@52119
   137
neuper@48895
   138
section {* test ML Code of isac *}
neuper@48895
   139
  ML {*"%%%%%%%%%%%%%%%%% start ProgLang.thy %%%%%%%%%%%%%%%%%%%";*}
neuper@52065
   140
  ML_file          "library.sml"
neuper@52065
   141
  ML_file          "calcelems.sml"
wneuper@59356
   142
(*---------------------- do Minisubpbl before ADDTESTS/All_Ctxt --------------------------------
wneuper@59388
   143
  ---------------------- do Minisubpbl before ADDTESTS/All_Ctxt --------------------------------*)
wneuper@59356
   144
  ML_file          "kestore.sml"        (* setup in ADDTEST/accumulate-val/lucas_interpreter.sml*)
wneuper@59357
   145
  ML_file "ProgLang/termC.sml"
wneuper@59359
   146
  ML_file "ProgLang/calculate.sml"      (* requires setup from calculate.thy                    *)
wneuper@59358
   147
  ML_file "ProgLang/rewrite.sml"
neuper@52148
   148
  ML_file "ProgLang/listC.sml"
neuper@52065
   149
  ML_file "ProgLang/scrtools.sml"
neuper@52065
   150
  ML_file "ProgLang/tools.sml"
wneuper@59362
   151
(*---------------------- do Minisubpbl before ADDTESTS/All_Ctxt --------------------------------
wneuper@59366
   152
  ---------------------- do Minisubpbl before ADDTESTS/All_Ctxt --------------------------------*)
neuper@41943
   153
  ML {*"%%%%%%%%%%%%%%%%% end ProgLang.thy %%%%%%%%%%%%%%%%%%%%%";*}
neuper@41986
   154
  ML {*"%%%%%%%%%%%%%%%%% start Minisubpbl %%%%%%%%%%%%%%%%%%%%%";*}
neuper@52065
   155
  ML_file "Minisubpbl/000-comments.sml"
neuper@52065
   156
  ML_file "Minisubpbl/100-init-rootpbl.sml"
neuper@52065
   157
  ML_file "Minisubpbl/150-add-given.sml"
neuper@52065
   158
  ML_file "Minisubpbl/200-start-method.sml"
wneuper@59411
   159
  ML_file "Minisubpbl/250-Rewrite_Set-from-method.sml"
neuper@52065
   160
  ML_file "Minisubpbl/300-init-subpbl.sml"
neuper@52065
   161
  ML_file "Minisubpbl/400-start-meth-subpbl.sml"
neuper@52065
   162
  ML_file "Minisubpbl/490-nxt-Check_Postcond.sml"
neuper@52065
   163
  ML_file "Minisubpbl/500-met-sub-to-root.sml"
neuper@52065
   164
  ML_file "Minisubpbl/530-error-Check_Elementwise.sml"
neuper@52065
   165
  ML_file "Minisubpbl/600-postcond.sml"
akargl@42188
   166
  ML {*"%%%%%%%%%%%%%%%%% end Minisubpbl.thy %%%%%%%%%%%%%%%%%%%%%%%";*}
wneuper@59364
   167
  ML {*"%%%%%%%%%%%%%%%%% start Interpret.thy %%%%%%%%%%%%%%%%%%";*}
neuper@52065
   168
  ML_file "Interpret/mstools.sml"
neuper@52065
   169
  ML_file "Interpret/ctree.sml"         (*!...!see(25)*)
neuper@55364
   170
  ML_file "Interpret/ptyps.sml"         (* requires setup from ptyps.thy *)
neuper@48891
   171
  ML {* (*check_unsynchronized_ref (); ==== trick on error: CUT AND PASTE THIS LINE =========*) *}
neuper@52065
   172
  ML_file "Interpret/generate.sml"
neuper@52065
   173
  ML_file "Interpret/calchead.sml"
wneuper@59252
   174
  ML_file "Interpret/appl.sml"          (*complete "WEGEN INTERMED TESTCODE"   *)
wneuper@55498
   175
  ML_file "Interpret/rewtools.sml"
neuper@52065
   176
  ML_file "Interpret/script.sml"
neuper@52065
   177
  ML_file "Interpret/solve.sml"
neuper@52065
   178
  ML_file "Interpret/inform.sml"
neuper@52105
   179
  ML_file "Interpret/mathengine.sml"    (*!part. WN130804: +check Interpret/me.sml*)
neuper@41943
   180
  ML {*"%%%%%%%%%%%%%%%%% end Interpret.thy %%%%%%%%%%%%%%%%%%%%";*}
neuper@41943
   181
  ML {*"%%%%%%%%%%%%%%%%% start xmlsrc.thy %%%%%%%%%%%%%%%%%%%%%";*}
neuper@52065
   182
  ML_file "xmlsrc/mathml.sml"           (*part.*)
neuper@52065
   183
  ML_file "xmlsrc/datatypes.sml"        (*TODO/part.*)
neuper@52065
   184
  ML_file "xmlsrc/pbl-met-hierarchy.sml"(*TODO after 2009-2/part.*)
neuper@55408
   185
  ML_file "xmlsrc/thy-hierarchy.sml"
wneuper@59429
   186
  ML_file "xmlsrc/interface-xml.sml"     (*TODO after 2009-2*)
neuper@41943
   187
  ML {*"%%%%%%%%%%%%%%%%% end xmlsrc.thy %%%%%%%%%%%%%%%%%%%%%%%";*}
neuper@41943
   188
  ML {*"%%%%%%%%%%%%%%%%% start Frontend.thy %%%%%%%%%%%%%%%%%%%";*}
neuper@52065
   189
  ML_file "Frontend/messages.sml"
neuper@52065
   190
  ML_file "Frontend/states.sml"
neuper@52065
   191
  ML_file "Frontend/interface.sml"
neuper@52112
   192
  ML_file "Frontend/use-cases.sml"
neuper@48895
   193
(*WITHOUT inhibit exn WN1130621 Isabelle2012-->13 !thehier! THIS ERROR OCCURS:
neuper@48895
   194
  ... SAME ERROR HERE ON ISABELLE2012 AS IN ISAC ON ISABELLE2011*)
neuper@52065
   195
  ML_file          "print_exn_G.sml"
neuper@41943
   196
  ML {*"%%%%%%%%%%%%%%%%% end Frontend.thy %%%%%%%%%%%%%%%%%%%%%";*}
neuper@48895
   197
  ML {*"%%%%%%%%%%%%%%%%% start Knowledge %%%%%%%%%%%%%%%%%%%%%%";*}
neuper@52065
   198
  ML_file "Knowledge/delete.sml"
neuper@52065
   199
  ML_file "Knowledge/descript.sml"
neuper@52065
   200
  ML_file "Knowledge/atools.sml"
neuper@52065
   201
  ML_file "Knowledge/simplify.sml"
neuper@52065
   202
  ML_file "Knowledge/poly.sml"
wneuper@59370
   203
  ML_file "Knowledge/gcd_poly_ml.sml"
wneuper@59370
   204
  ML_file "Knowledge/gcd_poly_winkler.sml" (*must be after gcd_poly_ml.sml: redefines functions*)
wneuper@59370
   205
  ML_file "Knowledge/rational.sml"
wneuper@59370
   206
  ML_file "Knowledge/equation.sml"
wneuper@59370
   207
  ML_file "Knowledge/root.sml"
wneuper@59370
   208
  ML_file "Knowledge/lineq.sml"
wneuper@59370
   209
(*ML_file "Knowledge/rooteq.sml"    some complicated equations not recovered from 2002 *)
wneuper@59370
   210
  ML_file "Knowledge/rateq.sml"   (*some complicated equations not recovered from 2002 *)
wneuper@59370
   211
  ML_file "Knowledge/rootrat.sml"
wneuper@59370
   212
  ML_file "Knowledge/rootrateq.sml"(*ome complicated equations not recovered from 2002 *)
neuper@52065
   213
  ML_file "Knowledge/partial_fractions.sml"
neuper@52105
   214
  ML_file "Knowledge/polyeq.sml"
neuper@52105
   215
(*ML_file "Knowledge/rlang.sml"     much to clean up, similar tests in other files     *)
neuper@52065
   216
  ML_file "Knowledge/calculus.sml"
neuper@52065
   217
  ML_file "Knowledge/trig.sml"
neuper@52065
   218
(*ML_file "Knowledge/logexp.sml"    not included as stuff for presentation of authoring*) 
neuper@52065
   219
  ML_file "Knowledge/diff.sml"
neuper@52065
   220
  ML_file "Knowledge/integrate.sml"
neuper@52065
   221
  ML_file "Knowledge/eqsystem.sml"
neuper@52065
   222
  ML_file "Knowledge/test.sml"
neuper@52065
   223
  ML_file "Knowledge/polyminus.sml"
neuper@52065
   224
  ML_file "Knowledge/vect.sml"
neuper@52065
   225
  ML_file "Knowledge/diffapp.sml"        (* postponed to dev. specification | TP-prog. *)
wneuper@59372
   226
  ML_file "Knowledge/biegelinie-1.sml"
wneuper@59412
   227
(*ML_file "Knowledge/biegelinie-2.sml" since Isabelle2017: "exception Size raised" *)
neuper@52065
   228
  ML_file "Knowledge/algein.sml"
neuper@52065
   229
  ML_file "Knowledge/diophanteq.sml"
neuper@52065
   230
  ML_file "Knowledge/Inverse_Z_Transform/inverse_z_transform.sml"
wneuper@59232
   231
  ML_file "Knowledge/inssort.sml"
neuper@52065
   232
  ML_file "Knowledge/isac.sml"
neuper@52065
   233
  ML_file "Knowledge/build_thydata.sml"
neuper@48895
   234
  ML {*"%%%%%%%%%%%%%%%%% end Knowledge %%%%%%%%%%%%%%%%%%%%%%%%";*}
wneuper@59144
   235
  ML {*"%%%%%%%%%%%%%%%%% start ADDTESTS %%%%%%%%%%%%%%%%%%%%%%%";*}
wneuper@59144
   236
  ML_file "~~/test/Tools/isac/ADDTESTS/libisabelle/mini-test.sml"
wneuper@59175
   237
  ML_file "~~/test/Tools/isac/ADDTESTS/libisabelle/protocol.sml"
wneuper@59144
   238
  ML {*"%%%%%%%%%%%%%%%%% end ADDTESTS %%%%%%%%%%%%%%%%%%%%%%%%%";*}
wneuper@59144
   239
wneuper@59144
   240
  ML {*"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%";*}
wneuper@59144
   241
  ML {*"%%%%%%%%%%%%%%%%% end Test_Isac %%%%%%%%%%%%%%%%%%%%%%%%";*}
neuper@41945
   242
  ML {*"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%";*}
neuper@41943
   243
neuper@48895
   244
section {* history of tests *}
neuper@48895
   245
text {*
neuper@48895
   246
  Systematic regression tests have been introduced to isac development in 2003.
neuper@52139
   247
  Sanity of the regression tests suffers from updates following Isabelle development,
neuper@48895
   248
  which mostly exceeded the resources available in isac's development.
neuper@48895
   249
neuper@48895
   250
  The survey below shall support to efficiently use the tests for isac 
neuper@48895
   251
  on different Isabelle versions. Conclusion in most cases will be: 
neuper@48895
   252
neuper@48895
   253
  !!! Use most recent tests or go back to the old notebook
neuper@48895
   254
      with isac on Isabelle2002. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
neuper@48895
   255
*}
neuper@48895
   256
wneuper@59323
   257
wneuper@59323
   258
subsection {* isac on Isabelle2015 *}
wneuper@59323
   259
subsubsection {* Summary of development *}
wneuper@59323
   260
text {*
wneuper@59373
   261
  * Add signatures from top of thy-hierarchy down to Interpret (not ProgLang).
wneuper@59323
   262
    This complicates Test_Isac, see "Prepare running tests" above.
wneuper@59323
   263
  * Remove TTY interface.
wneuper@59323
   264
  * Re-activate insertion sort.
wneuper@59323
   265
*}
wneuper@59323
   266
subsubsection {* State of tests: unchanged *}
wneuper@59323
   267
subsubsection {* Changesets of begin and end *}
wneuper@59323
   268
text {*
wneuper@59323
   269
  last changeset with Test_Isac 2f1b2854927a
wneuper@59323
   270
  first changeset with Test_Isac ???
wneuper@59323
   271
*}
wneuper@59323
   272
wneuper@59120
   273
subsection {* isac on Isabelle2014 *}
wneuper@59120
   274
subsubsection {* Summary of development *}
wneuper@59120
   275
text {*
wneuper@59120
   276
  migration from "isabelle tty" --> libisabelle
wneuper@59120
   277
*}
wneuper@59120
   278
neuper@55319
   279
subsection {* isac on Isabelle2013-2 *}
neuper@55319
   280
subsubsection {* Summary of development *}
neuper@55319
   281
text {*
wneuper@55500
   282
  reactivated context_thy
neuper@55319
   283
*}
neuper@55319
   284
subsubsection {* State of tests *}
neuper@55319
   285
text {*
neuper@55319
   286
  TODO
neuper@55319
   287
*}
neuper@55319
   288
subsubsection {* Changesets of begin and end *}
neuper@55319
   289
text {*
neuper@55319
   290
  TODO
neuper@55319
   291
  :
neuper@55319
   292
  : isac on Isablle2013-2
neuper@55319
   293
  :
neuper@55319
   294
  Changeset: 55318 (03826ceb24da) merged
neuper@55319
   295
  User: Walther Neuper <neuper@ist.tugraz.at>
neuper@55319
   296
  Date: 2013-12-12 14:27:37 +0100 (7 minutes)
neuper@55319
   297
*}
neuper@55319
   298
neuper@55284
   299
subsection {* isac on Isabelle2013-1 *}
neuper@55284
   300
subsubsection {* Summary of development *}
neuper@55284
   301
text {*
neuper@55284
   302
  Isabelle2013-1 was replaced within a few weeks due to problems with the document model;
neuper@55284
   303
  no significant development steps for ISAC.
neuper@55284
   304
*}
neuper@55284
   305
subsubsection {* State of tests *}
neuper@55284
   306
text {*
neuper@55284
   307
  See points in subsection "isac on Isabelle2011", "State of tests".
neuper@55284
   308
*}
neuper@55284
   309
subsubsection {* Changesets of begin and end *}
neuper@55284
   310
text {*
neuper@55284
   311
  Changeset: 55283 (d6e9a34e7142) notes for resuming work on Polynomial.thy
neuper@55284
   312
  User: Walther Neuper <neuper@ist.tugraz.at>
neuper@55284
   313
  Date: 2013-12-03 18:13:31 +0100 (8 days)
neuper@55284
   314
  :
neuper@55284
   315
  : isac on Isablle2013-1
neuper@55284
   316
  :
neuper@55284
   317
  Changeset: 55279 (130688f277ba) Isabelle2013 --> 2013-1: Test_Isac perfect
neuper@55284
   318
  User: Walther Neuper <neuper@ist.tugraz.at>
neuper@55284
   319
  Date: 2013-11-21 18:12:17 +0100 (2 weeks)
neuper@55284
   320
neuper@55284
   321
*}
neuper@55284
   322
neuper@48895
   323
subsection {* isac on Isabelle2013 *}
neuper@48895
   324
subsubsection {* Summary of development *}
neuper@48895
   325
text {*
neuper@52150
   326
  # Oct.13: replaced "axioms" by "axiomatization"
neuper@52150
   327
  # Oct.13: Mathias Lehnfeld started removing Unsynchornized.ref
neuper@52106
   328
  # Sep.13: integrated gcd_poly (functional, without Unsychronized.ref) into
neuper@52106
   329
    simplification of multivariate rationals (without improving the rulesets involved).
neuper@48895
   330
*}
neuper@48895
   331
subsubsection {* Run tests *}
neuper@48895
   332
text {*
neuper@52150
   333
  Is standard now; this subsection will be discontinued under Isabelle2013-1
neuper@48895
   334
*}
neuper@48895
   335
subsubsection {* State of tests *}
neuper@48895
   336
text {*
neuper@52150
   337
  See points in subsection "isac on Isabelle2011", "State of tests".
neuper@52150
   338
  # re-activated listC.sml
neuper@48895
   339
*}
neuper@48895
   340
subsubsection {* Changesets of begin and end *}
neuper@48895
   341
text {*
neuper@52175
   342
  changeset 52174:8b055b17bd84 --- removed all code concerned with "castab = Unsynchronized.ref"
neuper@52175
   343
  User: Mathias Lehnfeld <s1210629013@students.fh-hagenberg.at>
neuper@52175
   344
  Date: Tue Nov 19 22:23:30 2013 +0000
neuper@52079
   345
  :
neuper@52079
   346
  : isac on Isablle2013 
neuper@52079
   347
  :
neuper@52079
   348
  Changeset: 52061 (4ecea2fcdc2c) --- Build_Isac.thy runs on Isabelle2013
neuper@52079
   349
  User: Walther Neuper <neuper@ist.tugraz.at>
neuper@52079
   350
  Date: 2013-07-15 08:28:50 +0200 (4 weeks)
neuper@48895
   351
*}
neuper@48895
   352
neuper@48895
   353
subsection {* isac on Isabelle2012 *}
neuper@48895
   354
subsubsection {* Summary of development *}
neuper@48895
   355
text {*
neuper@48895
   356
  isac on Isabelle2012 is considered just a transitional stage
neuper@48895
   357
  within the update from Isabelle2011 to Isabelle2013; thus no further development of isac;
neuper@48895
   358
  For considerations on the transition see 
neuper@48895
   359
  ~~/src/Tools/isac/Knowledge/Build_Thydata/thy, section "updating isac..".
neuper@48895
   360
*}
neuper@48895
   361
subsubsection {* Run tests *}
neuper@48895
   362
text {*
neuper@48895
   363
$ cd /usr/local/isabisac12/
neuper@48895
   364
$ ./bin/isabelle jedit -l HOL src/Tools/isac/Build_Isac.thy
neuper@48895
   365
$ ./bin/isabelle jedit -l Isac test/Tools/isac/Test_Isac.thy
neuper@48895
   366
*}
neuper@48895
   367
subsubsection {* State of tests *}
neuper@48895
   368
text {*
neuper@48895
   369
  At least the tests from isac on Isabelle2011 run again.
neuper@48895
   370
  However, Test_Isac.thy shows erratic behaviour; no errors are obtained when scrolling 
neuper@48895
   371
  in parallel with evaluation.
neuper@48895
   372
neuper@48895
   373
  Counting "error in kernel" for Frontend/interface.sml (the tests considered most significant)
neuper@48895
   374
  yields 69 hits, some of which were already present before Isabelle2002-->2009-2
neuper@48895
   375
  (i.e. on the old notebook from 2002).
neuper@48895
   376
neuper@48895
   377
  Now many tests with (*...=== inhibit exn ...*) give a reason or at least the origin:
neuper@48895
   378
  # === inhibit exn WN1130621 Isabelle2012-->13 !thehier! === ...see Build_Thydata.thy
neuper@48895
   379
  # === inhibit exn AK110726 === ...reliable work by Alexander Kargl, most likely go back to 2002
neuper@48895
   380
  # === inhibit exn WN1130701 broken at Isabelle2002 --> 2009-2 === , most likely go back to 2002
neuper@48895
   381
  Reasons for outcommented tests are also found in Test_Isac.thy near the respective file.sml.
neuper@48895
   382
neuper@48895
   383
  Some tests have been re-activated (e.g. error patterns, fill patterns).
neuper@48895
   384
*}
neuper@48895
   385
subsubsection {* Changesets of begin and end *}
neuper@52079
   386
text {*  
neuper@52079
   387
  Changeset: 52051 (35751d90365e) end of improving tests for isac on Isabelle2012
neuper@52079
   388
  User: Walther Neuper <neuper@ist.tugraz.at>
neuper@52079
   389
  Date: 2013-07-11 16:58:31 +0200 (4 weeks)
neuper@48895
   390
  :
neuper@48895
   391
  : isac on Isablle2012 
neuper@48895
   392
  :
neuper@48895
   393
  Changeset: 48757 (74eb3dfc33cc) updated src from Isabelle2011 to Isabelle2012
neuper@48895
   394
  User: Walther Neuper <neuper@ist.tugraz.at>
neuper@48895
   395
  Date: 2012-09-24 18:35:13 +0200 (8 months)
neuper@48895
   396
  ------------------------------------------------------------------------------
neuper@48895
   397
  Changeset: 48756 (7443906996a8) merged
neuper@48895
   398
  User: Walther Neuper <neuper@ist.tugraz.at>
neuper@48895
   399
  Date: 2012-09-24 18:15:49 +0200 (8 months)
neuper@48895
   400
*}
neuper@48895
   401
neuper@48895
   402
subsection {* isac on Isabelle2011 *}
neuper@48895
   403
subsubsection {* Summary of development *}
neuper@48895
   404
text {*
neuper@48895
   405
  isac's mathematics engine has been extended by two developments:
neuper@48895
   406
  (1) Isabelle's contexts were introduced by Mathias Lehnfeld
neuper@52150
   407
  (2) Z_Transform was introduced by Jan Rocnik, which revealed
neuper@52150
   408
    further errors introduced by (1).
neuper@52150
   409
  (3) "error patterns" were introduced by Gabriella Daroczy
neuper@52150
   410
  Regressions tests have been added for all of these.
neuper@48895
   411
*}
neuper@48895
   412
subsubsection {* Run tests *}
neuper@48895
   413
text {*
neuper@48895
   414
  $ cd /usr/local/isabisac11/
neuper@48895
   415
  $ ./bin/isabelle jedit -l HOL src/Tools/isac/Build_Isac.thy
neuper@48895
   416
  $ ./bin/isabelle jedit -l Isac test/Tools/isac/Test_Isac.thy
neuper@48895
   417
*}
neuper@48895
   418
subsubsection {* State of tests *}
neuper@48895
   419
text {* 
neuper@48895
   420
  Systematic efforts outcommented less significant tests by (*...=== inhibit exn ...*) 
neuper@48895
   421
  and sometimes give reasons for failing tests.
neuper@48895
   422
  (*...=== inhibit exn AK...*) was done by Alexander Kargl; this is reliable
neuper@48895
   423
  work, some of which couldn't be revised (and renamed) by WN and thus survived some time.
neuper@48895
   424
neuper@48895
   425
  The most signification tests (in particular Frontend/interface.sml) run,
neuper@48895
   426
  however, many "error in kernel" are not caught by an exception.
neuper@48895
   427
  ------------------------------------------------------------------------------
neuper@48895
   428
  After the changeset below Test_Isac worked with check_unsynchronized_ref ():
neuper@48895
   429
  ------------------------------------------------------------------------------
neuper@48895
   430
  Changeset: 42457 (ca691a84b81a) PROVISIONALLY MADE TESTS RUN with Unsynchronized.ref
neuper@48895
   431
  User: Walther Neuper <neuper@ist.tugraz.at>
neuper@48895
   432
  Date: 2012-08-06 10:38:11 +0200 (11 months)
neuper@52150
   433
neuper@52150
   434
neuper@52150
   435
  The list below records TODOs while producing an ISAC kernel for 
neuper@52150
   436
  gdaroczy and jrocnik, wich could NOT be done before all tests are RUNNING
neuper@52150
   437
  (so to be resumed with Isabelle2013-1):
neuper@52150
   438
  ############## WNxxxxxx.TODO can be found in sources ##############
neuper@52150
   439
  --------------------------------------------------------------------------------
neuper@52150
   440
  WN111013.TODO: lots of cleanup/removal in test/../Test.thy
neuper@52150
   441
  --------------------------------------------------------------------------------
neuper@52150
   442
  WN111013.TODO: remove concept around "fun init_form", lots of troubles with 
neuper@52150
   443
  this special case (see) --- why not nxt = Model_Problem here ? ---
neuper@52150
   444
  --------------------------------------------------------------------------------
neuper@52150
   445
  WN111014.TODO calculate_Poly < calculate_Rational < calculate_RootRat, see test/
neuper@52150
   446
  ... FIRST redesign 
neuper@52150
   447
  # simplify_* , *_simp_* 
neuper@52150
   448
  # norm_* 
neuper@52150
   449
  # calc_* , calculate_*  ... require iteration over all rls ...
neuper@52150
   450
  ... see --- val rls = calculate_RootRat > calculate_Rational --- CONTINUE !
neuper@52150
   451
  --------------------------------------------------------------------------------
neuper@52150
   452
  WN111014.TODO fun prep_rls | !!!use this function in ruleset' := !!!
neuper@52150
   453
  --------------------------------------------------------------------------------
neuper@52150
   454
  WN120314 changeset a393bb9f5e9f drops root equations.
neuper@52150
   455
  see test/Tools/isac/Knowledge/rootrateq.sml 
neuper@52150
   456
  --------------------------------------------------------------------------------
neuper@52150
   457
  WN120317.TODO changeset 977788dfed26 dropped rateq:
neuper@52150
   458
  # test --- repair NO asms from rls RatEq_eliminate --- shows error from 2002
neuper@52150
   459
  # test --- solve (1/x = 5, x) by me --- and --- x / (x ^ 2 - 6 * x + 9) - ...:    
neuper@52150
   460
    investigation Check_elementwise stopped due to too much effort finding out,
neuper@52150
   461
    why Check_elementwise worked in 2002 in spite of the error.
neuper@52150
   462
  --------------------------------------------------------------------------------
neuper@52150
   463
  WN120317.TODO postponed test/../ratinal,ratinal2.sml to joint work with dmeindl 
neuper@52150
   464
  --------------------------------------------------------------------------------
neuper@52150
   465
  WN120317.TODO found by test --- interSteps for Schalk 299a --- that 
neuper@52150
   466
    NO test with 'interSteps' is checked properly (with exn on changed behaviour)
neuper@52150
   467
  --------------------------------------------------------------------------------
neuper@52150
   468
  WN120317.TODO test --- Matthias Goldgruber 2003 rewrite orders --- has
neuper@52150
   469
    a newly outcommented test where rewrite_set_ make_polynomial --> NONE
neuper@52150
   470
  --------------------------------------------------------------------------------
neuper@52150
   471
  WN120320.TODO check-improve rlsthmsNOTisac:
neuper@52150
   472
  DONE make test --- old compute rlsthmsNOTisac by eq_thmI'
neuper@52150
   473
  DONE compare rlsthmsNOTisac in thms-survey-Isa02-Isa09-2.sml .. Isac.thy 
neuper@52150
   474
  FOUND 120321: Theory.axioms_of doesnt find LENGTH_CONS etc, thus are in Isab
neuper@52150
   475
  # mark twice thms (in isac + (later) in Isabelle) in Isac.thy
neuper@52150
   476
  --------------------------------------------------------------------------------
neuper@52150
   477
  WN120320.TODO rlsthmsNOTisac: replace twice thms ^
neuper@52150
   478
  --------------------------------------------------------------------------------
neuper@52150
   479
  WN120320.TODO rlsthmsNOTisac: reconsider design of sym_* thms, see test
neuper@52150
   480
  --- OLD compute rlsthmsNOTisac by eq_thmID ---: some are in isab, some in isac.
neuper@52150
   481
  --------------------------------------------------------------------------------
neuper@52150
   482
  WN120321.TODO rearrange theories:
neuper@52150
   483
    Knowledge
neuper@52150
   484
      :
neuper@52150
   485
      Atools.thy
neuper@52150
   486
      ///Descript.thy --> ProgLang
neuper@52150
   487
      Delete.thy   <--- first_Knowledge_thy (*mv to Atools.thy*)
neuper@52150
   488
    ProgLang: restructure Build_Isac.thy such that no xmlsrc.thy, ProgLang.thy
neuper@52150
   489
          Interpret.thy are generated (simplifies xml structure for theories)
neuper@52150
   490
      Script.thy
neuper@52150
   491
      Tools.thy
neuper@52150
   492
      ListC.thy    <--- first_Proglang_thy
neuper@52150
   493
  --------------------------------------------------------------------------------
neuper@52150
   494
  WN120321.TODO reanimate test/../simplify.sml: CAS-command Simplify
neuper@52150
   495
      EXN "simplify.sml: diff.behav. CAScmd: Simplify (2*a + 3*a)"
neuper@52150
   496
  broken during work on thy-hierarchy
neuper@52150
   497
  --------------------------------------------------------------------------------
neuper@52150
   498
  WN120321.TODO LAST in IsacScripts + in IsacKnowledge, see
neuper@55421
   499
  test --- the_hier (get_thes ()) (collect_thydata ())---
neuper@52150
   500
  --------------------------------------------------------------------------------
neuper@52150
   501
  WN120405a.TODO src/../pbl-met-hierarchy.sml: fun pbl2term--> Isac' instead Isac_
neuper@52150
   502
  !!add mutual crossreferences to ?fun headline??? where the same has to be done:
neuper@52150
   503
  !!OR BETTER: use only 2 functions for adding/removing "'" to/from thy!!
neuper@52150
   504
  --------------------------------------------------------------------------------
neuper@52150
   505
  WN120409.TODO replace "op mem" (2002) with member (2011) ... 
neuper@52150
   506
  ... an exercise interesting for beginners !
neuper@52150
   507
  --------------------------------------------------------------------------------
neuper@52150
   508
  WN120411 scanning html representation of newly generated knowledge:
neuper@52150
   509
  * thy:
neuper@52150
   510
  ** Theorems: only "Proof of the theorem" (correct!)
neuper@52150
   511
               and "(c) isac-team (math-autor)"
neuper@52150
   512
  ** Rulesets: only "Identifier:///"
neuper@52150
   513
               and "(c) isac-team (math-autor)"
neuper@52150
   514
  ** IsacKnowledge: link to dependency graph (which needs to be created first)
neuper@52150
   515
  ** IsacScripts --> ProgramLanguage
neuper@52150
   516
  *** Tools: Theorems: arity_type_cp, arity_type_nam, ... wegnehmen
neuper@52150
   517
  
neuper@52150
   518
  * pbl: OK !?!
neuper@52150
   519
  * met: OK !?!
neuper@52150
   520
  * exp: 
neuper@52150
   521
  ** Z-Transform is missing !!!
neuper@52150
   522
  ** type-constraints !!!
neuper@52150
   523
  --------------------------------------------------------------------------------
neuper@52150
   524
  WN120417: merging xmldata revealed:
neuper@52150
   525
  ..............NEWLY generated:........................................
neuper@52150
   526
  <THEOREMDATA>
neuper@52150
   527
    <GUH> thy_isab_Fun-thm-o_apply </GUH>
neuper@52150
   528
    <STRINGLIST>
neuper@52150
   529
      <STRING> Isabelle </STRING>
neuper@52150
   530
      <STRING> Fun </STRING>
neuper@52150
   531
      <STRING> Theorems </STRING>
neuper@52150
   532
      <STRING> o_apply </STRING>
neuper@52150
   533
    </STRINGLIST>
neuper@52150
   534
      <MATHML>
neuper@52150
   535
        <ISA> (?f o ?g) ?x = ?f (?g ?x) </ISA>
neuper@52150
   536
      </MATHML>  <PROOF>
neuper@52150
   537
      <EXTREF>
neuper@52150
   538
        <TEXT> Proof of the theorem </TEXT>
neuper@52150
   539
        <URL> http://www.ist.tugraz.at/projects/isac/www/kbase/thy/browser_info/HOL/HOL-Real/Isac/Fun.html </URL>
neuper@52150
   540
      </EXTREF>
neuper@52150
   541
    </PROOF>
neuper@52150
   542
    <EXPLANATIONS> </EXPLANATIONS>
neuper@52150
   543
    <MATHAUTHORS>
neuper@52150
   544
      <STRING> Isabelle team, TU Munich </STRING>
neuper@52150
   545
    </MATHAUTHORS>
neuper@52150
   546
    <COURSEDESIGNS>
neuper@52150
   547
    </COURSEDESIGNS>
neuper@52150
   548
  </THEOREMDATA>
neuper@52150
   549
  ..............OLD FORMAT:.............................................
neuper@52150
   550
  <THEOREMDATA>
neuper@52150
   551
    <GUH> thy_isab_Fun-thm-o_apply </GUH>
neuper@52150
   552
    <STRINGLIST>
neuper@52150
   553
      <STRING> Isabelle </STRING>
neuper@52150
   554
      <STRING> Fun </STRING>
neuper@52150
   555
      <STRING> Theorems </STRING>
neuper@52150
   556
      <STRING> o_apply </STRING>
neuper@52150
   557
    </STRINGLIST>
neuper@52150
   558
    <THEOREM>
neuper@52150
   559
      <ID> o_apply </ID>
neuper@52150
   560
      <MATHML>
neuper@52150
   561
        <ISA> (?f o ?g) ?x = ?f (?g ?x) </ISA>
neuper@52150
   562
      </MATHML>
neuper@52150
   563
    </THEOREM>
neuper@52150
   564
    <PROOF>
neuper@52150
   565
      <EXTREF>
neuper@52150
   566
        <TEXT> Proof of the theorem </TEXT>
neuper@52150
   567
        <URL> http://www.ist.tugraz.at/projects/isac/www/kbase/thy/browser_info/HOL/HOL-Real/Isac/Fun.html </URL>
neuper@52150
   568
      </EXTREF>
neuper@52150
   569
    </PROOF>
neuper@52150
   570
    <EXPLANATIONS> </EXPLANATIONS>
neuper@52150
   571
    <MATHAUTHORS>
neuper@52150
   572
      <STRING> Isabelle team, TU Munich </STRING>
neuper@52150
   573
    </MATHAUTHORS>
neuper@52150
   574
    <COURSEDESIGNS>
neuper@52150
   575
    </COURSEDESIGNS>
neuper@52150
   576
  </THEOREMDATA>
neuper@52150
   577
  --------------------------------------------------------------------------------
neuper@48895
   578
*}
neuper@48895
   579
subsubsection {* Changesets of begin and end *}
neuper@48895
   580
text {*
neuper@48895
   581
  isac development was done between these changesets:
neuper@48895
   582
  ------------------------------------------------------------------------------
neuper@48895
   583
  Changeset: 42519 (1f3b4270363e) meeting dmeindl: added missing files
neuper@48895
   584
  User: Walther Neuper <neuper@ist.tugraz.at>
neuper@48895
   585
  Date: 2012-09-24 16:39:30 +0200 (8 months)
neuper@48895
   586
  :
neuper@48895
   587
  : isac on Isablle2011
neuper@48895
   588
  :
neuper@48895
   589
  Changeset:41897 (355be7f60389) merged isabisac with Isabelle2011
neuper@48895
   590
  Branch: decompose-isar 
neuper@48895
   591
  User: Walther Neuper <neuper@ist.tugraz.at>
neuper@48895
   592
  Date: 2011-02-25 13:04:56 +0100 (2011-02-25)
neuper@48895
   593
  ------------------------------------------------------------------------------
neuper@48895
   594
*}
neuper@48895
   595
neuper@48895
   596
subsection {* isac on Isabelle2009-2 *}
neuper@48895
   597
subsubsection {* Summary of development *}
neuper@48895
   598
text {*
neuper@48895
   599
  In 2009 the update of isac from Isabelle2002 started with switching from CVS to hg.
neuper@48895
   600
  The update was painful (bridging 7 years of Isabelle development) and cut short 
neuper@48895
   601
  due to the start of introducing Isabelle's contexts (Mathias Lehnfeld) and
neuper@48895
   602
  going on to Isabelle2011 although most of the tests did not run.
neuper@48895
   603
*}
neuper@48895
   604
subsubsection {* Run tests *}
neuper@48895
   605
text {*
neuper@52150
   606
  WN131021 this is broken by installation of Isabelle2011/12/13,
neuper@52150
   607
  because all these write their binaries to ~/.isabelle/heaps/..
neuper@52150
   608
neuper@48895
   609
  $ cd /usr/local/isabisac09-2/
neuper@48895
   610
  $ ./bin/isabelle emacs -l HOL src/Tools/isac/Build_Isac.thy
neuper@48895
   611
  $ ./bin/isabelle emacs -l Isac src/Tools/isac/Test_Isac.thy
neuper@48895
   612
  NOT THE RIGHT VERSION.....    test/Tools/isac/Test_Isac.thy !!!
neuper@48895
   613
*}
neuper@48895
   614
subsubsection {* State of tests *}
neuper@48895
   615
text {* 
neuper@48895
   616
  Most tests are broken by the update from Isabelle2002 to Isabelle2009-2.
neuper@48895
   617
*}
neuper@48895
   618
subsubsection {* Changesets of begin and end *}
neuper@48895
   619
text {*
neuper@48895
   620
  isac development was done between these changesets:
neuper@48895
   621
  ------------------------------------------------------------------------------
neuper@48895
   622
  Changeset: 38115 (940a5feea094) Little improvements of isac-plugin
neuper@48895
   623
  Branch: decompose-isar 
neuper@48895
   624
  User: Marco Steger <m.steger@student.tugraz.at>
neuper@48895
   625
  Date: 2011-02-06 18:30:28 +0100 (2011-02-06)
neuper@48895
   626
  :
neuper@48895
   627
  : isac on Isablle2009-2
neuper@48895
   628
  :
neuper@48895
   629
  Changeset: 37870 (5100a9c3abf8) created branch isac-from-Isabelle2009-2
neuper@48895
   630
  Branch: isac-from-Isabelle2009-2 
neuper@48895
   631
  User: Walther Neuper <neuper@ist.tugraz.at>
neuper@48895
   632
  Date: 2010-07-21 09:59:35 +0200 (2010-07-21)
neuper@48895
   633
  ------------------------------------------------------------------------------
neuper@48895
   634
*}
neuper@48895
   635
neuper@48895
   636
subsection {* isac on Isabelle2002 *}
neuper@48895
   637
subsubsection {* Summary of development *}
neuper@48895
   638
text {*
neuper@48895
   639
  From 1999 to 2010 all the basic functionality (except "ctxt" and "error pattern")
neuper@48895
   640
  of isac's mathematics engine has been implemented.
neuper@48895
   641
*}
neuper@48895
   642
subsubsection {* Run tests *}
neuper@48895
   643
subsubsection {* State of tests *}
neuper@48895
   644
text {* 
neuper@48895
   645
  All tests work on an old notebook (the right PolyML coudn't be upgraded to more
neuper@48895
   646
  recent Linux versions)
neuper@48895
   647
*}
neuper@48895
   648
subsubsection {* Changesets of begin and end *}
neuper@48895
   649
text {*
neuper@48895
   650
  Up to the above Mercurial changeset 5100a9c3abf8 isac used CVS;
neuper@48895
   651
  see https://intra.ist.tugraz.at/hg/isac containing a conversion to Mercurial.
neuper@48895
   652
*}
neuper@48895
   653
neuper@41943
   654
end
neuper@52065
   655
(*========== inhibit exn 130719 Isabelle2013 ===================================
neuper@52065
   656
============ inhibit exn 130719 Isabelle2013 =================================*)
neuper@41943
   657
neuper@41943
   658
(*-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.
neuper@48895
   659
  -.-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.*)
neuper@41975
   660