author | lcp |
Thu, 06 Apr 1995 11:49:42 +0200 | |
changeset 246 | 0f9230a24164 |
parent 128 | 89669c58e506 |
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