src/ZF/Finite.thy
changeset 1478 2b8c2a7547ab
parent 1401 0c439768f45c
child 6053 8a1059aa01f0
     1.1 --- a/src/ZF/Finite.thy	Mon Feb 05 21:33:14 1996 +0100
     1.2 +++ b/src/ZF/Finite.thy	Tue Feb 06 12:27:17 1996 +0100
     1.3 @@ -1,6 +1,6 @@
     1.4 -(*  Title: 	ZF/Finite.thy
     1.5 +(*  Title:      ZF/Finite.thy
     1.6      ID:         $Id$
     1.7 -    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
     1.8 +    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
     1.9      Copyright   1994  University of Cambridge
    1.10  
    1.11  Finite powerset operator
    1.12 @@ -8,8 +8,8 @@
    1.13  
    1.14  Finite = Arith + Inductive +
    1.15  consts
    1.16 -  Fin 	    :: i=>i
    1.17 -  FiniteFun :: [i,i]=>i		("(_ -||>/ _)" [61, 60] 60)
    1.18 +  Fin       :: i=>i
    1.19 +  FiniteFun :: [i,i]=>i         ("(_ -||>/ _)" [61, 60] 60)
    1.20  
    1.21  inductive
    1.22    domains   "Fin(A)" <= "Pow(A)"
    1.23 @@ -24,6 +24,6 @@
    1.24    intrs
    1.25      emptyI  "0 : A -||> B"
    1.26      consI   "[| a: A;  b: B;  h: A -||> B;  a ~: domain(h)   
    1.27 -	     |] ==> cons(<a,b>,h) : A -||> B"
    1.28 +             |] ==> cons(<a,b>,h) : A -||> B"
    1.29    type_intrs "Fin.intrs"
    1.30  end