Theorem wunex2 8569

Description: Construct a weak universe from a given set. (Contributed by Mario Carneiro, 2-Jan-2017.)

Hypotheses

Ref	Expression
wunex2.f	|- F = ( rec ( ( z e. _V |-> ( ( z u. U. z ) u. U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) ) ) , ( A u. 1o ) ) |` om )
wunex2.u	|- U = U. ran F

Assertion

Ref	Expression
wunex2	|- ( A e. V -> ( U e. WUni /\ A C_ U ) )

Distinct variable group:   x, y, z

Allowed substitution hints:   A( x, y, z)   U( x, y, z)   F( x, y, z)   V( x, y, z)

Proof of Theorem wunex2

Dummy variables u a v w b m n i k are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		wunex2.u	. . . . . . . 8 |- U = U. ran F
2	1	eleq2i 2468	. . . . . . 7 |- ( a e. U <-> a e. U. ran F )
3		frfnom 6651	. . . . . . . . 9 |- ( rec ( ( z e. _V |-> ( ( z u. U. z ) u. U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) ) ) , ( A u. 1o ) ) |` om ) Fn om
4		wunex2.f	. . . . . . . . . 10 |- F = ( rec ( ( z e. _V |-> ( ( z u. U. z ) u. U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) ) ) , ( A u. 1o ) ) |` om )
5	4	fneq1i 5498	. . . . . . . . 9 |- ( F Fn om <-> ( rec ( ( z e. _V |-> ( ( z u. U. z ) u. U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) ) ) , ( A u. 1o ) ) |` om ) Fn om )
6	3, 5	mpbir 201	. . . . . . . 8 |- F Fn om
7		fnunirn 5958	. . . . . . . 8 |- ( F Fn om -> ( a e. U. ran F <-> E. m e. om a e. ( F ` m ) ) )
8	6, 7	ax-mp 8	. . . . . . 7 |- ( a e. U. ran F <-> E. m e. om a e. ( F ` m ) )
9	2, 8	bitri 241	. . . . . 6 |- ( a e. U <-> E. m e. om a e. ( F ` m ) )
10		elssuni 4003	. . . . . . . . . . 11 |- ( a e. ( F ` m ) -> a C_ U. ( F ` m ) )
11	10	ad2antll 710	. . . . . . . . . 10 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> a C_ U. ( F ` m ) )
12		ssun2 3471	. . . . . . . . . . 11 |- U. ( F ` m ) C_ ( ( F ` m ) u. U. ( F ` m ) )
13		ssun1 3470	. . . . . . . . . . 11 |- ( ( F ` m ) u. U. ( F ` m ) ) C_ ( ( ( F ` m ) u. U. ( F ` m ) ) u. U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) )
14	12, 13	sstri 3317	. . . . . . . . . 10 |- U. ( F ` m ) C_ ( ( ( F ` m ) u. U. ( F ` m ) ) u. U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) )
15	11, 14	syl6ss 3320	. . . . . . . . 9 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> a C_ ( ( ( F ` m ) u. U. ( F ` m ) ) u. U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) ) )
16		simprl 733	. . . . . . . . . 10 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> m e. om )
17		fvex 5701	. . . . . . . . . . . 12 |- ( F ` m ) e. _V
18	17	uniex 4664	. . . . . . . . . . . 12 |- U. ( F ` m ) e. _V
19	17, 18	unex 4666	. . . . . . . . . . 11 |- ( ( F ` m ) u. U. ( F ` m ) ) e. _V
20		prex 4366	. . . . . . . . . . . . 13 |- { ~P u , U. u } e. _V
21	17	mptex 5925	. . . . . . . . . . . . . 14 |- ( v e. ( F ` m ) |-> { u , v } ) e. _V
22	21	rnex 5092	. . . . . . . . . . . . 13 |- ran ( v e. ( F ` m ) |-> { u , v } ) e. _V
23	20, 22	unex 4666	. . . . . . . . . . . 12 |- ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) e. _V
24	17, 23	iunex 5950	. . . . . . . . . . 11 |- U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) e. _V
25	19, 24	unex 4666	. . . . . . . . . 10 |- ( ( ( F ` m ) u. U. ( F ` m ) ) u. U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) ) e. _V
26		id 20	. . . . . . . . . . . . 13 |- ( w = z -> w = z )
27		unieq 3984	. . . . . . . . . . . . 13 |- ( w = z -> U. w = U. z )
28	26, 27	uneq12d 3462	. . . . . . . . . . . 12 |- ( w = z -> ( w u. U. w ) = ( z u. U. z ) )
29		pweq 3762	. . . . . . . . . . . . . . . 16 |- ( u = x -> ~P u = ~P x )
30		unieq 3984	. . . . . . . . . . . . . . . 16 |- ( u = x -> U. u = U. x )
31	29, 30	preq12d 3851	. . . . . . . . . . . . . . 15 |- ( u = x -> { ~P u , U. u } = { ~P x , U. x } )
32		preq2 3844	. . . . . . . . . . . . . . . . . 18 |- ( v = y -> { u , v } = { u , y } )
33	32	cbvmptv 4260	. . . . . . . . . . . . . . . . 17 |- ( v e. w |-> { u , v } ) = ( y e. w |-> { u , y } )
34		preq1 3843	. . . . . . . . . . . . . . . . . 18 |- ( u = x -> { u , y } = { x , y } )
35	34	mpteq2dv 4256	. . . . . . . . . . . . . . . . 17 |- ( u = x -> ( y e. w |-> { u , y } ) = ( y e. w |-> { x , y } ) )
36	33, 35	syl5eq 2448	. . . . . . . . . . . . . . . 16 |- ( u = x -> ( v e. w |-> { u , v } ) = ( y e. w |-> { x , y } ) )
37	36	rneqd 5056	. . . . . . . . . . . . . . 15 |- ( u = x -> ran ( v e. w |-> { u , v } ) = ran ( y e. w |-> { x , y } ) )
38	31, 37	uneq12d 3462	. . . . . . . . . . . . . 14 |- ( u = x -> ( { ~P u , U. u } u. ran ( v e. w |-> { u , v } ) ) = ( { ~P x , U. x } u. ran ( y e. w |-> { x , y } ) ) )
39	38	cbviunv 4090	. . . . . . . . . . . . 13 |- U_ u e. w ( { ~P u , U. u } u. ran ( v e. w |-> { u , v } ) ) = U_ x e. w ( { ~P x , U. x } u. ran ( y e. w |-> { x , y } ) )
40		mpteq1 4249	. . . . . . . . . . . . . . . 16 |- ( w = z -> ( y e. w |-> { x , y } ) = ( y e. z |-> { x , y } ) )
41	40	rneqd 5056	. . . . . . . . . . . . . . 15 |- ( w = z -> ran ( y e. w |-> { x , y } ) = ran ( y e. z |-> { x , y } ) )
42	41	uneq2d 3461	. . . . . . . . . . . . . 14 |- ( w = z -> ( { ~P x , U. x } u. ran ( y e. w |-> { x , y } ) ) = ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) )
43	26, 42	iuneq12d 4077	. . . . . . . . . . . . 13 |- ( w = z -> U_ x e. w ( { ~P x , U. x } u. ran ( y e. w |-> { x , y } ) ) = U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) )
44	39, 43	syl5eq 2448	. . . . . . . . . . . 12 |- ( w = z -> U_ u e. w ( { ~P u , U. u } u. ran ( v e. w |-> { u , v } ) ) = U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) )
45	28, 44	uneq12d 3462	. . . . . . . . . . 11 |- ( w = z -> ( ( w u. U. w ) u. U_ u e. w ( { ~P u , U. u } u. ran ( v e. w |-> { u , v } ) ) ) = ( ( z u. U. z ) u. U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) ) )
46		id 20	. . . . . . . . . . . . 13 |- ( w = ( F ` m ) -> w = ( F ` m ) )
47		unieq 3984	. . . . . . . . . . . . 13 |- ( w = ( F ` m ) -> U. w = U. ( F ` m ) )
48	46, 47	uneq12d 3462	. . . . . . . . . . . 12 |- ( w = ( F ` m ) -> ( w u. U. w ) = ( ( F ` m ) u. U. ( F ` m ) ) )
49		mpteq1 4249	. . . . . . . . . . . . . . 15 |- ( w = ( F ` m ) -> ( v e. w |-> { u , v } ) = ( v e. ( F ` m ) |-> { u , v } ) )
50	49	rneqd 5056	. . . . . . . . . . . . . 14 |- ( w = ( F ` m ) -> ran ( v e. w |-> { u , v } ) = ran ( v e. ( F ` m ) |-> { u , v } ) )
51	50	uneq2d 3461	. . . . . . . . . . . . 13 |- ( w = ( F ` m ) -> ( { ~P u , U. u } u. ran ( v e. w |-> { u , v } ) ) = ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) )
52	46, 51	iuneq12d 4077	. . . . . . . . . . . 12 |- ( w = ( F ` m ) -> U_ u e. w ( { ~P u , U. u } u. ran ( v e. w |-> { u , v } ) ) = U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) )
53	48, 52	uneq12d 3462	. . . . . . . . . . 11 |- ( w = ( F ` m ) -> ( ( w u. U. w ) u. U_ u e. w ( { ~P u , U. u } u. ran ( v e. w |-> { u , v } ) ) ) = ( ( ( F ` m ) u. U. ( F ` m ) ) u. U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) ) )
54	4, 45, 53	frsucmpt2 6656	. . . . . . . . . 10 |- ( ( m e. om /\ ( ( ( F ` m ) u. U. ( F ` m ) ) u. U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) ) e. _V ) -> ( F ` suc m ) = ( ( ( F ` m ) u. U. ( F ` m ) ) u. U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) ) )
55	16, 25, 54	sylancl 644	. . . . . . . . 9 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> ( F ` suc m ) = ( ( ( F ` m ) u. U. ( F ` m ) ) u. U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) ) )
56	15, 55	sseqtr4d 3345	. . . . . . . 8 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> a C_ ( F ` suc m ) )
57		fvssunirn 5713	. . . . . . . . 9 |- ( F ` suc m ) C_ U. ran F
58	57, 1	sseqtr4i 3341	. . . . . . . 8 |- ( F ` suc m ) C_ U
59	56, 58	syl6ss 3320	. . . . . . 7 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> a C_ U )
60	59	rexlimdvaa 2791	. . . . . 6 |- ( A e. V -> ( E. m e. om a e. ( F ` m ) -> a C_ U ) )
61	9, 60	syl5bi 209	. . . . 5 |- ( A e. V -> ( a e. U -> a C_ U ) )
62	61	ralrimiv 2748	. . . 4 |- ( A e. V -> A. a e. U a C_ U )
63		dftr3 4266	. . . 4 |- ( Tr U <-> A. a e. U a C_ U )
64	62, 63	sylibr 204	. . 3 |- ( A e. V -> Tr U )
65		1on 6690	. . . . . . . 8 |- 1o e. On
66		unexg 4669	. . . . . . . 8 |- ( ( A e. V /\ 1o e. On ) -> ( A u. 1o ) e. _V )
67	65, 66	mpan2 653	. . . . . . 7 |- ( A e. V -> ( A u. 1o ) e. _V )
68	4	fveq1i 5688	. . . . . . . 8 |- ( F ` (/) ) = ( ( rec ( ( z e. _V |-> ( ( z u. U. z ) u. U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) ) ) , ( A u. 1o ) ) |` om ) ` (/) )
69		fr0g 6652	. . . . . . . 8 |- ( ( A u. 1o ) e. _V -> ( ( rec ( ( z e. _V |-> ( ( z u. U. z ) u. U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) ) ) , ( A u. 1o ) ) |` om ) ` (/) ) = ( A u. 1o ) )
70	68, 69	syl5eq 2448	. . . . . . 7 |- ( ( A u. 1o ) e. _V -> ( F ` (/) ) = ( A u. 1o ) )
71	67, 70	syl 16	. . . . . 6 |- ( A e. V -> ( F ` (/) ) = ( A u. 1o ) )
72		fvssunirn 5713	. . . . . . 7 |- ( F ` (/) ) C_ U. ran F
73	72, 1	sseqtr4i 3341	. . . . . 6 |- ( F ` (/) ) C_ U
74	71, 73	syl6eqssr 3359	. . . . 5 |- ( A e. V -> ( A u. 1o ) C_ U )
75	74	unssbd 3485	. . . 4 |- ( A e. V -> 1o C_ U )
76		1n0 6698	. . . 4 |- 1o =/= (/)
77		ssn0 3620	. . . 4 |- ( ( 1o C_ U /\ 1o =/= (/) ) -> U =/= (/) )
78	75, 76, 77	sylancl 644	. . 3 |- ( A e. V -> U =/= (/) )
79		pweq 3762	. . . . . . . . . . . . . . 15 |- ( u = a -> ~P u = ~P a )
80		unieq 3984	. . . . . . . . . . . . . . 15 |- ( u = a -> U. u = U. a )
81	79, 80	preq12d 3851	. . . . . . . . . . . . . 14 |- ( u = a -> { ~P u , U. u } = { ~P a , U. a } )
82		preq1 3843	. . . . . . . . . . . . . . . 16 |- ( u = a -> { u , v } = { a , v } )
83	82	mpteq2dv 4256	. . . . . . . . . . . . . . 15 |- ( u = a -> ( v e. ( F ` m ) |-> { u , v } ) = ( v e. ( F ` m ) |-> { a , v } ) )
84	83	rneqd 5056	. . . . . . . . . . . . . 14 |- ( u = a -> ran ( v e. ( F ` m ) |-> { u , v } ) = ran ( v e. ( F ` m ) |-> { a , v } ) )
85	81, 84	uneq12d 3462	. . . . . . . . . . . . 13 |- ( u = a -> ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) = ( { ~P a , U. a } u. ran ( v e. ( F ` m ) |-> { a , v } ) ) )
86	85	ssiun2s 4095	. . . . . . . . . . . 12 |- ( a e. ( F ` m ) -> ( { ~P a , U. a } u. ran ( v e. ( F ` m ) |-> { a , v } ) ) C_ U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) )
87	86	ad2antll 710	. . . . . . . . . . 11 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> ( { ~P a , U. a } u. ran ( v e. ( F ` m ) |-> { a , v } ) ) C_ U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) )
88		ssun2 3471	. . . . . . . . . . . . 13 |- U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) C_ ( ( ( F ` m ) u. U. ( F ` m ) ) u. U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) )
89	88, 55	syl5sseqr 3357	. . . . . . . . . . . 12 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) C_ ( F ` suc m ) )
90	89, 58	syl6ss 3320	. . . . . . . . . . 11 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) C_ U )
91	87, 90	sstrd 3318	. . . . . . . . . 10 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> ( { ~P a , U. a } u. ran ( v e. ( F ` m ) |-> { a , v } ) ) C_ U )
92	91	unssad 3484	. . . . . . . . 9 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> { ~P a , U. a } C_ U )
93		vex 2919	. . . . . . . . . . 11 |- a e. _V
94	93	pwex 4342	. . . . . . . . . 10 |- ~P a e. _V
95	93	uniex 4664	. . . . . . . . . 10 |- U. a e. _V
96	94, 95	prss 3912	. . . . . . . . 9 |- ( ( ~P a e. U /\ U. a e. U ) <-> { ~P a , U. a } C_ U )
97	92, 96	sylibr 204	. . . . . . . 8 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> ( ~P a e. U /\ U. a e. U ) )
98	97	simprd 450	. . . . . . 7 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> U. a e. U )
99	97	simpld 446	. . . . . . 7 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> ~P a e. U )
100	1	eleq2i 2468	. . . . . . . . . 10 |- ( b e. U <-> b e. U. ran F )
101		fnunirn 5958	. . . . . . . . . . 11 |- ( F Fn om -> ( b e. U. ran F <-> E. n e. om b e. ( F ` n ) ) )
102	6, 101	ax-mp 8	. . . . . . . . . 10 |- ( b e. U. ran F <-> E. n e. om b e. ( F ` n ) )
103	100, 102	bitri 241	. . . . . . . . 9 |- ( b e. U <-> E. n e. om b e. ( F ` n ) )
104		simplrl 737	. . . . . . . . . . . . . . . . 17 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> m e. om )
105		simprl 733	. . . . . . . . . . . . . . . . 17 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> n e. om )
106		ordom 4813	. . . . . . . . . . . . . . . . . 18 |- Ord om
107		ordunel 4766	. . . . . . . . . . . . . . . . . 18 |- ( ( Ord om /\ m e. om /\ n e. om ) -> ( m u. n ) e. om )
108	106, 107	mp3an1 1266	. . . . . . . . . . . . . . . . 17 |- ( ( m e. om /\ n e. om ) -> ( m u. n ) e. om )
109	104, 105, 108	syl2anc 643	. . . . . . . . . . . . . . . 16 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> ( m u. n ) e. om )
110		ssun1 3470	. . . . . . . . . . . . . . . . 17 |- m C_ ( m u. n )
111		fveq2 5687	. . . . . . . . . . . . . . . . . . 19 |- ( k = m -> ( F ` k ) = ( F ` m ) )
112	111	sseq2d 3336	. . . . . . . . . . . . . . . . . 18 |- ( k = m -> ( ( F ` m ) C_ ( F ` k ) <-> ( F ` m ) C_ ( F ` m ) ) )
113		fveq2 5687	. . . . . . . . . . . . . . . . . . 19 |- ( k = i -> ( F ` k ) = ( F ` i ) )
114	113	sseq2d 3336	. . . . . . . . . . . . . . . . . 18 |- ( k = i -> ( ( F ` m ) C_ ( F ` k ) <-> ( F ` m ) C_ ( F ` i ) ) )
115		fveq2 5687	. . . . . . . . . . . . . . . . . . 19 |- ( k = suc i -> ( F ` k ) = ( F ` suc i ) )
116	115	sseq2d 3336	. . . . . . . . . . . . . . . . . 18 |- ( k = suc i -> ( ( F ` m ) C_ ( F ` k ) <-> ( F ` m ) C_ ( F ` suc i ) ) )
117		fveq2 5687	. . . . . . . . . . . . . . . . . . 19 |- ( k = ( m u. n ) -> ( F ` k ) = ( F ` ( m u. n ) ) )
118	117	sseq2d 3336	. . . . . . . . . . . . . . . . . 18 |- ( k = ( m u. n ) -> ( ( F ` m ) C_ ( F ` k ) <-> ( F ` m ) C_ ( F ` ( m u. n ) ) ) )
119		ssid 3327	. . . . . . . . . . . . . . . . . . 19 |- ( F ` m ) C_ ( F ` m )
120	119	a1i 11	. . . . . . . . . . . . . . . . . 18 |- ( m e. om -> ( F ` m ) C_ ( F ` m ) )
121		fveq2 5687	. . . . . . . . . . . . . . . . . . . . . 22 |- ( m = i -> ( F ` m ) = ( F ` i ) )
122		suceq 4606	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( m = i -> suc m = suc i )
123	122	fveq2d 5691	. . . . . . . . . . . . . . . . . . . . . 22 |- ( m = i -> ( F ` suc m ) = ( F ` suc i ) )
124	121, 123	sseq12d 3337	. . . . . . . . . . . . . . . . . . . . 21 |- ( m = i -> ( ( F ` m ) C_ ( F ` suc m ) <-> ( F ` i ) C_ ( F ` suc i ) ) )
125		ssun1 3470	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( F ` m ) C_ ( ( F ` m ) u. U. ( F ` m ) )
126	125, 13	sstri 3317	. . . . . . . . . . . . . . . . . . . . . 22 |- ( F ` m ) C_ ( ( ( F ` m ) u. U. ( F ` m ) ) u. U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) )
127	25, 54	mpan2 653	. . . . . . . . . . . . . . . . . . . . . 22 |- ( m e. om -> ( F ` suc m ) = ( ( ( F ` m ) u. U. ( F ` m ) ) u. U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) ) )
128	126, 127	syl5sseqr 3357	. . . . . . . . . . . . . . . . . . . . 21 |- ( m e. om -> ( F ` m ) C_ ( F ` suc m ) )
129	124, 128	vtoclga 2977	. . . . . . . . . . . . . . . . . . . 20 |- ( i e. om -> ( F ` i ) C_ ( F ` suc i ) )
130	129	ad2antrr 707	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( i e. om /\ m e. om ) /\ m C_ i ) -> ( F ` i ) C_ ( F ` suc i ) )
131		sstr2 3315	. . . . . . . . . . . . . . . . . . 19 |- ( ( F ` m ) C_ ( F ` i ) -> ( ( F ` i ) C_ ( F ` suc i ) -> ( F ` m ) C_ ( F ` suc i ) ) )
132	130, 131	syl5com 28	. . . . . . . . . . . . . . . . . 18 |- ( ( ( i e. om /\ m e. om ) /\ m C_ i ) -> ( ( F ` m ) C_ ( F ` i ) -> ( F ` m ) C_ ( F ` suc i ) ) )
133	112, 114, 116, 118, 120, 132	findsg 4831	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( m u. n ) e. om /\ m e. om ) /\ m C_ ( m u. n ) ) -> ( F ` m ) C_ ( F ` ( m u. n ) ) )
134	110, 133	mpan2 653	. . . . . . . . . . . . . . . 16 |- ( ( ( m u. n ) e. om /\ m e. om ) -> ( F ` m ) C_ ( F ` ( m u. n ) ) )
135	109, 104, 134	syl2anc 643	. . . . . . . . . . . . . . 15 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> ( F ` m ) C_ ( F ` ( m u. n ) ) )
136		simplrr 738	. . . . . . . . . . . . . . 15 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> a e. ( F ` m ) )
137	135, 136	sseldd 3309	. . . . . . . . . . . . . 14 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> a e. ( F ` ( m u. n ) ) )
138	82	mpteq2dv 4256	. . . . . . . . . . . . . . . . 17 |- ( u = a -> ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) = ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) )
139	138	rneqd 5056	. . . . . . . . . . . . . . . 16 |- ( u = a -> ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) = ran ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) )
140	81, 139	uneq12d 3462	. . . . . . . . . . . . . . 15 |- ( u = a -> ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) = ( { ~P a , U. a } u. ran ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) ) )
141	140	ssiun2s 4095	. . . . . . . . . . . . . 14 |- ( a e. ( F ` ( m u. n ) ) -> ( { ~P a , U. a } u. ran ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) ) C_ U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) )
142	137, 141	syl 16	. . . . . . . . . . . . 13 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> ( { ~P a , U. a } u. ran ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) ) C_ U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) )
143		ssun2 3471	. . . . . . . . . . . . . . 15 |- U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) C_ ( ( ( F ` ( m u. n ) ) u. U. ( F ` ( m u. n ) ) ) u. U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) )
144		fvex 5701	. . . . . . . . . . . . . . . . . 18 |- ( F ` ( m u. n ) ) e. _V
145	144	uniex 4664	. . . . . . . . . . . . . . . . . 18 |- U. ( F ` ( m u. n ) ) e. _V
146	144, 145	unex 4666	. . . . . . . . . . . . . . . . 17 |- ( ( F ` ( m u. n ) ) u. U. ( F ` ( m u. n ) ) ) e. _V
147	144	mptex 5925	. . . . . . . . . . . . . . . . . . . 20 |- ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) e. _V
148	147	rnex 5092	. . . . . . . . . . . . . . . . . . 19 |- ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) e. _V
149	20, 148	unex 4666	. . . . . . . . . . . . . . . . . 18 |- ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) e. _V
150	144, 149	iunex 5950	. . . . . . . . . . . . . . . . 17 |- U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) e. _V
151	146, 150	unex 4666	. . . . . . . . . . . . . . . 16 |- ( ( ( F ` ( m u. n ) ) u. U. ( F ` ( m u. n ) ) ) u. U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) ) e. _V
152		id 20	. . . . . . . . . . . . . . . . . . 19 |- ( w = ( F ` ( m u. n ) ) -> w = ( F ` ( m u. n ) ) )
153		unieq 3984	. . . . . . . . . . . . . . . . . . 19 |- ( w = ( F ` ( m u. n ) ) -> U. w = U. ( F ` ( m u. n ) ) )
154	152, 153	uneq12d 3462	. . . . . . . . . . . . . . . . . 18 |- ( w = ( F ` ( m u. n ) ) -> ( w u. U. w ) = ( ( F ` ( m u. n ) ) u. U. ( F ` ( m u. n ) ) ) )
155		mpteq1 4249	. . . . . . . . . . . . . . . . . . . . 21 |- ( w = ( F ` ( m u. n ) ) -> ( v e. w |-> { u , v } ) = ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) )
156	155	rneqd 5056	. . . . . . . . . . . . . . . . . . . 20 |- ( w = ( F ` ( m u. n ) ) -> ran ( v e. w |-> { u , v } ) = ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) )
157	156	uneq2d 3461	. . . . . . . . . . . . . . . . . . 19 |- ( w = ( F ` ( m u. n ) ) -> ( { ~P u , U. u } u. ran ( v e. w |-> { u , v } ) ) = ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) )
158	152, 157	iuneq12d 4077	. . . . . . . . . . . . . . . . . 18 |- ( w = ( F ` ( m u. n ) ) -> U_ u e. w ( { ~P u , U. u } u. ran ( v e. w |-> { u , v } ) ) = U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) )
159	154, 158	uneq12d 3462	. . . . . . . . . . . . . . . . 17 |- ( w = ( F ` ( m u. n ) ) -> ( ( w u. U. w ) u. U_ u e. w ( { ~P u , U. u } u. ran ( v e. w |-> { u , v } ) ) ) = ( ( ( F ` ( m u. n ) ) u. U. ( F ` ( m u. n ) ) ) u. U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) ) )
160	4, 45, 159	frsucmpt2 6656	. . . . . . . . . . . . . . . 16 |- ( ( ( m u. n ) e. om /\ ( ( ( F ` ( m u. n ) ) u. U. ( F ` ( m u. n ) ) ) u. U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) ) e. _V ) -> ( F ` suc ( m u. n ) ) = ( ( ( F ` ( m u. n ) ) u. U. ( F ` ( m u. n ) ) ) u. U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) ) )
161	109, 151, 160	sylancl 644	. . . . . . . . . . . . . . 15 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> ( F ` suc ( m u. n ) ) = ( ( ( F ` ( m u. n ) ) u. U. ( F ` ( m u. n ) ) ) u. U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) ) )
162	143, 161	syl5sseqr 3357	. . . . . . . . . . . . . 14 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) C_ ( F ` suc ( m u. n ) ) )
163		fvssunirn 5713	. . . . . . . . . . . . . . 15 |- ( F ` suc ( m u. n ) ) C_ U. ran F
164	163, 1	sseqtr4i 3341	. . . . . . . . . . . . . 14 |- ( F ` suc ( m u. n ) ) C_ U
165	162, 164	syl6ss 3320	. . . . . . . . . . . . 13 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> U_ u e. ( F ` ( m u. n ) ) ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) C_ U )
166	142, 165	sstrd 3318	. . . . . . . . . . . 12 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> ( { ~P a , U. a } u. ran ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) ) C_ U )
167	166	unssbd 3485	. . . . . . . . . . 11 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> ran ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) C_ U )
168		ssun2 3471	. . . . . . . . . . . . . . . . . . 19 |- n C_ ( m u. n )
169		id 20	. . . . . . . . . . . . . . . . . . 19 |- ( i = ( m u. n ) -> i = ( m u. n ) )
170	168, 169	syl5sseqr 3357	. . . . . . . . . . . . . . . . . 18 |- ( i = ( m u. n ) -> n C_ i )
171	170	biantrud 494	. . . . . . . . . . . . . . . . 17 |- ( i = ( m u. n ) -> ( n e. om <-> ( n e. om /\ n C_ i ) ) )
172	171	bicomd 193	. . . . . . . . . . . . . . . 16 |- ( i = ( m u. n ) -> ( ( n e. om /\ n C_ i ) <-> n e. om ) )
173		fveq2 5687	. . . . . . . . . . . . . . . . 17 |- ( i = ( m u. n ) -> ( F ` i ) = ( F ` ( m u. n ) ) )
174	173	sseq2d 3336	. . . . . . . . . . . . . . . 16 |- ( i = ( m u. n ) -> ( ( F ` n ) C_ ( F ` i ) <-> ( F ` n ) C_ ( F ` ( m u. n ) ) ) )
175	172, 174	imbi12d 312	. . . . . . . . . . . . . . 15 |- ( i = ( m u. n ) -> ( ( ( n e. om /\ n C_ i ) -> ( F ` n ) C_ ( F ` i ) ) <-> ( n e. om -> ( F ` n ) C_ ( F ` ( m u. n ) ) ) ) )
176		eleq1 2464	. . . . . . . . . . . . . . . . . . . 20 |- ( m = n -> ( m e. om <-> n e. om ) )
177	176	anbi2d 685	. . . . . . . . . . . . . . . . . . 19 |- ( m = n -> ( ( i e. om /\ m e. om ) <-> ( i e. om /\ n e. om ) ) )
178		sseq1 3329	. . . . . . . . . . . . . . . . . . 19 |- ( m = n -> ( m C_ i <-> n C_ i ) )
179	177, 178	anbi12d 692	. . . . . . . . . . . . . . . . . 18 |- ( m = n -> ( ( ( i e. om /\ m e. om ) /\ m C_ i ) <-> ( ( i e. om /\ n e. om ) /\ n C_ i ) ) )
180		fveq2 5687	. . . . . . . . . . . . . . . . . . 19 |- ( m = n -> ( F ` m ) = ( F ` n ) )
181	180	sseq1d 3335	. . . . . . . . . . . . . . . . . 18 |- ( m = n -> ( ( F ` m ) C_ ( F ` i ) <-> ( F ` n ) C_ ( F ` i ) ) )
182	179, 181	imbi12d 312	. . . . . . . . . . . . . . . . 17 |- ( m = n -> ( ( ( ( i e. om /\ m e. om ) /\ m C_ i ) -> ( F ` m ) C_ ( F ` i ) ) <-> ( ( ( i e. om /\ n e. om ) /\ n C_ i ) -> ( F ` n ) C_ ( F ` i ) ) ) )
183	112, 114, 116, 114, 120, 132	findsg 4831	. . . . . . . . . . . . . . . . 17 |- ( ( ( i e. om /\ m e. om ) /\ m C_ i ) -> ( F ` m ) C_ ( F ` i ) )
184	182, 183	chvarv 2063	. . . . . . . . . . . . . . . 16 |- ( ( ( i e. om /\ n e. om ) /\ n C_ i ) -> ( F ` n ) C_ ( F ` i ) )
185	184	expl 602	. . . . . . . . . . . . . . 15 |- ( i e. om -> ( ( n e. om /\ n C_ i ) -> ( F ` n ) C_ ( F ` i ) ) )
186	175, 185	vtoclga 2977	. . . . . . . . . . . . . 14 |- ( ( m u. n ) e. om -> ( n e. om -> ( F ` n ) C_ ( F ` ( m u. n ) ) ) )
187	109, 105, 186	sylc 58	. . . . . . . . . . . . 13 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> ( F ` n ) C_ ( F ` ( m u. n ) ) )
188		simprr 734	. . . . . . . . . . . . 13 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> b e. ( F ` n ) )
189	187, 188	sseldd 3309	. . . . . . . . . . . 12 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> b e. ( F ` ( m u. n ) ) )
190		prex 4366	. . . . . . . . . . . 12 |- { a , b } e. _V
191		eqid 2404	. . . . . . . . . . . . 13 |- ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) = ( v e. ( F ` ( m u. n ) ) |-> { a , v } )
192		preq2 3844	. . . . . . . . . . . . 13 |- ( v = b -> { a , v } = { a , b } )
193	191, 192	elrnmpt1s 5077	. . . . . . . . . . . 12 |- ( ( b e. ( F ` ( m u. n ) ) /\ { a , b } e. _V ) -> { a , b } e. ran ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) )
194	189, 190, 193	sylancl 644	. . . . . . . . . . 11 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> { a , b } e. ran ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) )
195	167, 194	sseldd 3309	. . . . . . . . . 10 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> { a , b } e. U )
196	195	rexlimdvaa 2791	. . . . . . . . 9 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> ( E. n e. om b e. ( F ` n ) -> { a , b } e. U ) )
197	103, 196	syl5bi 209	. . . . . . . 8 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> ( b e. U -> { a , b } e. U ) )
198	197	ralrimiv 2748	. . . . . . 7 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> A. b e. U { a , b } e. U )
199	98, 99, 198	3jca 1134	. . . . . 6 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> ( U. a e. U /\ ~P a e. U /\ A. b e. U { a , b } e. U ) )
200	199	rexlimdvaa 2791	. . . . 5 |- ( A e. V -> ( E. m e. om a e. ( F ` m ) -> ( U. a e. U /\ ~P a e. U /\ A. b e. U { a , b } e. U ) ) )
201	9, 200	syl5bi 209	. . . 4 |- ( A e. V -> ( a e. U -> ( U. a e. U /\ ~P a e. U /\ A. b e. U { a , b } e. U ) ) )
202	201	ralrimiv 2748	. . 3 |- ( A e. V -> A. a e. U ( U. a e. U /\ ~P a e. U /\ A. b e. U { a , b } e. U ) )
203		rdgfun 6633	. . . . . . . . 9 |- Fun rec ( ( z e. _V |-> ( ( z u. U. z ) u. U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) ) ) , ( A u. 1o ) )
204		omex 7554	. . . . . . . . 9 |- om e. _V
205		resfunexg 5916	. . . . . . . . 9 |- ( ( Fun rec ( ( z e. _V |-> ( ( z u. U. z ) u. U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) ) ) , ( A u. 1o ) ) /\ om e. _V ) -> ( rec ( ( z e. _V |-> ( ( z u. U. z ) u. U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) ) ) , ( A u. 1o ) ) |` om ) e. _V )
206	203, 204, 205	mp2an 654	. . . . . . . 8 |- ( rec ( ( z e. _V |-> ( ( z u. U. z ) u. U_ x e. z ( { ~P x , U. x } u. ran ( y e. z |-> { x , y } ) ) ) ) , ( A u. 1o ) ) |` om ) e. _V
207	4, 206	eqeltri 2474	. . . . . . 7 |- F e. _V
208	207	rnex 5092	. . . . . 6 |- ran F e. _V
209	208	uniex 4664	. . . . 5 |- U. ran F e. _V
210	1, 209	eqeltri 2474	. . . 4 |- U e. _V
211		iswun 8535	. . . 4 |- ( U e. _V -> ( U e. WUni <-> ( Tr U /\ U =/= (/) /\ A. a e. U ( U. a e. U /\ ~P a e. U /\ A. b e. U { a , b } e. U ) ) ) )
212	210, 211	ax-mp 8	. . 3 |- ( U e. WUni <-> ( Tr U /\ U =/= (/) /\ A. a e. U ( U. a e. U /\ ~P a e. U /\ A. b e. U { a , b } e. U ) ) )
213	64, 78, 202, 212	syl3anbrc 1138	. 2 |- ( A e. V -> U e. WUni )
214	74	unssad 3484	. 2 |- ( A e. V -> A C_ U )
215	213, 214	jca 519	1 |- ( A e. V -> ( U e. WUni /\ A C_ U ) )

Syntax hints:   -> wi 4   <-> wb 177   /\ wa 359   /\ w3a 936   = wceq 1649   e. wcel 1721   =/= wne 2567   A.wral 2666   E.wrex 2667   _Vcvv 2916   u. cun 3278   C_ wss 3280   (/)c0 3588   ~Pcpw 3759   {cpr 3775   U.cuni 3975   U_ciun 4053   e. cmpt 4226   Tr wtr 4262   Ord word 4540   Oncon0 4541   suc csuc 4543   omcom 4804   ran crn 4838   |` cres 4839   Fun wfun 5407   Fn wfn 5408   ` cfv 5413   reccrdg 6626   1oc1o 6676  WUnicwun 8531

This theorem is referenced by:  wunex  8570  wuncval2  8578

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1662  ax-8 1683  ax-13 1723  ax-14 1725  ax-6 1740  ax-7 1745  ax-11 1757  ax-12 1946  ax-ext 2385  ax-rep 4280  ax-sep 4290  ax-nul 4298  ax-pow 4337  ax-pr 4363  ax-un 4660  ax-inf2 7552

This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2258  df-mo 2259  df-clab 2391  df-cleq 2397  df-clel 2400  df-nfc 2529  df-ne 2569  df-ral 2671  df-rex 2672  df-reu 2673  df-rab 2675  df-v 2918  df-sbc 3122  df-csb 3212  df-dif 3283  df-un 3285  df-in 3287  df-ss 3294  df-pss 3296  df-nul 3589  df-if 3700  df-pw 3761  df-sn 3780  df-pr 3781  df-tp 3782  df-op 3783  df-uni 3976  df-iun 4055  df-br 4173  df-opab 4227  df-mpt 4228  df-tr 4263  df-eprel 4454  df-id 4458  df-po 4463  df-so 4464  df-fr 4501  df-we 4503  df-ord 4544  df-on 4545  df-lim 4546  df-suc 4547  df-om 4805  df-xp 4843  df-rel 4844  df-cnv 4845  df-co 4846  df-dm 4847  df-rn 4848  df-res 4849  df-ima 4850  df-iota 5377  df-fun 5415  df-fn 5416  df-f 5417  df-f1 5418  df-fo 5419  df-f1o 5420  df-fv 5421  df-recs 6592  df-rdg 6627  df-1o 6683  df-wun 8533