1
%ID: $Id$
2
%Author: Jia Meng, NICTA
3
%extensionality for const-types-only
4
5
clause(
6
forall([A, B, F, G],
7
or( not(equal(hAPP(F,hAPP(hAPP(hEXTENT(A,B),F),G)),hAPP(G,hAPP(hAPP(hEXTENT(A,B),F),G)))),
8
equal(F,G))),
9
a18 ).
10