Theorem wunex2 9163

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 2521	. . . . . . 7 |- ( a e. U <-> a e. U. ran F )
3		frfnom 7152	. . . . . . . . 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 5670	. . . . . . . . 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 213	. . . . . . . 8 |- F Fn om
7		fnunirn 6158	. . . . . . . 8 |- ( F Fn om -> ( a e. U. ran F <-> E. m e. om a e. ( F ` m ) ) )
8	6, 7	ax-mp 5	. . . . . . 7 |- ( a e. U. ran F <-> E. m e. om a e. ( F ` m ) )
9	2, 8	bitri 253	. . . . . 6 |- ( a e. U <-> E. m e. om a e. ( F ` m ) )
10		elssuni 4227	. . . . . . . . . . 11 |- ( a e. ( F ` m ) -> a C_ U. ( F ` m ) )
11	10	ad2antll 735	. . . . . . . . . 10 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> a C_ U. ( F ` m ) )
12		ssun2 3598	. . . . . . . . . . 11 |- U. ( F ` m ) C_ ( ( F ` m ) u. U. ( F ` m ) )
13		ssun1 3597	. . . . . . . . . . 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 3441	. . . . . . . . . 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 3444	. . . . . . . . 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 764	. . . . . . . . . 10 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> m e. om )
17		fvex 5875	. . . . . . . . . . . 12 |- ( F ` m ) e. _V
18	17	uniex 6587	. . . . . . . . . . . 12 |- U. ( F ` m ) e. _V
19	17, 18	unex 6589	. . . . . . . . . . 11 |- ( ( F ` m ) u. U. ( F ` m ) ) e. _V
20		prex 4642	. . . . . . . . . . . . 13 |- { ~P u , U. u } e. _V
21	17	mptex 6136	. . . . . . . . . . . . . 14 |- ( v e. ( F ` m ) |-> { u , v } ) e. _V
22	21	rnex 6727	. . . . . . . . . . . . 13 |- ran ( v e. ( F ` m ) |-> { u , v } ) e. _V
23	20, 22	unex 6589	. . . . . . . . . . . 12 |- ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) e. _V
24	17, 23	iunex 6773	. . . . . . . . . . 11 |- U_ u e. ( F ` m ) ( { ~P u , U. u } u. ran ( v e. ( F ` m ) |-> { u , v } ) ) e. _V
25	19, 24	unex 6589	. . . . . . . . . 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 22	. . . . . . . . . . . . 13 |- ( w = z -> w = z )
27		unieq 4206	. . . . . . . . . . . . 13 |- ( w = z -> U. w = U. z )
28	26, 27	uneq12d 3589	. . . . . . . . . . . 12 |- ( w = z -> ( w u. U. w ) = ( z u. U. z ) )
29		pweq 3954	. . . . . . . . . . . . . . . 16 |- ( u = x -> ~P u = ~P x )
30		unieq 4206	. . . . . . . . . . . . . . . 16 |- ( u = x -> U. u = U. x )
31	29, 30	preq12d 4059	. . . . . . . . . . . . . . 15 |- ( u = x -> { ~P u , U. u } = { ~P x , U. x } )
32		preq2 4052	. . . . . . . . . . . . . . . . . 18 |- ( v = y -> { u , v } = { u , y } )
33	32	cbvmptv 4495	. . . . . . . . . . . . . . . . 17 |- ( v e. w |-> { u , v } ) = ( y e. w |-> { u , y } )
34		preq1 4051	. . . . . . . . . . . . . . . . . 18 |- ( u = x -> { u , y } = { x , y } )
35	34	mpteq2dv 4490	. . . . . . . . . . . . . . . . 17 |- ( u = x -> ( y e. w |-> { u , y } ) = ( y e. w |-> { x , y } ) )
36	33, 35	syl5eq 2497	. . . . . . . . . . . . . . . 16 |- ( u = x -> ( v e. w |-> { u , v } ) = ( y e. w |-> { x , y } ) )
37	36	rneqd 5062	. . . . . . . . . . . . . . 15 |- ( u = x -> ran ( v e. w |-> { u , v } ) = ran ( y e. w |-> { x , y } ) )
38	31, 37	uneq12d 3589	. . . . . . . . . . . . . 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 4317	. . . . . . . . . . . . 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 4483	. . . . . . . . . . . . . . . 16 |- ( w = z -> ( y e. w |-> { x , y } ) = ( y e. z |-> { x , y } ) )
41	40	rneqd 5062	. . . . . . . . . . . . . . 15 |- ( w = z -> ran ( y e. w |-> { x , y } ) = ran ( y e. z |-> { x , y } ) )
42	41	uneq2d 3588	. . . . . . . . . . . . . 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 4304	. . . . . . . . . . . . 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 2497	. . . . . . . . . . . 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 3589	. . . . . . . . . . 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 22	. . . . . . . . . . . . 13 |- ( w = ( F ` m ) -> w = ( F ` m ) )
47		unieq 4206	. . . . . . . . . . . . 13 |- ( w = ( F ` m ) -> U. w = U. ( F ` m ) )
48	46, 47	uneq12d 3589	. . . . . . . . . . . 12 |- ( w = ( F ` m ) -> ( w u. U. w ) = ( ( F ` m ) u. U. ( F ` m ) ) )
49		mpteq1 4483	. . . . . . . . . . . . . . 15 |- ( w = ( F ` m ) -> ( v e. w |-> { u , v } ) = ( v e. ( F ` m ) |-> { u , v } ) )
50	49	rneqd 5062	. . . . . . . . . . . . . 14 |- ( w = ( F ` m ) -> ran ( v e. w |-> { u , v } ) = ran ( v e. ( F ` m ) |-> { u , v } ) )
51	50	uneq2d 3588	. . . . . . . . . . . . 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 4304	. . . . . . . . . . . 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 3589	. . . . . . . . . . 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 7157	. . . . . . . . . 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 668	. . . . . . . . 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 3469	. . . . . . . 8 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> a C_ ( F ` suc m ) )
57		fvssunirn 5888	. . . . . . . . 9 |- ( F ` suc m ) C_ U. ran F
58	57, 1	sseqtr4i 3465	. . . . . . . 8 |- ( F ` suc m ) C_ U
59	56, 58	syl6ss 3444	. . . . . . 7 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> a C_ U )
60	59	rexlimdvaa 2880	. . . . . 6 |- ( A e. V -> ( E. m e. om a e. ( F ` m ) -> a C_ U ) )
61	9, 60	syl5bi 221	. . . . 5 |- ( A e. V -> ( a e. U -> a C_ U ) )
62	61	ralrimiv 2800	. . . 4 |- ( A e. V -> A. a e. U a C_ U )
63		dftr3 4501	. . . 4 |- ( Tr U <-> A. a e. U a C_ U )
64	62, 63	sylibr 216	. . 3 |- ( A e. V -> Tr U )
65		1on 7189	. . . . . . . 8 |- 1o e. On
66		unexg 6592	. . . . . . . 8 |- ( ( A e. V /\ 1o e. On ) -> ( A u. 1o ) e. _V )
67	65, 66	mpan2 677	. . . . . . 7 |- ( A e. V -> ( A u. 1o ) e. _V )
68	4	fveq1i 5866	. . . . . . . 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 7153	. . . . . . . 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 2497	. . . . . . 7 |- ( ( A u. 1o ) e. _V -> ( F ` (/) ) = ( A u. 1o ) )
71	67, 70	syl 17	. . . . . 6 |- ( A e. V -> ( F ` (/) ) = ( A u. 1o ) )
72		fvssunirn 5888	. . . . . . 7 |- ( F ` (/) ) C_ U. ran F
73	72, 1	sseqtr4i 3465	. . . . . 6 |- ( F ` (/) ) C_ U
74	71, 73	syl6eqssr 3483	. . . . 5 |- ( A e. V -> ( A u. 1o ) C_ U )
75	74	unssbd 3612	. . . 4 |- ( A e. V -> 1o C_ U )
76		1n0 7197	. . . 4 |- 1o =/= (/)
77		ssn0 3767	. . . 4 |- ( ( 1o C_ U /\ 1o =/= (/) ) -> U =/= (/) )
78	75, 76, 77	sylancl 668	. . 3 |- ( A e. V -> U =/= (/) )
79		pweq 3954	. . . . . . . . . . . . . . 15 |- ( u = a -> ~P u = ~P a )
80		unieq 4206	. . . . . . . . . . . . . . 15 |- ( u = a -> U. u = U. a )
81	79, 80	preq12d 4059	. . . . . . . . . . . . . 14 |- ( u = a -> { ~P u , U. u } = { ~P a , U. a } )
82		preq1 4051	. . . . . . . . . . . . . . . 16 |- ( u = a -> { u , v } = { a , v } )
83	82	mpteq2dv 4490	. . . . . . . . . . . . . . 15 |- ( u = a -> ( v e. ( F ` m ) |-> { u , v } ) = ( v e. ( F ` m ) |-> { a , v } ) )
84	83	rneqd 5062	. . . . . . . . . . . . . 14 |- ( u = a -> ran ( v e. ( F ` m ) |-> { u , v } ) = ran ( v e. ( F ` m ) |-> { a , v } ) )
85	81, 84	uneq12d 3589	. . . . . . . . . . . . 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 4322	. . . . . . . . . . . 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 735	. . . . . . . . . . 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 3598	. . . . . . . . . . . . 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 3481	. . . . . . . . . . . 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 3444	. . . . . . . . . . 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 3442	. . . . . . . . . 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 3611	. . . . . . . . 9 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> { ~P a , U. a } C_ U )
93		vex 3048	. . . . . . . . . . 11 |- a e. _V
94	93	pwex 4586	. . . . . . . . . 10 |- ~P a e. _V
95	93	uniex 6587	. . . . . . . . . 10 |- U. a e. _V
96	94, 95	prss 4126	. . . . . . . . 9 |- ( ( ~P a e. U /\ U. a e. U ) <-> { ~P a , U. a } C_ U )
97	92, 96	sylibr 216	. . . . . . . 8 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> ( ~P a e. U /\ U. a e. U ) )
98	97	simprd 465	. . . . . . 7 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> U. a e. U )
99	97	simpld 461	. . . . . . 7 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> ~P a e. U )
100	1	eleq2i 2521	. . . . . . . . . 10 |- ( b e. U <-> b e. U. ran F )
101		fnunirn 6158	. . . . . . . . . . 11 |- ( F Fn om -> ( b e. U. ran F <-> E. n e. om b e. ( F ` n ) ) )
102	6, 101	ax-mp 5	. . . . . . . . . 10 |- ( b e. U. ran F <-> E. n e. om b e. ( F ` n ) )
103	100, 102	bitri 253	. . . . . . . . 9 |- ( b e. U <-> E. n e. om b e. ( F ` n ) )
104		simplrl 770	. . . . . . . . . . . . . . . . 17 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> m e. om )
105		simprl 764	. . . . . . . . . . . . . . . . 17 |- ( ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) /\ ( n e. om /\ b e. ( F ` n ) ) ) -> n e. om )
106		ordom 6701	. . . . . . . . . . . . . . . . . 18 |- Ord om
107		ordunel 6654	. . . . . . . . . . . . . . . . . 18 |- ( ( Ord om /\ m e. om /\ n e. om ) -> ( m u. n ) e. om )
108	106, 107	mp3an1 1351	. . . . . . . . . . . . . . . . 17 |- ( ( m e. om /\ n e. om ) -> ( m u. n ) e. om )
109	104, 105, 108	syl2anc 667	. . . . . . . . . . . . . . . 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 3597	. . . . . . . . . . . . . . . . 17 |- m C_ ( m u. n )
111		fveq2 5865	. . . . . . . . . . . . . . . . . . 19 |- ( k = m -> ( F ` k ) = ( F ` m ) )
112	111	sseq2d 3460	. . . . . . . . . . . . . . . . . 18 |- ( k = m -> ( ( F ` m ) C_ ( F ` k ) <-> ( F ` m ) C_ ( F ` m ) ) )
113		fveq2 5865	. . . . . . . . . . . . . . . . . . 19 |- ( k = i -> ( F ` k ) = ( F ` i ) )
114	113	sseq2d 3460	. . . . . . . . . . . . . . . . . 18 |- ( k = i -> ( ( F ` m ) C_ ( F ` k ) <-> ( F ` m ) C_ ( F ` i ) ) )
115		fveq2 5865	. . . . . . . . . . . . . . . . . . 19 |- ( k = suc i -> ( F ` k ) = ( F ` suc i ) )
116	115	sseq2d 3460	. . . . . . . . . . . . . . . . . 18 |- ( k = suc i -> ( ( F ` m ) C_ ( F ` k ) <-> ( F ` m ) C_ ( F ` suc i ) ) )
117		fveq2 5865	. . . . . . . . . . . . . . . . . . 19 |- ( k = ( m u. n ) -> ( F ` k ) = ( F ` ( m u. n ) ) )
118	117	sseq2d 3460	. . . . . . . . . . . . . . . . . 18 |- ( k = ( m u. n ) -> ( ( F ` m ) C_ ( F ` k ) <-> ( F ` m ) C_ ( F ` ( m u. n ) ) ) )
119		ssid 3451	. . . . . . . . . . . . . . . . . . 19 |- ( F ` m ) C_ ( F ` m )
120	119	a1i 11	. . . . . . . . . . . . . . . . . 18 |- ( m e. om -> ( F ` m ) C_ ( F ` m ) )
121		fveq2 5865	. . . . . . . . . . . . . . . . . . . . . 22 |- ( m = i -> ( F ` m ) = ( F ` i ) )
122		suceq 5488	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( m = i -> suc m = suc i )
123	122	fveq2d 5869	. . . . . . . . . . . . . . . . . . . . . 22 |- ( m = i -> ( F ` suc m ) = ( F ` suc i ) )
124	121, 123	sseq12d 3461	. . . . . . . . . . . . . . . . . . . . 21 |- ( m = i -> ( ( F ` m ) C_ ( F ` suc m ) <-> ( F ` i ) C_ ( F ` suc i ) ) )
125		ssun1 3597	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( F ` m ) C_ ( ( F ` m ) u. U. ( F ` m ) )
126	125, 13	sstri 3441	. . . . . . . . . . . . . . . . . . . . . 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 677	. . . . . . . . . . . . . . . . . . . . . 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 3481	. . . . . . . . . . . . . . . . . . . . 21 |- ( m e. om -> ( F ` m ) C_ ( F ` suc m ) )
129	124, 128	vtoclga 3113	. . . . . . . . . . . . . . . . . . . 20 |- ( i e. om -> ( F ` i ) C_ ( F ` suc i ) )
130	129	ad2antrr 732	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( i e. om /\ m e. om ) /\ m C_ i ) -> ( F ` i ) C_ ( F ` suc i ) )
131		sstr2 3439	. . . . . . . . . . . . . . . . . . 19 |- ( ( F ` m ) C_ ( F ` i ) -> ( ( F ` i ) C_ ( F ` suc i ) -> ( F ` m ) C_ ( F ` suc i ) ) )
132	130, 131	syl5com 31	. . . . . . . . . . . . . . . . . 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 6720	. . . . . . . . . . . . . . . . 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 677	. . . . . . . . . . . . . . . 16 |- ( ( ( m u. n ) e. om /\ m e. om ) -> ( F ` m ) C_ ( F ` ( m u. n ) ) )
135	109, 104, 134	syl2anc 667	. . . . . . . . . . . . . . 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 771	. . . . . . . . . . . . . . 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 3433	. . . . . . . . . . . . . 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 4490	. . . . . . . . . . . . . . . . 17 |- ( u = a -> ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) = ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) )
139	138	rneqd 5062	. . . . . . . . . . . . . . . 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 3589	. . . . . . . . . . . . . . 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 4322	. . . . . . . . . . . . . 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 17	. . . . . . . . . . . . 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 3598	. . . . . . . . . . . . . . 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 5875	. . . . . . . . . . . . . . . . . 18 |- ( F ` ( m u. n ) ) e. _V
145	144	uniex 6587	. . . . . . . . . . . . . . . . . 18 |- U. ( F ` ( m u. n ) ) e. _V
146	144, 145	unex 6589	. . . . . . . . . . . . . . . . 17 |- ( ( F ` ( m u. n ) ) u. U. ( F ` ( m u. n ) ) ) e. _V
147	144	mptex 6136	. . . . . . . . . . . . . . . . . . . 20 |- ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) e. _V
148	147	rnex 6727	. . . . . . . . . . . . . . . . . . 19 |- ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) e. _V
149	20, 148	unex 6589	. . . . . . . . . . . . . . . . . 18 |- ( { ~P u , U. u } u. ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) ) e. _V
150	144, 149	iunex 6773	. . . . . . . . . . . . . . . . 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 6589	. . . . . . . . . . . . . . . 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 22	. . . . . . . . . . . . . . . . . . 19 |- ( w = ( F ` ( m u. n ) ) -> w = ( F ` ( m u. n ) ) )
153		unieq 4206	. . . . . . . . . . . . . . . . . . 19 |- ( w = ( F ` ( m u. n ) ) -> U. w = U. ( F ` ( m u. n ) ) )
154	152, 153	uneq12d 3589	. . . . . . . . . . . . . . . . . 18 |- ( w = ( F ` ( m u. n ) ) -> ( w u. U. w ) = ( ( F ` ( m u. n ) ) u. U. ( F ` ( m u. n ) ) ) )
155		mpteq1 4483	. . . . . . . . . . . . . . . . . . . . 21 |- ( w = ( F ` ( m u. n ) ) -> ( v e. w |-> { u , v } ) = ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) )
156	155	rneqd 5062	. . . . . . . . . . . . . . . . . . . 20 |- ( w = ( F ` ( m u. n ) ) -> ran ( v e. w |-> { u , v } ) = ran ( v e. ( F ` ( m u. n ) ) |-> { u , v } ) )
157	156	uneq2d 3588	. . . . . . . . . . . . . . . . . . 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 4304	. . . . . . . . . . . . . . . . . 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 3589	. . . . . . . . . . . . . . . . 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 7157	. . . . . . . . . . . . . . . 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 668	. . . . . . . . . . . . . . 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 3481	. . . . . . . . . . . . . 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 5888	. . . . . . . . . . . . . . 15 |- ( F ` suc ( m u. n ) ) C_ U. ran F
164	163, 1	sseqtr4i 3465	. . . . . . . . . . . . . 14 |- ( F ` suc ( m u. n ) ) C_ U
165	162, 164	syl6ss 3444	. . . . . . . . . . . . 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 3442	. . . . . . . . . . . 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 3612	. . . . . . . . . . 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 3598	. . . . . . . . . . . . . . . . . . 19 |- n C_ ( m u. n )
169		id 22	. . . . . . . . . . . . . . . . . . 19 |- ( i = ( m u. n ) -> i = ( m u. n ) )
170	168, 169	syl5sseqr 3481	. . . . . . . . . . . . . . . . . 18 |- ( i = ( m u. n ) -> n C_ i )
171	170	biantrud 510	. . . . . . . . . . . . . . . . 17 |- ( i = ( m u. n ) -> ( n e. om <-> ( n e. om /\ n C_ i ) ) )
172	171	bicomd 205	. . . . . . . . . . . . . . . 16 |- ( i = ( m u. n ) -> ( ( n e. om /\ n C_ i ) <-> n e. om ) )
173		fveq2 5865	. . . . . . . . . . . . . . . . 17 |- ( i = ( m u. n ) -> ( F ` i ) = ( F ` ( m u. n ) ) )
174	173	sseq2d 3460	. . . . . . . . . . . . . . . 16 |- ( i = ( m u. n ) -> ( ( F ` n ) C_ ( F ` i ) <-> ( F ` n ) C_ ( F ` ( m u. n ) ) ) )
175	172, 174	imbi12d 322	. . . . . . . . . . . . . . 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 2517	. . . . . . . . . . . . . . . . . . . 20 |- ( m = n -> ( m e. om <-> n e. om ) )
177	176	anbi2d 710	. . . . . . . . . . . . . . . . . . 19 |- ( m = n -> ( ( i e. om /\ m e. om ) <-> ( i e. om /\ n e. om ) ) )
178		sseq1 3453	. . . . . . . . . . . . . . . . . . 19 |- ( m = n -> ( m C_ i <-> n C_ i ) )
179	177, 178	anbi12d 717	. . . . . . . . . . . . . . . . . 18 |- ( m = n -> ( ( ( i e. om /\ m e. om ) /\ m C_ i ) <-> ( ( i e. om /\ n e. om ) /\ n C_ i ) ) )
180		fveq2 5865	. . . . . . . . . . . . . . . . . . 19 |- ( m = n -> ( F ` m ) = ( F ` n ) )
181	180	sseq1d 3459	. . . . . . . . . . . . . . . . . 18 |- ( m = n -> ( ( F ` m ) C_ ( F ` i ) <-> ( F ` n ) C_ ( F ` i ) ) )
182	179, 181	imbi12d 322	. . . . . . . . . . . . . . . . 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 6720	. . . . . . . . . . . . . . . . 17 |- ( ( ( i e. om /\ m e. om ) /\ m C_ i ) -> ( F ` m ) C_ ( F ` i ) )
184	182, 183	chvarv 2107	. . . . . . . . . . . . . . . 16 |- ( ( ( i e. om /\ n e. om ) /\ n C_ i ) -> ( F ` n ) C_ ( F ` i ) )
185	184	expl 624	. . . . . . . . . . . . . . 15 |- ( i e. om -> ( ( n e. om /\ n C_ i ) -> ( F ` n ) C_ ( F ` i ) ) )
186	175, 185	vtoclga 3113	. . . . . . . . . . . . . 14 |- ( ( m u. n ) e. om -> ( n e. om -> ( F ` n ) C_ ( F ` ( m u. n ) ) ) )
187	109, 105, 186	sylc 62	. . . . . . . . . . . . 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 766	. . . . . . . . . . . . 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 3433	. . . . . . . . . . . 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 4642	. . . . . . . . . . . 12 |- { a , b } e. _V
191		eqid 2451	. . . . . . . . . . . . 13 |- ( v e. ( F ` ( m u. n ) ) |-> { a , v } ) = ( v e. ( F ` ( m u. n ) ) |-> { a , v } )
192		preq2 4052	. . . . . . . . . . . . 13 |- ( v = b -> { a , v } = { a , b } )
193	191, 192	elrnmpt1s 5082	. . . . . . . . . . . 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 668	. . . . . . . . . . 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 3433	. . . . . . . . . 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 2880	. . . . . . . . 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 221	. . . . . . . 8 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> ( b e. U -> { a , b } e. U ) )
198	197	ralrimiv 2800	. . . . . . 7 |- ( ( A e. V /\ ( m e. om /\ a e. ( F ` m ) ) ) -> A. b e. U { a , b } e. U )
199	98, 99, 198	3jca 1188	. . . . . 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 2880	. . . . 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 221	. . . 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 2800	. . 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 7134	. . . . . . . . 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 8148	. . . . . . . . 9 |- om e. _V
205		resfunexg 6130	. . . . . . . . 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 678	. . . . . . . 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 2525	. . . . . . 7 |- F e. _V
208	207	rnex 6727	. . . . . 6 |- ran F e. _V
209	208	uniex 6587	. . . . 5 |- U. ran F e. _V
210	1, 209	eqeltri 2525	. . . 4 |- U e. _V
211		iswun 9129	. . . 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 5	. . 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 1192	. 2 |- ( A e. V -> U e. WUni )
214	74	unssad 3611	. 2 |- ( A e. V -> A C_ U )
215	213, 214	jca 535	1 |- ( A e. V -> ( U e. WUni /\ A C_ U ) )

Syntax hints:   -> wi 4   <-> wb 188   /\ wa 371   /\ w3a 985   = wceq 1444   e. wcel 1887   =/= wne 2622   A.wral 2737   E.wrex 2738   _Vcvv 3045   u. cun 3402   C_ wss 3404   (/)c0 3731   ~Pcpw 3951   {cpr 3970   U.cuni 4198   U_ciun 4278   |-> cmpt 4461   Tr wtr 4497   ran crn 4835   |` cres 4836   Ord word 5422   Oncon0 5423   suc csuc 5425   Fun wfun 5576   Fn wfn 5577   ` cfv 5582   omcom 6692   reccrdg 7127   1oc1o 7175  WUnicwun 9125

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1669  ax-4 1682  ax-5 1758  ax-6 1805  ax-7 1851  ax-8 1889  ax-9 1896  ax-10 1915  ax-11 1920  ax-12 1933  ax-13 2091  ax-ext 2431  ax-rep 4515  ax-sep 4525  ax-nul 4534  ax-pow 4581  ax-pr 4639  ax-un 6583  ax-inf2 8146

This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 986  df-3an 987  df-tru 1447  df-ex 1664  df-nf 1668  df-sb 1798  df-eu 2303  df-mo 2304  df-clab 2438  df-cleq 2444  df-clel 2447  df-nfc 2581  df-ne 2624  df-ral 2742  df-rex 2743  df-reu 2744  df-rab 2746  df-v 3047  df-sbc 3268  df-csb 3364  df-dif 3407  df-un 3409  df-in 3411  df-ss 3418  df-pss 3420  df-nul 3732  df-if 3882  df-pw 3953  df-sn 3969  df-pr 3971  df-tp 3973  df-op 3975  df-uni 4199  df-iun 4280  df-br 4403  df-opab 4462  df-mpt 4463  df-tr 4498  df-eprel 4745  df-id 4749  df-po 4755  df-so 4756  df-fr 4793  df-we 4795  df-xp 4840  df-rel 4841  df-cnv 4842  df-co 4843  df-dm 4844  df-rn 4845  df-res 4846  df-ima 4847  df-pred 5380  df-ord 5426  df-on 5427  df-lim 5428  df-suc 5429  df-iota 5546  df-fun 5584  df-fn 5585  df-f 5586  df-f1 5587  df-fo 5588  df-f1o 5589  df-fv 5590  df-om 6693  df-wrecs 7028  df-recs 7090  df-rdg 7128  df-1o 7182  df-wun 9127

This theorem is referenced by:  wunex  9164  wuncval2  9172