Theorem bnj882 33712

Description: Definition (using hypotheses for readability) of the function giving the transitive closure of X in A by R. (Contributed by Jonathan Ben-Naim, 3-Jun-2011.) (New usage is discouraged.)

Hypotheses

Ref	Expression
bnj882.1	|- ( ph <-> ( f ` (/) ) = pred ( X , A , R ) )
bnj882.2	|- ( ps <-> A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) )
bnj882.3	|- D = ( om \ { (/) } )
bnj882.4	|- B = { f | E. n e. D ( f Fn n /\ ph /\ ps ) }

Assertion

Ref	Expression
bnj882	|- trCl ( X , A , R ) = U_ f e. B U_ i e. dom f ( f ` i )

Distinct variable groups:   A, f, i, n, y   R, f, i, n, y   f, X, i, n, y

Allowed substitution hints:   ph( y, f, i, n)   ps( y, f, i, n)   B( y, f, i, n)   D( y, f, i, n)

Proof of Theorem bnj882

Dummy variable w is distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-bnj18 33475	. 2 |- trCl ( X , A , R ) = U_ f e. { f | E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) } U_ i e. dom f ( f ` i )
2		df-iun 4314	. . 3 |- U_ f e. B U_ i e. dom f ( f ` i ) = { w | E. f e. B w e. U_ i e. dom f ( f ` i ) }
3		df-iun 4314	. . . 4 |- U_ f e. { f | E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) } U_ i e. dom f ( f ` i ) = { w | E. f e. { f | E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) } w e. U_ i e. dom f ( f ` i ) }
4		bnj882.4	. . . . . . . . 9 |- B = { f | E. n e. D ( f Fn n /\ ph /\ ps ) }
5		bnj882.3	. . . . . . . . . . 11 |- D = ( om \ { (/) } )
6		bnj882.1	. . . . . . . . . . . . . 14 |- ( ph <-> ( f ` (/) ) = pred ( X , A , R ) )
7		bnj882.2	. . . . . . . . . . . . . 14 |- ( ps <-> A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) )
8	6, 7	anbi12i 697	. . . . . . . . . . . . 13 |- ( ( ph /\ ps ) <-> ( ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) )
9	8	anbi2i 694	. . . . . . . . . . . 12 |- ( ( f Fn n /\ ( ph /\ ps ) ) <-> ( f Fn n /\ ( ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) ) )
10		3anass 976	. . . . . . . . . . . 12 |- ( ( f Fn n /\ ph /\ ps ) <-> ( f Fn n /\ ( ph /\ ps ) ) )
11		3anass 976	. . . . . . . . . . . 12 |- ( ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) <-> ( f Fn n /\ ( ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) ) )
12	9, 10, 11	3bitr4i 277	. . . . . . . . . . 11 |- ( ( f Fn n /\ ph /\ ps ) <-> ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) )
13	5, 12	rexeqbii 2956	. . . . . . . . . 10 |- ( E. n e. D ( f Fn n /\ ph /\ ps ) <-> E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) )
14	13	abbii 2575	. . . . . . . . 9 |- { f | E. n e. D ( f Fn n /\ ph /\ ps ) } = { f | E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) }
15	4, 14	eqtri 2470	. . . . . . . 8 |- B = { f | E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) }
16	15	eleq2i 2519	. . . . . . 7 |- ( f e. B <-> f e. { f | E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) } )
17	16	anbi1i 695	. . . . . 6 |- ( ( f e. B /\ w e. U_ i e. dom f ( f ` i ) ) <-> ( f e. { f | E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) } /\ w e. U_ i e. dom f ( f ` i ) ) )
18	17	rexbii2 2941	. . . . 5 |- ( E. f e. B w e. U_ i e. dom f ( f ` i ) <-> E. f e. { f | E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) } w e. U_ i e. dom f ( f ` i ) )
19	18	abbii 2575	. . . 4 |- { w | E. f e. B w e. U_ i e. dom f ( f ` i ) } = { w | E. f e. { f | E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) } w e. U_ i e. dom f ( f ` i ) }
20	3, 19	eqtr4i 2473	. . 3 |- U_ f e. { f | E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) } U_ i e. dom f ( f ` i ) = { w | E. f e. B w e. U_ i e. dom f ( f ` i ) }
21	2, 20	eqtr4i 2473	. 2 |- U_ f e. B U_ i e. dom f ( f ` i ) = U_ f e. { f | E. n e. ( om \ { (/) } ) ( f Fn n /\ ( f ` (/) ) = pred ( X , A , R ) /\ A. i e. om ( suc i e. n -> ( f ` suc i ) = U_ y e. ( f ` i ) pred ( y , A , R ) ) ) } U_ i e. dom f ( f ` i )
22	1, 21	eqtr4i 2473	1 |- trCl ( X , A , R ) = U_ f e. B U_ i e. dom f ( f ` i )

Syntax hints:   -> wi 4   <-> wb 184   /\ wa 369   /\ w3a 972   = wceq 1381   e. wcel 1802   {cab 2426   A.wral 2791   E.wrex 2792   \ cdif 3456   (/)c0 3768   {csn 4011   U_ciun 4312   suc csuc 4867   dom cdm 4986   Fn wfn 5570   ` cfv 5575   omcom 6682   predc-bnj14 33468   trClc-bnj18 33474

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1603  ax-4 1616  ax-5 1689  ax-6 1732  ax-7 1774  ax-10 1821  ax-11 1826  ax-12 1838  ax-13 1983  ax-ext 2419

This theorem depends on definitions:  df-bi 185  df-an 371  df-3an 974  df-tru 1384  df-ex 1598  df-nf 1602  df-sb 1725  df-clab 2427  df-cleq 2433  df-clel 2436  df-rex 2797  df-iun 4314  df-bnj18 33475

This theorem is referenced by:  bnj893  33714  bnj906  33716  bnj916  33719  bnj983  33737  bnj1014  33746  bnj1145  33777  bnj1318  33809