Mercurial Mercurial > repos > isabelle / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/atp-inputs/full_helper1.dfg
author mengj
Wed, 05 Jul 2006 14:21:22 +0200
changeset 20015 1ffcf4802802
parent 19717 2742cec21579
child 20645 5e28b8f2cb52
permissions -rw-r--r--
Literals aren't sorted any more. Output overloaded constants' type var instantiations.

%ID: $Id$
%Author: Jia Meng, NICTA
%extensionality for full-types

clause(
forall([A, B, F, G],
or( not(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))),
    equal(typeinfo(F,tc_fun(A,B)),typeinfo(G,tc_fun(A,B))))),
a18 ).
isabelle