File: prop.mpc

package info (click to toggle)
minlog 4.0.99.20100221-6
  • links: PTS
  • area: main
  • in suites: buster, stretch
  • size: 7,060 kB
  • ctags: 4,293
  • sloc: lisp: 112,614; makefile: 257; sh: 11
file content (74 lines) | stat: -rw-r--r-- 810 bytes parent folder | download | duplicates (5)
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
MPC;

PRED . A B C;

PROOF;

{ A & B -> C.
  { A.
    { B.
      A & B;
      C;
    }
    B -> C;
  }
  A -> B -> C;
}
(A & B -> C) -> A -> B -> C;

PROOF;

{ A -> B -> C.
  { A -> B.
    { A.
      B -> C;
      B;
      C;
    }
    A -> C;
  }
  (A -> B) -> A -> C;
}
(A -> B -> C) -> (A -> B) -> A -> C;

PROOF;

{((A -> F) -> F) -> A.
  { F -> B.
    { (A -> B) -> A.
      { A -> F.
        { A.
          F;
          B;
        }
        A -> B;
        A;
        F;
      }
      (A -> F) -> F;
      A;
    }
    ((A -> B) -> A) -> A;
  }
  (F -> B) -> ((A -> B) -> A) -> A;
}
(((A -> F) -> F) -> A) -> (F -> B) -> ((A -> B) -> A) -> A;

CLASSIC PROOF;

{ (A -> B) -> A.
  { A -> F.
    { A.
      F;
      B;
    }
    A -> B;
    A;
    F;
  }
  (A -> F) -> F;
  A;
}
((A -> B) -> A) -> A;

END;