src/HOL/Tools/atp-inputs/const_helper1.tptp
author paulson
Thu, 21 Sep 2006 17:33:11 +0200
changeset 20661 46832fee1215
parent 20645 5e28b8f2cb52
permissions -rw-r--r--
Yet another version of fake_thm_name. "Full" hashing ensures that there are no collisions unless theorems differ by sorts alone, which should not matter. Also minor fixes to standard hashing.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
19492
29c6cba140da added some helper files for HOL goals/lemmas. Clauses have TPTP format.
mengj
parents:
diff changeset
     1
%ID: $Id$
29c6cba140da added some helper files for HOL goals/lemmas. Clauses have TPTP format.
mengj
parents:
diff changeset
     2
%Author: Jia Meng, NICTA
20645
5e28b8f2cb52 Moved the functional equality axioms to helper1 files.
mengj
parents: 19492
diff changeset
     3
%functional equality and extensionality for const-types-only
5e28b8f2cb52 Moved the functional equality axioms to helper1 files.
mengj
parents: 19492
diff changeset
     4
5e28b8f2cb52 Moved the functional equality axioms to helper1 files.
mengj
parents: 19492
diff changeset
     5
input_clause(a9,axiom,
5e28b8f2cb52 Moved the functional equality axioms to helper1 files.
mengj
parents: 19492
diff changeset
     6
[--hBOOL(hAPP(hAPP(fequal(A),X),Y)),++equal(X,Y)]).
19492
29c6cba140da added some helper files for HOL goals/lemmas. Clauses have TPTP format.
mengj
parents:
diff changeset
     7
20645
5e28b8f2cb52 Moved the functional equality axioms to helper1 files.
mengj
parents: 19492
diff changeset
     8
input_clause(a10,axiom,
5e28b8f2cb52 Moved the functional equality axioms to helper1 files.
mengj
parents: 19492
diff changeset
     9
[++hBOOL(hAPP(hAPP(fequal(A),X),Y)),--equal(X,Y)]).
5e28b8f2cb52 Moved the functional equality axioms to helper1 files.
mengj
parents: 19492
diff changeset
    10
5e28b8f2cb52 Moved the functional equality axioms to helper1 files.
mengj
parents: 19492
diff changeset
    11
input_clause(a11,axiom,
19492
29c6cba140da added some helper files for HOL goals/lemmas. Clauses have TPTP format.
mengj
parents:
diff changeset
    12
[--equal(hAPP(F,hAPP(hAPP(hEXTENT(A,B),F),G)),hAPP(G,hAPP(hAPP(hEXTENT(A,B),F),G))),
29c6cba140da added some helper files for HOL goals/lemmas. Clauses have TPTP format.
mengj
parents:
diff changeset
    13
++equal(F,G)]).
29c6cba140da added some helper files for HOL goals/lemmas. Clauses have TPTP format.
mengj
parents:
diff changeset
    14
29c6cba140da added some helper files for HOL goals/lemmas. Clauses have TPTP format.
mengj
parents:
diff changeset
    15
29c6cba140da added some helper files for HOL goals/lemmas. Clauses have TPTP format.
mengj
parents:
diff changeset
    16