| author | huffman |
| Thu, 28 Sep 2006 19:04:13 +0200 | |
| changeset 20763 | 052b348a98a9 |
| parent 20647 | 680b58597f65 |
| permissions | -rw-r--r-- |
%ID: $Id$ %Author: Jia Meng, NICTA %full-typed combinator reduction for I, K clause( forall([A, B, P, Q], or( equal(typeinfo(hAPP(typeinfo(hAPP(typeinfo(c_COMBK,tc_fun(A,tc_fun(B,A))),typeinfo(P,A)),tc_fun(B,A)),typeinfo(Q,B)),A),typeinfo(P,A)))), a1 ). clause( forall([P, T], or( equal(typeinfo(hAPP(typeinfo(c_COMBI,tc_fun(T,T)),typeinfo(P,T)),T),typeinfo(P,T)))), a3 ).