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