equal
deleted
inserted
replaced
4 |
4 |
5 header {* Domain package *} |
5 header {* Domain package *} |
6 |
6 |
7 theory Domain |
7 theory Domain |
8 imports Ssum Sprod Up One Tr Fixrec |
8 imports Ssum Sprod Up One Tr Fixrec |
|
9 uses |
|
10 ("Tools/cont_consts.ML") |
|
11 ("Tools/cont_proc.ML") |
|
12 ("Tools/domain/domain_library.ML") |
|
13 ("Tools/domain/domain_syntax.ML") |
|
14 ("Tools/domain/domain_axioms.ML") |
|
15 ("Tools/domain/domain_theorems.ML") |
|
16 ("Tools/domain/domain_extender.ML") |
9 begin |
17 begin |
10 |
18 |
11 defaultsort pcpo |
19 defaultsort pcpo |
12 |
20 |
13 |
21 |
191 lemma exh_casedist3: "(P \<and> Q \<Longrightarrow> R) \<equiv> (P \<Longrightarrow> Q \<Longrightarrow> R)" |
199 lemma exh_casedist3: "(P \<and> Q \<Longrightarrow> R) \<equiv> (P \<Longrightarrow> Q \<Longrightarrow> R)" |
192 by rule auto |
200 by rule auto |
193 |
201 |
194 lemmas exh_casedists = exh_casedist1 exh_casedist2 exh_casedist3 |
202 lemmas exh_casedists = exh_casedist1 exh_casedist2 exh_casedist3 |
195 |
203 |
|
204 |
|
205 subsection {* Installing the domain package *} |
|
206 |
|
207 use "Tools/cont_consts.ML" |
|
208 use "Tools/cont_proc.ML" |
|
209 use "Tools/domain/domain_library.ML" |
|
210 use "Tools/domain/domain_syntax.ML" |
|
211 use "Tools/domain/domain_axioms.ML" |
|
212 use "Tools/domain/domain_theorems.ML" |
|
213 use "Tools/domain/domain_extender.ML" |
|
214 |
196 end |
215 end |