src/ZF/Epsilon.thy
changeset 1478 2b8c2a7547ab
parent 1401 0c439768f45c
child 2469 b50b8c0eec01
     1.1 --- a/src/ZF/Epsilon.thy	Mon Feb 05 21:33:14 1996 +0100
     1.2 +++ b/src/ZF/Epsilon.thy	Tue Feb 06 12:27:17 1996 +0100
     1.3 @@ -1,6 +1,6 @@
     1.4 -(*  Title: 	ZF/epsilon.thy
     1.5 +(*  Title:      ZF/epsilon.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   1993  University of Cambridge
    1.10  
    1.11  Epsilon induction and recursion
    1.12 @@ -12,7 +12,7 @@
    1.13      transrec    ::      [i, [i,i]=>i] =>i
    1.14  
    1.15  defs
    1.16 -  eclose_def	"eclose(A) == UN n:nat. nat_rec(n, A, %m r. Union(r))"
    1.17 -  transrec_def	"transrec(a,H) == wfrec(Memrel(eclose({a})), a, H)"
    1.18 -  rank_def    	"rank(a) == transrec(a, %x f. UN y:x. succ(f`y))"
    1.19 +  eclose_def    "eclose(A) == UN n:nat. nat_rec(n, A, %m r. Union(r))"
    1.20 +  transrec_def  "transrec(a,H) == wfrec(Memrel(eclose({a})), a, H)"
    1.21 +  rank_def      "rank(a) == transrec(a, %x f. UN y:x. succ(f`y))"
    1.22  end