src/HOLCF/Ssum.ML
author wenzelm
Wed, 13 Jul 2005 16:07:35 +0200
changeset 16813 67140ae50e77
parent 16752 270ec60cc9e8
child 16922 2128ac2aa5db
permissions -rw-r--r--
removed ad-hoc atp_hook, cal_atp; removed depth_of; tuned;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
     4
val Iwhen_def = thm "Iwhen_def";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
     5
val Iwhen1 = thm "Iwhen1";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
     6
val Iwhen2 = thm "Iwhen2";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
     7
val Iwhen3 = thm "Iwhen3";
16699
24b494ff8f0f use new pcpodef package
huffman
parents: 16316
diff changeset
     8
val less_ssum_def = thm "less_Ssum_def";
15576
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
     9
val sinl_def = thm "sinl_def";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    10
val sinr_def = thm "sinr_def";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    11
val sscase_def = thm "sscase_def";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    12
val cont_Iwhen1 = thm "cont_Iwhen1";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    13
val cont_Iwhen2 = thm "cont_Iwhen2";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    14
val cont_Iwhen3 = thm "cont_Iwhen3";
16211
faa9691da2bc changed to use new contI; renamed strict, defined, and inject lemmas
huffman
parents: 16060
diff changeset
    15
val sinl_strict = thm "sinl_strict";
faa9691da2bc changed to use new contI; renamed strict, defined, and inject lemmas
huffman
parents: 16060
diff changeset
    16
val sinr_strict = thm "sinr_strict";
faa9691da2bc changed to use new contI; renamed strict, defined, and inject lemmas
huffman
parents: 16060
diff changeset
    17
val sinl_inject = thm "sinl_inject";
faa9691da2bc changed to use new contI; renamed strict, defined, and inject lemmas
huffman
parents: 16060
diff changeset
    18
val sinr_inject = thm "sinr_inject";
16316
17db5df51a35 renamed theorems less_ssum4a,b,c,d to more meaningful names
huffman
parents: 16211
diff changeset
    19
val sinl_eq = thm "sinl_eq";
17db5df51a35 renamed theorems less_ssum4a,b,c,d to more meaningful names
huffman
parents: 16211
diff changeset
    20
val sinr_eq = thm "sinr_eq";
16211
faa9691da2bc changed to use new contI; renamed strict, defined, and inject lemmas
huffman
parents: 16060
diff changeset
    21
val sinl_defined = thm "sinl_defined";
faa9691da2bc changed to use new contI; renamed strict, defined, and inject lemmas
huffman
parents: 16060
diff changeset
    22
val sinr_defined = thm "sinr_defined";
15576
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    23
val Exh_Ssum1 = thm "Exh_Ssum1";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    24
val ssumE = thm "ssumE";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    25
val ssumE2 = thm "ssumE2";
16316
17db5df51a35 renamed theorems less_ssum4a,b,c,d to more meaningful names
huffman
parents: 16211
diff changeset
    26
val sinl_less = thm "sinl_less";
17db5df51a35 renamed theorems less_ssum4a,b,c,d to more meaningful names
huffman
parents: 16211
diff changeset
    27
val sinr_less = thm "sinr_less";
17db5df51a35 renamed theorems less_ssum4a,b,c,d to more meaningful names
huffman
parents: 16211
diff changeset
    28
val sinl_less_sinr = thm "sinl_less_sinr";
17db5df51a35 renamed theorems less_ssum4a,b,c,d to more meaningful names
huffman
parents: 16211
diff changeset
    29
val sinr_less_sinl = thm "sinr_less_sinl";
15576
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    30
val sscase1 = thm "sscase1";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    31
val sscase2 = thm "sscase2";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    32
val sscase3 = thm "sscase3";
efb95d0d01f7 converted to new-style theories, and combined numbered files
huffman
parents:
diff changeset
    33
val sscase4 = thm "sscase4";
16211
faa9691da2bc changed to use new contI; renamed strict, defined, and inject lemmas
huffman
parents: 16060
diff changeset
    34
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
    35
                sscase1, sscase2, sscase3];