author | mengj |
Wed, 20 Sep 2006 13:56:39 +0200 | |
changeset 20645 | 5e28b8f2cb52 |
parent 19492 | 29c6cba140da |
permissions | -rw-r--r-- |
%ID: $Id$ %Author: Jia Meng, NICTA %functional equality and extensionality for const-types-only input_clause(a9,axiom, [--hBOOL(hAPP(hAPP(fequal(A),X),Y)),++equal(X,Y)]). input_clause(a10,axiom, [++hBOOL(hAPP(hAPP(fequal(A),X),Y)),--equal(X,Y)]). input_clause(a11,axiom, [--equal(hAPP(F,hAPP(hAPP(hEXTENT(A,B),F),G)),hAPP(G,hAPP(hAPP(hEXTENT(A,B),F),G))), ++equal(F,G)]).