| author | mengj |
| Wed, 05 Jul 2006 14:21:22 +0200 | |
| changeset 20015 | 1ffcf4802802 |
| parent 19717 | 2742cec21579 |
| child 20645 | 5e28b8f2cb52 |
| permissions | -rw-r--r-- |
%ID: $Id$ %Author: Jia Meng, NICTA %extensionality for partial types clause( forall([A, B, F, G], or( not(equal(hAPP(F,hAPP(hAPP(hEXTENT,F,tc_fun(tc_fun(A,B),tc_fun(tc_fun(A,B),A))),G,tc_fun(tc_fun(A,B),A)),tc_fun(A,B)),hAPP(G,hAPP(hAPP(hEXTENT,F,tc_fun(tc_fun(A,B),tc_fun(tc_fun(A,B),A))),G,tc_fun(tc_fun(A,B),A)),tc_fun(A,B)))), equal(F,G))), a18 ).