src/HOL/Tools/atp-inputs/const_comb_inclS.dfg
author mengj
Fri, 30 Jun 2006 12:22:29 +0200
changeset 19969 c72e2110c026
parent 19717 2742cec21579
permissions -rw-r--r--
Removed some incorrect axioms.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
19717
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
     1
%ID: $Id$
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
     2
%Author: Jia Meng, NICTA
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
     3
%typed combinator reduction for const-types-only (include S)
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
     4
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
     5
clause(
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
     6
forall([A, B, P, Q],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
     7
or( equal(hAPP(hAPP(c_COMBK(A,B),P),Q),P))),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
     8
a1 ).
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
     9
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    10
clause(
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    11
forall([A, B, C, P, Q, R],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    12
or( equal(hAPP(hAPP(hAPP(c_COMBS(A,B,C),P),Q),R),hAPP(hAPP(P,R),hAPP(Q,R))))),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    13
a2 ).
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    14
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    15
clause(
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    16
forall([P, T],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    17
or( equal(hAPP(c_COMBI(T),P),P))),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    18
a3 ).
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    19
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    20
clause(
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    21
forall([A, B, C, P, Q, R],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    22
or( equal(hAPP(hAPP(hAPP(c_COMBB(A,B,C),P),Q),R),hAPP(P,hAPP(Q,R))))),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    23
a4 ).
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    24
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    25
clause(
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    26
forall([A, B, C, P, Q, R],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    27
or( equal(hAPP(hAPP(hAPP(c_COMBC(A,B,C),P),Q),R),hAPP(hAPP(P,R),Q)))),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    28
a5 ).
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    29
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    30
clause(
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    31
forall([A, X, Y],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    32
or( not(hBOOL(hAPP(hAPP(fequal(A),X),Y))),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    33
    equal(X,Y))),
19969
c72e2110c026 Removed some incorrect axioms.
mengj
parents: 19717
diff changeset
    34
a6 ).
19717
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    35
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    36
clause(
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    37
forall([A, X, Y],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    38
or( not(equal(X,Y)),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    39
    hBOOL(hAPP(hAPP(fequal(A),X),Y)))),
19969
c72e2110c026 Removed some incorrect axioms.
mengj
parents: 19717
diff changeset
    40
a7 ).
19717
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    41