| changeset 20645 | 5e28b8f2cb52 |
| parent 19492 | 29c6cba140da |
| 20644:ff938c7b15e8 | 20645:5e28b8f2cb52 |
|---|---|
1 %ID: $Id$ |
1 %ID: $Id$ |
2 %Author: Jia Meng, NICTA |
2 %Author: Jia Meng, NICTA |
3 %extensionality for full-types |
3 %functional equality and extensionality for full-types |
4 |
4 |
5 input_clause(a18,axiom, |
5 input_clause(a9,axiom, |
6 [--hBOOL(typeinfo(hAPP(typeinfo(hAPP(typeinfo(fequal,tc_fun(A,tc_fun(A,tc_bool))),typeinfo(X,A)),tc_fun(A,tc_bool)),typeinfo(Y,A)),tc_bool)), |
|
7 ++equal(typeinfo(X,A),typeinfo(Y,A))]). |
|
8 |
|
9 input_clause(a10,axiom, |
|
10 [++hBOOL(typeinfo(hAPP(typeinfo(hAPP(typeinfo(fequal,tc_fun(A,tc_fun(A,tc_bool))),typeinfo(X,A)),tc_fun(A,tc_bool)),typeinfo(Y,A)),tc_bool)), |
|
11 --equal(typeinfo(X,A),typeinfo(Y,A))]). |
|
12 |
|
13 input_clause(a11,axiom, |
|
6 [--equal(typeinfo(hAPP(typeinfo(F,tc_fun(A,B)),typeinfo(hAPP(typeinfo(hAPP(typeinfo(hEXTENT,tc_fun(tc_fun(A,B),tc_fun(tc_fun(A,B),A))),typeinfo(F,tc_fun(A,B))),tc_fun(tc_fun(A,B),A)),typeinfo(G,tc_fun(A,B))),A)),B),typeinfo(hAPP(typeinfo(G,tc_fun(A,B)),typeinfo(hAPP(typeinfo(hAPP(typeinfo(hEXTENT,tc_fun(tc_fun(A,B),tc_fun(tc_fun(A,B),A))),typeinfo(F,tc_fun(A,B))),tc_fun(tc_fun(A,B),A)),typeinfo(G,tc_fun(A,B))),A)),B)), |
14 [--equal(typeinfo(hAPP(typeinfo(F,tc_fun(A,B)),typeinfo(hAPP(typeinfo(hAPP(typeinfo(hEXTENT,tc_fun(tc_fun(A,B),tc_fun(tc_fun(A,B),A))),typeinfo(F,tc_fun(A,B))),tc_fun(tc_fun(A,B),A)),typeinfo(G,tc_fun(A,B))),A)),B),typeinfo(hAPP(typeinfo(G,tc_fun(A,B)),typeinfo(hAPP(typeinfo(hAPP(typeinfo(hEXTENT,tc_fun(tc_fun(A,B),tc_fun(tc_fun(A,B),A))),typeinfo(F,tc_fun(A,B))),tc_fun(tc_fun(A,B),A)),typeinfo(G,tc_fun(A,B))),A)),B)), |
7 ++equal(typeinfo(F,tc_fun(A,B)),typeinfo(G,tc_fun(A,B)))]). |
15 ++equal(typeinfo(F,tc_fun(A,B)),typeinfo(G,tc_fun(A,B)))]). |