Step |
Hyp |
Ref |
Expression |
1 |
|
id |
|- ( x = (/) -> x = (/) ) |
2 |
|
oveq2 |
|- ( x = (/) -> ( A ^o x ) = ( A ^o (/) ) ) |
3 |
1 2
|
sseq12d |
|- ( x = (/) -> ( x C_ ( A ^o x ) <-> (/) C_ ( A ^o (/) ) ) ) |
4 |
|
id |
|- ( x = y -> x = y ) |
5 |
|
oveq2 |
|- ( x = y -> ( A ^o x ) = ( A ^o y ) ) |
6 |
4 5
|
sseq12d |
|- ( x = y -> ( x C_ ( A ^o x ) <-> y C_ ( A ^o y ) ) ) |
7 |
|
id |
|- ( x = suc y -> x = suc y ) |
8 |
|
oveq2 |
|- ( x = suc y -> ( A ^o x ) = ( A ^o suc y ) ) |
9 |
7 8
|
sseq12d |
|- ( x = suc y -> ( x C_ ( A ^o x ) <-> suc y C_ ( A ^o suc y ) ) ) |
10 |
|
id |
|- ( x = B -> x = B ) |
11 |
|
oveq2 |
|- ( x = B -> ( A ^o x ) = ( A ^o B ) ) |
12 |
10 11
|
sseq12d |
|- ( x = B -> ( x C_ ( A ^o x ) <-> B C_ ( A ^o B ) ) ) |
13 |
|
0ss |
|- (/) C_ ( A ^o (/) ) |
14 |
13
|
a1i |
|- ( A e. ( On \ 2o ) -> (/) C_ ( A ^o (/) ) ) |
15 |
|
eloni |
|- ( y e. On -> Ord y ) |
16 |
|
eldifi |
|- ( A e. ( On \ 2o ) -> A e. On ) |
17 |
|
oecl |
|- ( ( A e. On /\ y e. On ) -> ( A ^o y ) e. On ) |
18 |
16 17
|
sylan |
|- ( ( A e. ( On \ 2o ) /\ y e. On ) -> ( A ^o y ) e. On ) |
19 |
|
eloni |
|- ( ( A ^o y ) e. On -> Ord ( A ^o y ) ) |
20 |
18 19
|
syl |
|- ( ( A e. ( On \ 2o ) /\ y e. On ) -> Ord ( A ^o y ) ) |
21 |
|
ordsucsssuc |
|- ( ( Ord y /\ Ord ( A ^o y ) ) -> ( y C_ ( A ^o y ) <-> suc y C_ suc ( A ^o y ) ) ) |
22 |
15 20 21
|
syl2an2 |
|- ( ( A e. ( On \ 2o ) /\ y e. On ) -> ( y C_ ( A ^o y ) <-> suc y C_ suc ( A ^o y ) ) ) |
23 |
|
suceloni |
|- ( y e. On -> suc y e. On ) |
24 |
|
oecl |
|- ( ( A e. On /\ suc y e. On ) -> ( A ^o suc y ) e. On ) |
25 |
16 23 24
|
syl2an |
|- ( ( A e. ( On \ 2o ) /\ y e. On ) -> ( A ^o suc y ) e. On ) |
26 |
|
eloni |
|- ( ( A ^o suc y ) e. On -> Ord ( A ^o suc y ) ) |
27 |
25 26
|
syl |
|- ( ( A e. ( On \ 2o ) /\ y e. On ) -> Ord ( A ^o suc y ) ) |
28 |
|
id |
|- ( A e. ( On \ 2o ) -> A e. ( On \ 2o ) ) |
29 |
|
vex |
|- y e. _V |
30 |
29
|
sucid |
|- y e. suc y |
31 |
|
oeordi |
|- ( ( suc y e. On /\ A e. ( On \ 2o ) ) -> ( y e. suc y -> ( A ^o y ) e. ( A ^o suc y ) ) ) |
32 |
30 31
|
mpi |
|- ( ( suc y e. On /\ A e. ( On \ 2o ) ) -> ( A ^o y ) e. ( A ^o suc y ) ) |
33 |
23 28 32
|
syl2anr |
|- ( ( A e. ( On \ 2o ) /\ y e. On ) -> ( A ^o y ) e. ( A ^o suc y ) ) |
34 |
|
ordsucss |
|- ( Ord ( A ^o suc y ) -> ( ( A ^o y ) e. ( A ^o suc y ) -> suc ( A ^o y ) C_ ( A ^o suc y ) ) ) |
35 |
27 33 34
|
sylc |
|- ( ( A e. ( On \ 2o ) /\ y e. On ) -> suc ( A ^o y ) C_ ( A ^o suc y ) ) |
36 |
|
sstr2 |
|- ( suc y C_ suc ( A ^o y ) -> ( suc ( A ^o y ) C_ ( A ^o suc y ) -> suc y C_ ( A ^o suc y ) ) ) |
37 |
35 36
|
syl5com |
|- ( ( A e. ( On \ 2o ) /\ y e. On ) -> ( suc y C_ suc ( A ^o y ) -> suc y C_ ( A ^o suc y ) ) ) |
38 |
22 37
|
sylbid |
|- ( ( A e. ( On \ 2o ) /\ y e. On ) -> ( y C_ ( A ^o y ) -> suc y C_ ( A ^o suc y ) ) ) |
39 |
38
|
expcom |
|- ( y e. On -> ( A e. ( On \ 2o ) -> ( y C_ ( A ^o y ) -> suc y C_ ( A ^o suc y ) ) ) ) |
40 |
|
dif20el |
|- ( A e. ( On \ 2o ) -> (/) e. A ) |
41 |
16 40
|
jca |
|- ( A e. ( On \ 2o ) -> ( A e. On /\ (/) e. A ) ) |
42 |
|
ss2iun |
|- ( A. y e. x y C_ ( A ^o y ) -> U_ y e. x y C_ U_ y e. x ( A ^o y ) ) |
43 |
|
limuni |
|- ( Lim x -> x = U. x ) |
44 |
|
uniiun |
|- U. x = U_ y e. x y |
45 |
43 44
|
eqtrdi |
|- ( Lim x -> x = U_ y e. x y ) |
46 |
45
|
adantr |
|- ( ( Lim x /\ ( A e. On /\ (/) e. A ) ) -> x = U_ y e. x y ) |
47 |
|
vex |
|- x e. _V |
48 |
|
oelim |
|- ( ( ( A e. On /\ ( x e. _V /\ Lim x ) ) /\ (/) e. A ) -> ( A ^o x ) = U_ y e. x ( A ^o y ) ) |
49 |
47 48
|
mpanlr1 |
|- ( ( ( A e. On /\ Lim x ) /\ (/) e. A ) -> ( A ^o x ) = U_ y e. x ( A ^o y ) ) |
50 |
49
|
anasss |
|- ( ( A e. On /\ ( Lim x /\ (/) e. A ) ) -> ( A ^o x ) = U_ y e. x ( A ^o y ) ) |
51 |
50
|
an12s |
|- ( ( Lim x /\ ( A e. On /\ (/) e. A ) ) -> ( A ^o x ) = U_ y e. x ( A ^o y ) ) |
52 |
46 51
|
sseq12d |
|- ( ( Lim x /\ ( A e. On /\ (/) e. A ) ) -> ( x C_ ( A ^o x ) <-> U_ y e. x y C_ U_ y e. x ( A ^o y ) ) ) |
53 |
42 52
|
syl5ibr |
|- ( ( Lim x /\ ( A e. On /\ (/) e. A ) ) -> ( A. y e. x y C_ ( A ^o y ) -> x C_ ( A ^o x ) ) ) |
54 |
53
|
ex |
|- ( Lim x -> ( ( A e. On /\ (/) e. A ) -> ( A. y e. x y C_ ( A ^o y ) -> x C_ ( A ^o x ) ) ) ) |
55 |
41 54
|
syl5 |
|- ( Lim x -> ( A e. ( On \ 2o ) -> ( A. y e. x y C_ ( A ^o y ) -> x C_ ( A ^o x ) ) ) ) |
56 |
3 6 9 12 14 39 55
|
tfinds3 |
|- ( B e. On -> ( A e. ( On \ 2o ) -> B C_ ( A ^o B ) ) ) |
57 |
56
|
impcom |
|- ( ( A e. ( On \ 2o ) /\ B e. On ) -> B C_ ( A ^o B ) ) |