Resolution Experiment 1
Unsatisfiable
E2 = or["A", "B"], or"A", "C", "D", or"C", "D",
- r"B", "C", or"A", "B", "C", or"A", "B", "C", "D"
Resolution
Block[{$RecursionLimit = 5000}, isSatisfiable[E2, show → {proof, statistics}]]
Proof 14 steps level pairs s.ancest-
- rs
resoluti-
- ns
failed resolven- ts true prezent f.subsum- ed clauses b.subsum- ed 1 15 15 1 14 1 13 2 156 26 130 26 104 25 53 26 3 819 52 767 303 464 102 342 20 4 425 14 411 135 276 82 193 1 total 1415 92 1323 465 858 210 588 60 Proof 14 steps: 9 {3, 6}
- rA, B, C
{3, 6} {} 11 {1, 5}
- rB, C
{1, 5} {} 13 {3, 5}
- rA, B, D
{3, 5} {} 14 {4, 5}
- rA, C
{4, 5} {} 15 {1, 4}
- rA, C
{1, 4} {} 18 {2, 3}
- rA, C
{2, 3} {} 19 {1, 2}
- r[B, C, D]
{1, 2} {} 22 {11, 19}
- r[B, D]
{1, 2, 5} {1} 27 {9, 18}
- rB, C
{2, 3, 6} {3} 42 {14, 15}
- r[C]
{1, 4, 5} {4} 43 {1, 13}
- rB, D
{1, 3, 5} {} 56 {22, 43}
- r[B]
{1, 2, 3, 5} {1, 5} 59 {27, 42}
- r[B]
{1, 2, 3, 4, 5, 6} {} 66 {56, 59} {1, 2, 3, 4, 5, 6} {1, 2, 3, 5}
Resolution with forward subsumption
In[ ]:= Block[{$RecursionLimit = 5000},
isSatisfiable[E2, use → {forwardSubsumption}, show → {proof, statistics}]]