src/HOL/Finite.thy
author clasohm
Mon, 05 Feb 1996 21:27:16 +0100
changeset 1475 7f5a4cd08209
parent 1370 7361ac9b024d
child 1531 e5eb247ad13c
permissions -rw-r--r--
expanded tabs; renamed subtype to typedef; incorporated Konrad's changes
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$
1475
7f5a4cd08209 expanded tabs; renamed subtype to typedef;
clasohm
parents: 1370
diff changeset
     3
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
923
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
     4
    Copyright   1994  University of Cambridge
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
     5
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
     6
Finite powerset operator
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
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
     9
Finite = Lfp +
1370
7361ac9b024d removed quotes from types in consts and syntax sections
clasohm
parents: 923
diff changeset
    10
consts Fin :: 'a set => 'a set set
923
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
    11
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
    12
inductive "Fin(A)"
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
    13
  intrs
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
    14
    emptyI  "{} : Fin(A)"
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
    15
    insertI "[| a: A;  b: Fin(A) |] ==> insert a b : Fin(A)"
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
    16
ff1574a81019 new version of HOL with curried function application
clasohm
parents:
diff changeset
    17
end