theory Thy_3 

imports Thy_2 

begin

ML {* val test_list_rls =

  append_rls "test_list_rls" e_rls [Thm ("not_def", @{thm not_def})] *}

setup {* KEStore_Elems.add_rlss (*already stored in Thy_1.thy and Thy_2.thy*)

  [("test_list_rls", (Context.theory_name @{theory}, test_list_rls))] *}

ML {*

  if length (KEStore_Elems.get_rlss @{theory}) = 1 (*stored in 3 different theories*)

  then () else error "rls identified by string-identifier, not by theory: changed"

  test_ruleset' := overwritelthy @{theory} (! test_ruleset', [("test_list_rls", 

    append_rls "test_list_rls" test_list_rls [Calc ("test_function", e_evalfn)])])

  ;

  if length (KEStore_Elems.get_rlss @{theory}) = length (! test_ruleset')

  then () else error "KEStore_Elems.get_rlss = test_ruleset': changed"

  ;

  val SOME (_, Rls {rules, ...}) =

    AList.lookup op= (KEStore_Elems.get_rlss @{theory}) "test_list_rls"

  ;

  case rules of

    [Thm ("not_def", _)] => ()

  | _ => error "union rls_eq changed: 1st argument is NOT overwritten anymore"

  (* merge rules of rls with the same identifier rls' must be done one level higher:

    KEStore_Elems.add_rlss does *add* or *overwrite* *)

*}

end