src/HOL/Tools/atp-inputs/u_comb_noS.dfg
author wenzelm
Fri, 29 Sep 2006 22:47:51 +0200
changeset 20787 406d990006af
parent 19969 c72e2110c026
permissions -rw-r--r--
moved Matrix/cplex/MatrixLP.ML to Matrix/cplex/matrixlp.ML;
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
%untyped combinator reduction (no 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([P, Q],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
     7
or( equal(hAPP(hAPP(c_COMBK,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([P],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    12
or( equal(hAPP(c_COMBI,P),P))),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    13
a3 ).
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, Q, R],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    17
or( equal(hAPP(hAPP(hAPP(c_COMBB,P),Q),R),hAPP(P,hAPP(Q,R))))),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    18
a4 ).
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([P, Q, R],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    22
or( equal(hAPP(hAPP(hAPP(c_COMBC,P),Q),R),hAPP(hAPP(P,R),Q)))),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    23
a5 ).
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([X, Y],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    27
or( not(hBOOL(hAPP(hAPP(fequal,X),Y))),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    28
    equal(X,Y))),
19969
c72e2110c026 Removed some incorrect axioms.
mengj
parents: 19717
diff changeset
    29
a6 ).
19717
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    30
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    31
clause(
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    32
forall([X, Y],
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    33
or( not(equal(X,Y)),
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    34
    hBOOL(hAPP(hAPP(fequal,X),Y)))),
19969
c72e2110c026 Removed some incorrect axioms.
mengj
parents: 19717
diff changeset
    35
a7 ).
19717
2742cec21579 Helper files in DFG format.
mengj
parents:
diff changeset
    36