(*  Title:  build the Isac Mathengine

    Author: Walther Neuper, TU Graz, 100808

   (c) due to copyright terms

For creating a heap image of isac see ~~/ROOT.

For debugging see text at begin (theory dependencies!)

ATTENTION: no errors in this theory do not mean that there are no errors in Isac;

errors are rigorously detected when creating a heap.

*)

theory Build_Isac 

imports

(* structure inherited from migration which began with Isabelle2009. improve?

          theory KEStore

            ML_file "~~/src/Tools/isac/library.sml"

            ML_file "~~/src/Tools/isac/calcelems.sml"

        theory ListC 

          imports "~~/src/Tools/isac/KEStore"

          ML_file "~~/src/Tools/isac/ProgLang/termC.sml"

          ML_file "~~/src/Tools/isac/ProgLang/calculate.sml"

          ML_file "~~/src/Tools/isac/ProgLang/rewrite.sml"

      theory Tools imports ListC begin

    theory Script imports Tools begin

  theory ProgLang imports Script

    ML_file "~~/src/Tools/isac/ProgLang/scrtools.sml"

*)        "ProgLang/ProgLang"

(* use    "Interpret/mstools.sml"

   use    "Interpret/ctree.sml"

   use    "Interpret/ptyps.sml"

   use    "Interpret/generate.sml"                               

   use    "Interpret/calchead.sml"

   use    "Interpret/appl.sml"

   use    "Interpret/rewtools.sml"

   use    "Interpret/script.sml"

   use    "Interpret/solve.sml"

   use    "Interpret/inform.sml"

   use    "Interpret/mathengine.sml"

*)        "Interpret/Interpret"

(* use    "xmlsrc/mathml.sml"

   use    "xmlsrc/datatypes.sml"

   use    "xmlsrc/pbl-met-hierarchy.sml"

   use    "xmlsrc/thy-hierarchy.sml"                               

   use    "xmlsrc/interface-xml.sml"

*)        "xmlsrc/xmlsrc"

(* use     "Frontend/messages.sml"

   use     "Frontend/states.sml"

   use     "Frontend/interface.sml"

   use     "print_exn_G.sml"

*)         "Frontend/Frontend"

           "Knowledge/Build_Thydata" (*imports Isac.thy etc*)

           (* the Protocol for the connection isac-java -- Isabelle/Isac is built separately:

              here we partly check consistency libisabelle/Isac -- Isabelle/Isac: *)

           Protocol.Protocol

begin

text \<open>

  show theory dependencies using the graph browser, 

  open "browser_info/HOL/Isac/session.graph"

  and proceed from the ancestors towards the siblings.

\<close>

section \<open>check presence of definitions from directories\<close>

(*declare [[ML_print_depth = 999]]*)

ML \<open>

\<close> ML \<open>

\<close>

(*==============================================================================================

  The test below from calculate.sml raises an exception with the cleaned Rewrite.

  The differences to the working 'fun rewrite' are that significant,

  that we want to rely on 'hg revert'.

  For that purpose we save this changeset with a broken 'fun rewrite' and tests not running.

*)

ML \<open>

\<close> ML \<open>

(*--------------(2): does divide work in Test_simplify ?: ------*)

 val thy = @{theory Test};

 val t = (Thm.term_of o the o (TermC.parse thy)) "6 / 2";

 val rls = Test_simplify;

\<close> ML \<open>

 val (t,_) = the (Rewrite.rewrite_set_ thy false rls t);

(*val t = Free ("3","Real.real") : term*)

\<close> ML \<open>

(*--------------(3): is_const works ?: -------------------------------------*)

 val t = (Thm.term_of o the o (TermC.parse @{theory})) "2 is_const";

\<close> ML \<open>

 Rewrite.rewrite_set_ @{theory Test} false tval_rls t;

(* exception TERM raised (line 270 of "~~/src/HOL/Tools/hologic.ML"):

  dest_eq

  0 \<le> ?a \<Longrightarrow> (0 \<le> sqrt ?a) = True*)

\<close> ML \<open>

\<close>

(*==============================================================================================*)

ML \<open>Calc.adhoc_thm; (*from "ProgLang/calculate.sml" *)\<close>

ML \<open>Rewrite.rewrite_; (*from "ProgLang/rewrite.sml" *)\<close>

ML \<open>LTool.is_reall_dsc; (*from "ProgLang/scrtools.sml" *)\<close>

ML \<open>Math_Engine.me; (*from "Interpret/mathengine.sml"*)\<close>

ML \<open>contextthyOK2xml; (*"xmlsrc/interface-xml.sml"*)\<close>

ML \<open>print_exn_unit\<close>

ML \<open>list_rls (*from Atools.thy WN130615??? or ProgLang???*)\<close>

ML \<open>eval_occurs_in (*from Atools.thy*)\<close>

ML \<open>@{thm last_thmI} (*from Atools.thy*)\<close>

ML \<open>@{thm Querkraft_Belastung}\<close>

ML \<open>Celem.check_guhs_unique := false;\<close>

ML \<open>writeln "**** isac kernel = math-engine + Knowledge complete ******"\<close>

ML \<open>@{theory "Isac"}\<close>

ML \<open>(*get_the ["IsacKnowledge", "Diff", "Theorems", "diff_sin_chain"]

  ERROR: app_py: not found: ["IsacKnowledge","Diff","Theorems","diff_sin_chain"]*)\<close>

section \<open>State of approaching Isabelle by Isac\<close>

text \<open>

  Mathias Lehnfeld gives the following list in his thesis in section 

  4.2.3 Relation to Ongoing Isabelle Development.

\<close>

subsection \<open>(0) Survey on remaining Unsynchronized.ref\<close>

text \<open>

  REPLACE BY KEStore... (has been overlooked)

    calcelems.sml:val rew_ord' = Unsynchronized.ref ...

  KEEP FOR TRACING

    calcelems.sml:val trace_rewrite = Unsynchronized.ref false;

    calcelems.sml:val depth = Unsynchronized.ref 99999;

    calcelems.sml:val lim_rewrite = Unsynchronized.ref 99999;

    calcelems.sml:val lim_deriv = Unsynchronized.ref 100;

    Interpret/script.sml:val trace_script = Unsynchronized.ref false;

  KEEP FOR EASIER DEVELOPMENT

    calcelems.sml:val check_guhs_unique = Unsynchronized.ref true;

  KEEP FOR DEMOS

    Knowledge/GCD_Poly_ML.thy:  val trace_div = Unsynchronized.ref true;

    Knowledge/GCD_Poly_ML.thy:  val trace_div_invariant = Unsynchronized.ref false;

    Knowledge/GCD_Poly_ML.thy:  val trace_Euclid = Unsynchronized.ref true;

\<close>

subsection \<open>(1) Exploit parallelism for concurrent session management\<close>

subsection \<open>(2) Make Isac’s programming language usable\<close>

subsection \<open>(3) Adopt Isabelle’s numeral computation for Isac\<close>

text \<open>

  In 2002 isac already strived for floating point numbers. Since that time

  isac represents numerals as "Free", see below (*1*). These experiments are

  unsatisfactory with respect to logical soundness.

  Since Isabelle now has started to care about floating point numbers, it is high 

  time to adopt these together with the other numerals. Isabelle2012/13's numerals

  are different from Isabelle2011, see "test/Tools/isac/ProgLang/termC.sml".

  The transition from "Free" to standard numerals is a task to be scheduled for 

  several weeks. The urgency of this task follows from the experience, 

  that (1.2) for "thehier" is very hard, because "num_str" seems to destroy 

  some of the long identifiers of theorems which would tremendously simplify

  building a hierarchy of theorems according to (1.2), see (*2*) below.

\<close>

ML \<open>(*1*) Free ("123.456", HOLogic.realT)\<close>

subsection \<open>(4) Improve the efficiency of Isac’s rewrite-engine\<close>

subsection \<open>(5) Adopt Isabelle/jEdit for Isac\<close>

end