Theorem bnj882 33464

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 33228	. 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 4333	. . 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 4333	. . . 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 977	. . . . . . . . . . . 12 |- ( ( f Fn n /\ ph /\ ps ) <-> ( f Fn n /\ ( ph /\ ps ) ) )
11		3anass 977	. . . . . . . . . . . 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 2982	. . . . . . . . . 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 2601	. . . . . . . . 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 2496	. . . . . . . 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 2545	. . . . . . 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 2967	. . . . 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 2601	. . . 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 2499	. . 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 2499	. 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 2499	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 973   = wceq 1379   e. wcel 1767   {cab 2452   A.wral 2817   E.wrex 2818   \ cdif 3478   (/)c0 3790   {csn 4033   U_ciun 4331   suc csuc 4886   dom cdm 5005   Fn wfn 5589   ` cfv 5594   omcom 6695   predc-bnj14 33221   trClc-bnj18 33227

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1601  ax-4 1612  ax-5 1680  ax-6 1719  ax-7 1739  ax-10 1786  ax-11 1791  ax-12 1803  ax-13 1968  ax-ext 2445

This theorem depends on definitions:  df-bi 185  df-an 371  df-3an 975  df-tru 1382  df-ex 1597  df-nf 1600  df-sb 1712  df-clab 2453  df-cleq 2459  df-clel 2462  df-rex 2823  df-iun 4333  df-bnj18 33228

This theorem is referenced by:  bnj893  33466  bnj906  33468  bnj916  33471  bnj983  33489  bnj1014  33498  bnj1145  33529  bnj1318  33561