| author | Mathias Lehnfeld <s1210629013@students.fh-hagenberg.at> |
| Mon, 27 Jan 2014 21:49:27 +0100 | |
| changeset 55359 | 73dc85c025ab |
| parent 52156 | aa0884017d48 |
| child 59410 | 2cbb98890190 |
| permissions | -rw-r--r-- |
| neuper@52146 | 1 |
theory Thy_1 imports Lucas_Interpreter begin |
| neuper@48809 | 2 |
|
| neuper@52126 | 3 |
ML {*
|
| s1210629013@55359 | 4 |
(* CHECK length (Test_KEStore_Elems.get_rlss @{theory}) = length (! ruleset')
|
| neuper@52126 | 5 |
AT THE BOTTOM OF A THEORY:*) |
| s1210629013@55359 | 6 |
length (Test_KEStore_Elems.get_rlss @{theory}) = 0;
|
| neuper@52156 | 7 |
(*length (! test_ruleset') = 1 (* if you have clicked somewhere below *)*) |
| neuper@52126 | 8 |
*} |
| s1210629013@55359 | 9 |
setup {* Test_KEStore_Elems.add_rlss [("test_list_rls", (Context.theory_name @{theory}, Erls))] *}
|
| neuper@52126 | 10 |
ML {*
|
| neuper@52156 | 11 |
(*test_ruleset' := overwritelthy @{theory} (! test_ruleset', [("test_list_rls", Erls)])
|
| neuper@52126 | 12 |
; |
| s1210629013@55359 | 13 |
if length (Test_KEStore_Elems.get_rlss @{theory}) = length (! test_ruleset') then ()
|
| s1210629013@55359 | 14 |
else error "removal of Unsynchonized.ref: ruleset' <> Test_KEStore_Elems.get_rlss in Thy_1"*) |
| neuper@52156 | 15 |
*} |
| neuper@52126 | 16 |
|
| s1210629013@55359 | 17 |
setup {* Test_KEStore_Elems.add_calcs [("calc", ("Thy_1", e_evalfn))] *}
|
| neuper@48809 | 18 |
|
| neuper@48794 | 19 |
end |