test/Tools/isac/ADDTESTS/accumulate-val/Thy_All.thy
author Walther Neuper <neuper@ist.tugraz.at>
Sun, 29 Sep 2013 18:27:37 +0200
changeset 52139 511fc271f783
parent 52118 aaf1846198b3
child 52146 f47e195af9a3
permissions -rw-r--r--
collected updates since changeset 9690a8d5f1c
     1 theory Thy_All
     2 imports Thy_3 Thy_5 
     3 begin
     4 text {* how can we accumulate values, e.g. the methods alongside thy development dependencies ?
     5         ---------------------------------------------------------------------------------------
     6 *}
     7 
     8 ML {*
     9 *} ML {*
    10 KEStore_Elems.get_rlss @{theory}
    11 (*|> map check_kestore_rls 
    12   |> enumerate_strings
    13   |> map writeln*)
    14 (*
    15 (rls, (Thy_5, Erls))--3 
    16 (rls1, (Thy_4, Erls))--2 
    17 (rls2, (Thy_4, Erls))--1 
    18 (test_list_rls, (Thy_3, Rls {#calc = 0, #rules = 1, ...))--4 
    19 *)
    20 *} ML {*
    21 case KEStore_Elems.get_rlss @{theory} of
    22   ("rls2", ("Thy_4", Erls)) :: ("rls1", ("Thy_4", Erls)) :: _ => ()
    23 | _ => raise error "KEStore_Elems.get_rlss changed"
    24 ;
    25 *} ML {*
    26 case KEStore_Elems.get_calcs @{theory} of
    27   [("calc", ("Thy_1", _))] => ()
    28 | _ => raise error "KEStore_Elems.get_calcs changed"
    29 *}
    30 
    31 end