This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem oeworde

Description: Ordinal exponentiation compared to its exponent. Proposition 8.37 of TakeutiZaring p. 68. Lemma 3.20 of Schloeder p. 10. (Contributed by NM, 7-Jan-2005) (Revised by Mario Carneiro, 24-May-2015)

Ref Expression
Assertion oeworde 
|- ( ( A e. ( On \ 2o ) /\ B e. On ) -> B C_ ( A ^o B ) )

Proof

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 onsuc 
 |-  ( 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 imbitrrid 
 |-  ( ( 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 ) )