author | wenzelm |
Wed, 14 Sep 2005 22:04:34 +0200 | |
changeset 17383 | 3eb21fb8c2ec |
parent 16922 | 2128ac2aa5db |
child 17838 | 3032e90c4975 |
permissions | -rw-r--r-- |
15576
efb95d0d01f7
converted to new-style theories, and combined numbered files
huffman
parents:
diff
changeset
|
1 |
|
efb95d0d01f7
converted to new-style theories, and combined numbered files
huffman
parents:
diff
changeset
|
2 |
(* legacy ML bindings *) |
efb95d0d01f7
converted to new-style theories, and combined numbered files
huffman
parents:
diff
changeset
|
3 |
|
16922 | 4 |
val beta_sscase = thm "beta_sscase"; |
15576
efb95d0d01f7
converted to new-style theories, and combined numbered files
huffman
parents:
diff
changeset
|
5 |
val cont_Iwhen1 = thm "cont_Iwhen1"; |
efb95d0d01f7
converted to new-style theories, and combined numbered files
huffman
parents:
diff
changeset
|
6 |
val cont_Iwhen2 = thm "cont_Iwhen2"; |
efb95d0d01f7
converted to new-style theories, and combined numbered files
huffman
parents:
diff
changeset
|
7 |
val cont_Iwhen3 = thm "cont_Iwhen3"; |
16922 | 8 |
val Exh_Ssum = thm "Exh_Ssum"; |
9 |
val Iwhen1 = thm "Iwhen1"; |
|
10 |
val Iwhen2 = thm "Iwhen2"; |
|
11 |
val Iwhen3 = thm "Iwhen3"; |
|
12 |
val Iwhen4 = thm "Iwhen4"; |
|
13 |
val Iwhen5 = thm "Iwhen5"; |
|
14 |
val Iwhen_def = thm "Iwhen_def"; |
|
15 |
val less_sinlD = thm "less_sinlD"; |
|
16 |
val less_sinrD = thm "less_sinrD"; |
|
17 |
val less_ssum_def = thm "less_Ssum_def"; |
|
18 |
val Rep_Ssum_sinl = thm "Rep_Ssum_sinl"; |
|
19 |
val Rep_Ssum_sinr = thm "Rep_Ssum_sinr"; |
|
20 |
val sinl_Abs_Ssum = thm "sinl_Abs_Ssum"; |
|
21 |
val sinl_defined_iff = thm "sinl_defined_iff"; |
|
22 |
val sinl_defined = thm "sinl_defined"; |
|
23 |
val sinl_def = thm "sinl_def"; |
|
24 |
val sinl_eq_sinr = thm "sinl_eq_sinr"; |
|
25 |
val sinl_eq = thm "sinl_eq"; |
|
16211
faa9691da2bc
changed to use new contI; renamed strict, defined, and inject lemmas
huffman
parents:
16060
diff
changeset
|
26 |
val sinl_inject = thm "sinl_inject"; |
16922 | 27 |
val sinl_less_sinr = thm "sinl_less_sinr"; |
28 |
val sinl_less = thm "sinl_less"; |
|
29 |
val sinl_strict = thm "sinl_strict"; |
|
30 |
val sinr_Abs_Ssum = thm "sinr_Abs_Ssum"; |
|
31 |
val sinr_defined_iff = thm "sinr_defined_iff"; |
|
16211
faa9691da2bc
changed to use new contI; renamed strict, defined, and inject lemmas
huffman
parents:
16060
diff
changeset
|
32 |
val sinr_defined = thm "sinr_defined"; |
16922 | 33 |
val sinr_def = thm "sinr_def"; |
34 |
val sinr_eq_sinl = thm "sinr_eq_sinl"; |
|
35 |
val sinr_eq = thm "sinr_eq"; |
|
36 |
val sinr_inject = thm "sinr_inject"; |
|
37 |
val sinr_less_sinl = thm "sinr_less_sinl"; |
|
16316
17db5df51a35
renamed theorems less_ssum4a,b,c,d to more meaningful names
huffman
parents:
16211
diff
changeset
|
38 |
val sinr_less = thm "sinr_less"; |
16922 | 39 |
val sinr_strict = thm "sinr_strict"; |
15576
efb95d0d01f7
converted to new-style theories, and combined numbered files
huffman
parents:
diff
changeset
|
40 |
val sscase1 = thm "sscase1"; |
efb95d0d01f7
converted to new-style theories, and combined numbered files
huffman
parents:
diff
changeset
|
41 |
val sscase2 = thm "sscase2"; |
efb95d0d01f7
converted to new-style theories, and combined numbered files
huffman
parents:
diff
changeset
|
42 |
val sscase3 = thm "sscase3"; |
efb95d0d01f7
converted to new-style theories, and combined numbered files
huffman
parents:
diff
changeset
|
43 |
val sscase4 = thm "sscase4"; |
16922 | 44 |
val sscase_def = thm "sscase_def"; |
45 |
val ssum_chain_lemma = thm "ssum_chain_lemma"; |
|
46 |
val ssumE2 = thm "ssumE2"; |
|
47 |
val ssumE = thm "ssumE"; |
|
16211
faa9691da2bc
changed to use new contI; renamed strict, defined, and inject lemmas
huffman
parents:
16060
diff
changeset
|
48 |
val Ssum_rews = [sinl_strict, sinr_strict, sinl_defined, sinr_defined, |
faa9691da2bc
changed to use new contI; renamed strict, defined, and inject lemmas
huffman
parents:
16060
diff
changeset
|
49 |
sscase1, sscase2, sscase3]; |