src/Tools/isac/Interpret/script.sml
changeset 59259 d1c13ee4e1a2
parent 59258 6b1aad933adb
child 59260 0161ef48c8cc
     1.1 --- a/src/Tools/isac/Interpret/script.sml	Mon Nov 14 15:51:10 2016 +0100
     1.2 +++ b/src/Tools/isac/Interpret/script.sml	Thu Nov 17 16:40:27 2016 +0100
     1.3 @@ -27,7 +27,7 @@
     1.4    val rule2thm'' : rule -> thm''
     1.5    val rule2rls' : rule -> string
     1.6  
     1.7 -(*/-------------------------------------------------------- ! aktivate for Test_Isac BEGIN ---\*)
     1.8 +(*/-------------------------------------------------------- ! aktivate for Test_Isac BEGIN ---\* )
     1.9    datatype asap = Aundef | AssOnly | AssGen
    1.10    datatype appy_ = Napp_ | Skip_
    1.11    val itms2args : 'a -> metID -> itm list -> term list
    1.12 @@ -43,14 +43,14 @@
    1.13    val nstep_up : theory' * rls -> ptree * pos' -> scr -> env -> lrd list -> appy_ -> 
    1.14      term option -> term -> appy
    1.15    val upd_env_opt : env -> term option * term -> env
    1.16 -(*\--- ! aktivate for Test_Isac END ----------------------------------------------------------/*)
    1.17 +( *\--- ! aktivate for Test_Isac END ----------------------------------------------------------/*)
    1.18  end 
    1.19  
    1.20  (* traces the leaves (ie. non-tactical nodes) of Prog found by next_tac, see "and scr" *)   
    1.21  val trace_script = Unsynchronized.ref false; (* TODO: how are traces done in Isabelle? *)
    1.22  
    1.23  (**)
    1.24 -structure Lucin(*: LUCAS_INTERPRETER*) =
    1.25 +structure Lucin: LUCAS_INTERPRETER(**) =
    1.26  struct
    1.27  (**)
    1.28  (* data for creating a new node in ctree; designed for use as: