src/HOL/ex/SAT_Examples.thy

--- a/src/HOL/ex/SAT_Examples.thy	Sat Oct 08 23:43:15 2005 +0200
+++ b/src/HOL/ex/SAT_Examples.thy	Sun Oct 09 17:06:03 2005 +0200
@@ -12,6 +12,63 @@
 
 ML {* set sat.trace_sat; *}
 
+lemma "True"
+by sat
+
+lemma "a | ~a"
+by sat
+
+lemma "(a | b) & ~a \<Longrightarrow> b"
+by sat
+
+lemma "(a & b) | (c & d) \<Longrightarrow> (a & b) | (c & d)"
+apply (tactic {* cnf.cnf_rewrite_tac 1 *})
+by sat
+
+lemma "(a & b) | (c & d) \<Longrightarrow> (a & b) | (c & d)"
+apply (tactic {* cnf.cnfx_rewrite_tac 1 *})
+apply (erule exE | erule conjE)+
+by satx
+
+lemma "(a & b | c & d) & (e & f | g & h) | (i & j | k & l) & (m & n | p & q) \<Longrightarrow>
+  (a & b | c & d) & (e & f | g & h) | (i & j | k & l) & (m & n | p & q)"
+apply (tactic {* cnf.cnf_rewrite_tac 1 *})
+by sat
+
+lemma "(a & b | c & d) & (e & f | g & h) | (i & j | k & l) & (m & n | p & q) \<Longrightarrow>
+  (a & b | c & d) & (e & f | g & h) | (i & j | k & l) & (m & n | p & q)"
+apply (tactic {* cnf.cnfx_rewrite_tac 1 *})
+apply (erule exE | erule conjE)+
+by satx
+
+lemma "P=P=P=P=P=P=P=P=P=P"
+by sat
+
+lemma "P=P=P=P=P=P=P=P=P=P"
+by satx
+
+lemma  "!! a b c. [| a | b | c | d ;
+e | f | (a & d) ;
+~(a | (c & ~c)) | b ;
+~(b & (x | ~x)) | c ;
+~(d | False) | c ;
+~(c | (~p & (p | (q & ~q)))) |] ==> False"
+by sat
+
+lemma  "!! a b c. [| a | b | c | d ;
+e | f | (a & d) ;
+~(a | (c & ~c)) | b ;
+~(b & (x | ~x)) | c ;
+~(d | False) | c ;
+~(c | (~p & (p | (q & ~q)))) |] ==> False"
+by satx
+
+ML {* reset sat.trace_sat; *}
+
+(*
+ML {* Toplevel.profiling := 1; *}
+*)
+
 (* Translated from TPTP problem library: PUZ015-2.006.dimacs *)
 
 lemma assumes 1: "~x0"
@@ -199,16 +256,240 @@
 and 183: "~x29 | ~x58"
 and 184: "~x28 | ~x58"
 shows "False"
-using 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 
-20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 
-40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 
-60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 
-80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 
-100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 
-120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 
-140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 
-160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 
-180 181 182 183 184 
+using 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
[phone] 27 28 29 30 31 32 33 34 35 36 37 38 39
[phone] 47 48 49 50 51 52 53 54 55 56 57 58 59
[phone] 67 68 69 70 71 72 73 74 75 76 77 78 79
[phone] 87 88 89 90 91 92 93 94 95 96 97 98 99
[phone] 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119
[phone] 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139
[phone] 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
[phone] 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179
[phone]
 by sat
 
+(* Translated from TPTP problem library: MSC007-1.008.dimacs *)
+
+lemma assumes 1: "x0 | x1 | x2 | x3 | x4 | x5 | x6"
+and 2: "x7 | x8 | x9 | x10 | x11 | x12 | x13"
+and 3: "x14 | x15 | x16 | x17 | x18 | x19 | x20"
+and 4: "x21 | x22 | x23 | x24 | x25 | x26 | x27"
+and 5: "x28 | x29 | x30 | x31 | x32 | x33 | x34"
+and 6: "x35 | x36 | x37 | x38 | x39 | x40 | x41"
+and 7: "x42 | x43 | x44 | x45 | x46 | x47 | x48"
+and 8: "x49 | x50 | x51 | x52 | x53 | x54 | x55"
+and 9: "~x0 | ~x7"
+and 10: "~x0 | ~x14"
+and 11: "~x0 | ~x21"
+and 12: "~x0 | ~x28"
+and 13: "~x0 | ~x35"
+and 14: "~x0 | ~x42"
+and 15: "~x0 | ~x49"
+and 16: "~x7 | ~x14"
+and 17: "~x7 | ~x21"
+and 18: "~x7 | ~x28"
+and 19: "~x7 | ~x35"
+and 20: "~x7 | ~x42"
+and 21: "~x7 | ~x49"
+and 22: "~x14 | ~x21"
+and 23: "~x14 | ~x28"
+and 24: "~x14 | ~x35"
+and 25: "~x14 | ~x42"
+and 26: "~x14 | ~x49"
+and 27: "~x21 | ~x28"
+and 28: "~x21 | ~x35"
+and 29: "~x21 | ~x42"
+and 30: "~x21 | ~x49"
+and 31: "~x28 | ~x35"
+and 32: "~x28 | ~x42"
+and 33: "~x28 | ~x49"
+and 34: "~x35 | ~x42"
+and 35: "~x35 | ~x49"
+and 36: "~x42 | ~x49"
+and 37: "~x1 | ~x8"
+and 38: "~x1 | ~x15"
+and 39: "~x1 | ~x22"
+and 40: "~x1 | ~x29"
+and 41: "~x1 | ~x36"
+and 42: "~x1 | ~x43"
+and 43: "~x1 | ~x50"
+and 44: "~x8 | ~x15"
+and 45: "~x8 | ~x22"
+and 46: "~x8 | ~x29"
+and 47: "~x8 | ~x36"
+and 48: "~x8 | ~x43"
+and 49: "~x8 | ~x50"
+and 50: "~x15 | ~x22"
+and 51: "~x15 | ~x29"
+and 52: "~x15 | ~x36"
+and 53: "~x15 | ~x43"
+and 54: "~x15 | ~x50"
+and 55: "~x22 | ~x29"
+and 56: "~x22 | ~x36"
+and 57: "~x22 | ~x43"
+and 58: "~x22 | ~x50"
+and 59: "~x29 | ~x36"
+and 60: "~x29 | ~x43"
+and 61: "~x29 | ~x50"
+and 62: "~x36 | ~x43"
+and 63: "~x36 | ~x50"
+and 64: "~x43 | ~x50"
+and 65: "~x2 | ~x9"
+and 66: "~x2 | ~x16"
+and 67: "~x2 | ~x23"
+and 68: "~x2 | ~x30"
+and 69: "~x2 | ~x37"
+and 70: "~x2 | ~x44"
+and 71: "~x2 | ~x51"
+and 72: "~x9 | ~x16"
+and 73: "~x9 | ~x23"
+and 74: "~x9 | ~x30"
+and 75: "~x9 | ~x37"
+and 76: "~x9 | ~x44"
+and 77: "~x9 | ~x51"
+and 78: "~x16 | ~x23"
+and 79: "~x16 | ~x30"
+and 80: "~x16 | ~x37"
+and 81: "~x16 | ~x44"
+and 82: "~x16 | ~x51"
+and 83: "~x23 | ~x30"
+and 84: "~x23 | ~x37"
+and 85: "~x23 | ~x44"
+and 86: "~x23 | ~x51"
+and 87: "~x30 | ~x37"
+and 88: "~x30 | ~x44"
+and 89: "~x30 | ~x51"
+and 90: "~x37 | ~x44"
+and 91: "~x37 | ~x51"
+and 92: "~x44 | ~x51"
+and 93: "~x3 | ~x10"
+and 94: "~x3 | ~x17"
+and 95: "~x3 | ~x24"
+and 96: "~x3 | ~x31"
+and 97: "~x3 | ~x38"
+and 98: "~x3 | ~x45"
+and 99: "~x3 | ~x52"
+and 100: "~x10 | ~x17"
+and 101: "~x10 | ~x24"
+and 102: "~x10 | ~x31"
+and 103: "~x10 | ~x38"
+and 104: "~x10 | ~x45"
+and 105: "~x10 | ~x52"
+and 106: "~x17 | ~x24"
+and 107: "~x17 | ~x31"
+and 108: "~x17 | ~x38"
+and 109: "~x17 | ~x45"
+and 110: "~x17 | ~x52"
+and 111: "~x24 | ~x31"
+and 112: "~x24 | ~x38"
+and 113: "~x24 | ~x45"
+and 114: "~x24 | ~x52"
+and 115: "~x31 | ~x38"
+and 116: "~x31 | ~x45"
+and 117: "~x31 | ~x52"
+and 118: "~x38 | ~x45"
+and 119: "~x38 | ~x52"
+and 120: "~x45 | ~x52"
+and 121: "~x4 | ~x11"
+and 122: "~x4 | ~x18"
+and 123: "~x4 | ~x25"
+and 124: "~x4 | ~x32"
+and 125: "~x4 | ~x39"
+and 126: "~x4 | ~x46"
+and 127: "~x4 | ~x53"
+and 128: "~x11 | ~x18"
+and 129: "~x11 | ~x25"
+and 130: "~x11 | ~x32"
+and 131: "~x11 | ~x39"
+and 132: "~x11 | ~x46"
+and 133: "~x11 | ~x53"
+and 134: "~x18 | ~x25"
+and 135: "~x18 | ~x32"
+and 136: "~x18 | ~x39"
+and 137: "~x18 | ~x46"
+and 138: "~x18 | ~x53"
+and 139: "~x25 | ~x32"
+and 140: "~x25 | ~x39"
+and 141: "~x25 | ~x46"
+and 142: "~x25 | ~x53"
+and 143: "~x32 | ~x39"
+and 144: "~x32 | ~x46"
+and 145: "~x32 | ~x53"
+and 146: "~x39 | ~x46"
+and 147: "~x39 | ~x53"
+and 148: "~x46 | ~x53"
+and 149: "~x5 | ~x12"
+and 150: "~x5 | ~x19"
+and 151: "~x5 | ~x26"
+and 152: "~x5 | ~x33"
+and 153: "~x5 | ~x40"
+and 154: "~x5 | ~x47"
+and 155: "~x5 | ~x54"
+and 156: "~x12 | ~x19"
+and 157: "~x12 | ~x26"
+and 158: "~x12 | ~x33"
+and 159: "~x12 | ~x40"
+and 160: "~x12 | ~x47"
+and 161: "~x12 | ~x54"
+and 162: "~x19 | ~x26"
+and 163: "~x19 | ~x33"
+and 164: "~x19 | ~x40"
+and 165: "~x19 | ~x47"
+and 166: "~x19 | ~x54"
+and 167: "~x26 | ~x33"
+and 168: "~x26 | ~x40"
+and 169: "~x26 | ~x47"
+and 170: "~x26 | ~x54"
+and 171: "~x33 | ~x40"
+and 172: "~x33 | ~x47"
+and 173: "~x33 | ~x54"
+and 174: "~x40 | ~x47"
+and 175: "~x40 | ~x54"
+and 176: "~x47 | ~x54"
+and 177: "~x6 | ~x13"
+and 178: "~x6 | ~x20"
+and 179: "~x6 | ~x27"
+and 180: "~x6 | ~x34"
+and 181: "~x6 | ~x41"
+and 182: "~x6 | ~x48"
+and 183: "~x6 | ~x55"
+and 184: "~x13 | ~x20"
+and 185: "~x13 | ~x27"
+and 186: "~x13 | ~x34"
+and 187: "~x13 | ~x41"
+and 188: "~x13 | ~x48"
+and 189: "~x13 | ~x55"
+and 190: "~x20 | ~x27"
+and 191: "~x20 | ~x34"
+and 192: "~x20 | ~x41"
+and 193: "~x20 | ~x48"
+and 194: "~x20 | ~x55"
+and 195: "~x27 | ~x34"
+and 196: "~x27 | ~x41"
+and 197: "~x27 | ~x48"
+and 198: "~x27 | ~x55"
+and 199: "~x34 | ~x41"
+and 200: "~x34 | ~x48"
+and 201: "~x34 | ~x55"
+and 202: "~x41 | ~x48"
+and 203: "~x41 | ~x55"
+and 204: "~x48 | ~x55"
+shows "False"
+using 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
[phone] 27 28 29 30 31 32 33 34 35 36 37 38 39
[phone] 47 48 49 50 51 52 53 54 55 56 57 58 59
[phone] 67 68 69 70 71 72 73 74 75 76 77 78 79
[phone] 87 88 89 90 91 92 93 94 95 96 97 98 99
[phone] 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119
[phone] 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139
[phone] 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
[phone] 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179
[phone] 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199
[phone]
+by sat
+
+(*
+ML {* Toplevel.profiling := 0; *}
+*)
+
 end