2 $ cd /usr/local/isabisac/test/Tools/isac/ADDTESTS/file-depend
3 $ /usr/local/isabisac/bin/isabelle emacs Build_Test.thy &
7 theory Build_Test imports Complex_Main begin
10 use_thy "1language/Foo_Language"
11 use "2interpreter/2foointerpreter.ML"
13 (*vvvvvvv can be bypassed with Foo_KnowALL
14 use_thy "3knowledge/Foo_Know111"
15 use_thy "3knowledge/Foo_Know222"
16 ^^^^^^^ can be bypassed with Foo_KnowALL*)
17 use_thy "3knowledge/Foo_KnowALL"
19 text {* the different theories of knowledge are recognized, Const bar*: *}
21 val trm = Syntax.read_term_global @{theory Foo_Know111}
22 "fooprog (foo111 = bar111)";
23 val Const ("Foo_Know111.bar111", _) = foointerpret trm;
25 val trm = Syntax.read_term_global @{theory Foo_Know222}
26 "fooprog (foo222 = bar222)";
27 val Const ("Foo_Know222.bar222", _) = foointerpret trm;
30 text {* the different theories of knowledge are recognized, Free bar*: *}
32 val trm = Syntax.read_term_global @{theory Foo_Know111}
33 "fooprog (foo222 = bar222)";
34 (*Const ("Foo_Language.fooprog", "bool => Foo_Language.foosource") $
35 (Const ("op =", "'a => 'a => bool") $ Free ("foo222", "'a") $
36 Free ("bar222", "'a"))
39 val trm = Syntax.read_term_global @{theory Foo_Know222}
40 "fooprog (foo111 = bar111)";
42 Const ("Foo_Language.fooprog", "bool => Foo_Language.foosource") $
43 (Const ("op =", "'a => 'a => bool") $ Free ("foo111", "'a") $
44 Free ("bar111", "'a"))