src/HOL/Finite.thy
author nipkow
Fri, 04 Jul 1997 14:37:30 +0200
changeset 3499 ce1664057431
parent 3413 c1f63cc3a768
child 5101 52e7c75acfe6
permissions -rw-r--r--
Reduced priority of postfix ^* etc operators such that they are the same as application. Eg wf r^* now needs to be written wf(r^*).
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1475
7f5a4cd08209 expanded tabs; renamed subtype to typedef;
clasohm
parents: 1370
diff changeset
     1
(*  Title:      HOL/Finite.thy
923
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
     2
    ID:         $Id$
1531
e5eb247ad13c Added a constant UNIV == {x.True}
nipkow
parents: 1475
diff changeset
     3
    Author:     Lawrence C Paulson & Tobias Nipkow
e5eb247ad13c Added a constant UNIV == {x.True}
nipkow
parents: 1475
diff changeset
     4
    Copyright   1995  University of Cambridge & TU Muenchen
923
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
     5
1531
e5eb247ad13c Added a constant UNIV == {x.True}
nipkow
parents: 1475
diff changeset
     6
Finite sets and their cardinality
923
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
     7
*)
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
     8
3389
3150eba724a1 New theorem about the cardinality of the powerset (uses exponentiation)
paulson
parents: 3367
diff changeset
     9
Finite = Divides + Power + 
1531
e5eb247ad13c Added a constant UNIV == {x.True}
nipkow
parents: 1475
diff changeset
    10
3413
c1f63cc3a768 Finite.ML Finite.thy: Replaced `finite subset of' by mere `finite'.
nipkow
parents: 3389
diff changeset
    11
consts Finites :: 'a set set
923
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
    12
3413
c1f63cc3a768 Finite.ML Finite.thy: Replaced `finite subset of' by mere `finite'.
nipkow
parents: 3389
diff changeset
    13
inductive "Finites"
923
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
    14
  intrs
3413
c1f63cc3a768 Finite.ML Finite.thy: Replaced `finite subset of' by mere `finite'.
nipkow
parents: 3389
diff changeset
    15
    emptyI  "{} : Finites"
c1f63cc3a768 Finite.ML Finite.thy: Replaced `finite subset of' by mere `finite'.
nipkow
parents: 3389
diff changeset
    16
    insertI "A : Finites ==> insert a A : Finites"
c1f63cc3a768 Finite.ML Finite.thy: Replaced `finite subset of' by mere `finite'.
nipkow
parents: 3389
diff changeset
    17
c1f63cc3a768 Finite.ML Finite.thy: Replaced `finite subset of' by mere `finite'.
nipkow
parents: 3389
diff changeset
    18
syntax finite :: 'a set => bool
c1f63cc3a768 Finite.ML Finite.thy: Replaced `finite subset of' by mere `finite'.
nipkow
parents: 3389
diff changeset
    19
translations  "finite A"  ==  "A : Finites"
923
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
    20
1556
2fd82cec17d4 added constdefs section
clasohm
parents: 1531
diff changeset
    21
constdefs
2fd82cec17d4 added constdefs section
clasohm
parents: 1531
diff changeset
    22
  card :: 'a set => nat
2fd82cec17d4 added constdefs section
clasohm
parents: 1531
diff changeset
    23
  "card A == LEAST n. ? f. A = {f i |i. i<n}"
1531
e5eb247ad13c Added a constant UNIV == {x.True}
nipkow
parents: 1475
diff changeset
    24
923
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
    25
end