author | clasohm |
Wed, 29 Nov 1995 16:44:59 +0100 | |
changeset 1370 | 7361ac9b024d |
parent 923 | ff1574a81019 |
child 1475 | 7f5a4cd08209 |
permissions | -rw-r--r-- |
(* Title: HOL/Finite.thy ID: $Id$ Author: Lawrence C Paulson, Cambridge University Computer Laboratory Copyright 1994 University of Cambridge Finite powerset operator *) Finite = Lfp + consts Fin :: 'a set => 'a set set inductive "Fin(A)" intrs emptyI "{} : Fin(A)" insertI "[| a: A; b: Fin(A) |] ==> insert a b : Fin(A)" end