isabelle: src/HOL/Tools/atp-inputs/par_comb_noS.dfg@c72e2110c026 (annotated)

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 partial-types (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([A, B, P, Q],
2742cec21579 Helper files in DFG format. mengj parents: diff changeset	7	or( equal(hAPP(hAPP(c_COMBK,P,tc_fun(A,tc_fun(B,A))),Q,tc_fun(B,A)),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, T],
2742cec21579 Helper files in DFG format. mengj parents: diff changeset	12	or( equal(hAPP(c_COMBI,P,tc_fun(T,T)),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([A, B, C, P, Q, R],
2742cec21579 Helper files in DFG format. mengj parents: diff changeset	17	or( equal(hAPP(hAPP(hAPP(c_COMBB,P,tc_fun(tc_fun(A,B),tc_fun(tc_fun(C,A),tc_fun(C,B)))),Q,tc_fun(tc_fun(C,A),tc_fun(C,B))),R,tc_fun(C,B)),hAPP(P,hAPP(Q,R,tc_fun(C,A)),tc_fun(A,B))))),
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([A, B, C, P, Q, R],
2742cec21579 Helper files in DFG format. mengj parents: diff changeset	22	or( equal(hAPP(hAPP(hAPP(c_COMBC,P,tc_fun(tc_fun(A,tc_fun(B,C)),tc_fun(B,tc_fun(A,C)))),Q,tc_fun(B,tc_fun(A,C))),R,tc_fun(A,C)),hAPP(hAPP(P,R,tc_fun(A,tc_fun(B,C))),Q,tc_fun(B,C))))),
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([A, X, Y],
2742cec21579 Helper files in DFG format. mengj parents: diff changeset	27	or( not(hBOOL(hAPP(hAPP(fequal,X,tc_fun(A,tc_fun(A,tc_bool))),Y,tc_fun(A,tc_bool)))),
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([A, 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,tc_fun(A,tc_fun(A,tc_bool))),Y,tc_fun(A,tc_bool))))),
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

author	mengj
	Fri, 30 Jun 2006 12:22:29 +0200
changeset 19969	c72e2110c026
parent 19717	2742cec21579
permissions	-rw-r--r--