Metamath Proof Explorer

Theorem fpwwe2lem8

Description: Lemma for fpwwe2 . Given two well-orders <. X , R >. and <. Y , S >. of parts of A , one is an initial segment of the other. (The O C_ P hypothesis is in order to break the symmetry of X and Y .) (Contributed by Mario Carneiro, 15-May-2015) (Proof shortened by Peter Mazsa, 23-Sep-2022) (Revised by AV, 20-Jul-2024)

Ref Expression
Hypotheses fpwwe2.1 
|- W = { <. x , r >. | ( ( x C_ A /\ r C_ ( x X. x ) ) /\ ( r We x /\ A. y e. x [. ( `' r " { y } ) / u ]. ( u F ( r i^i ( u X. u ) ) ) = y ) ) }
fpwwe2.2 
|- ( ph -> A e. V )
fpwwe2.3 
|- ( ( ph /\ ( x C_ A /\ r C_ ( x X. x ) /\ r We x ) ) -> ( x F r ) e. A )
fpwwe2lem8.x 
|- ( ph -> X W R )
fpwwe2lem8.y 
|- ( ph -> Y W S )
fpwwe2lem8.m 
|- M = OrdIso ( R , X )
fpwwe2lem8.n 
|- N = OrdIso ( S , Y )
fpwwe2lem8.s 
|- ( ph -> dom M C_ dom N )
Assertion fpwwe2lem8 
|- ( ph -> ( X C_ Y /\ R = ( S i^i ( Y X. X ) ) ) )

Proof

Step Hyp Ref Expression
1 fpwwe2.1 
 |-  W = { <. x , r >. | ( ( x C_ A /\ r C_ ( x X. x ) ) /\ ( r We x /\ A. y e. x [. ( `' r " { y } ) / u ]. ( u F ( r i^i ( u X. u ) ) ) = y ) ) }
2 fpwwe2.2 
 |-  ( ph -> A e. V )
3 fpwwe2.3 
 |-  ( ( ph /\ ( x C_ A /\ r C_ ( x X. x ) /\ r We x ) ) -> ( x F r ) e. A )
4 fpwwe2lem8.x 
 |-  ( ph -> X W R )
5 fpwwe2lem8.y 
 |-  ( ph -> Y W S )
6 fpwwe2lem8.m 
 |-  M = OrdIso ( R , X )
7 fpwwe2lem8.n 
 |-  N = OrdIso ( S , Y )
8 fpwwe2lem8.s 
 |-  ( ph -> dom M C_ dom N )
9 1 relopabiv 
 |-  Rel W
10 9 brrelex1i 
 |-  ( X W R -> X e. _V )
11 4 10 syl 
 |-  ( ph -> X e. _V )
12 1 2 fpwwe2lem2 
 |-  ( ph -> ( X W R <-> ( ( X C_ A /\ R C_ ( X X. X ) ) /\ ( R We X /\ A. y e. X [. ( `' R " { y } ) / u ]. ( u F ( R i^i ( u X. u ) ) ) = y ) ) ) )
13 4 12 mpbid 
 |-  ( ph -> ( ( X C_ A /\ R C_ ( X X. X ) ) /\ ( R We X /\ A. y e. X [. ( `' R " { y } ) / u ]. ( u F ( R i^i ( u X. u ) ) ) = y ) ) )
14 13 simprld 
 |-  ( ph -> R We X )
15 6 oiiso 
 |-  ( ( X e. _V /\ R We X ) -> M Isom _E , R ( dom M , X ) )
16 11 14 15 syl2anc 
 |-  ( ph -> M Isom _E , R ( dom M , X ) )
17 isof1o 
 |-  ( M Isom _E , R ( dom M , X ) -> M : dom M -1-1-onto-> X )
18 16 17 syl 
 |-  ( ph -> M : dom M -1-1-onto-> X )
19 f1ofo 
 |-  ( M : dom M -1-1-onto-> X -> M : dom M -onto-> X )
20 forn 
 |-  ( M : dom M -onto-> X -> ran M = X )
21 18 19 20 3syl 
 |-  ( ph -> ran M = X )
22 1 2 3 4 5 6 7 8 fpwwe2lem7 
 |-  ( ph -> M = ( N |` dom M ) )
23 22 rneqd 
 |-  ( ph -> ran M = ran ( N |` dom M ) )
24 21 23 eqtr3d 
 |-  ( ph -> X = ran ( N |` dom M ) )
25 df-ima 
 |-  ( N " dom M ) = ran ( N |` dom M )
26 24 25 eqtr4di 
 |-  ( ph -> X = ( N " dom M ) )
27 imassrn 
 |-  ( N " dom M ) C_ ran N
28 9 brrelex1i 
 |-  ( Y W S -> Y e. _V )
29 5 28 syl 
 |-  ( ph -> Y e. _V )
30 1 2 fpwwe2lem2 
 |-  ( ph -> ( Y W S <-> ( ( Y C_ A /\ S C_ ( Y X. Y ) ) /\ ( S We Y /\ A. y e. Y [. ( `' S " { y } ) / u ]. ( u F ( S i^i ( u X. u ) ) ) = y ) ) ) )
31 5 30 mpbid 
 |-  ( ph -> ( ( Y C_ A /\ S C_ ( Y X. Y ) ) /\ ( S We Y /\ A. y e. Y [. ( `' S " { y } ) / u ]. ( u F ( S i^i ( u X. u ) ) ) = y ) ) )
32 31 simprld 
 |-  ( ph -> S We Y )
33 7 oiiso 
 |-  ( ( Y e. _V /\ S We Y ) -> N Isom _E , S ( dom N , Y ) )
34 29 32 33 syl2anc 
 |-  ( ph -> N Isom _E , S ( dom N , Y ) )
35 isof1o 
 |-  ( N Isom _E , S ( dom N , Y ) -> N : dom N -1-1-onto-> Y )
36 34 35 syl 
 |-  ( ph -> N : dom N -1-1-onto-> Y )
37 f1ofo 
 |-  ( N : dom N -1-1-onto-> Y -> N : dom N -onto-> Y )
38 forn 
 |-  ( N : dom N -onto-> Y -> ran N = Y )
39 36 37 38 3syl 
 |-  ( ph -> ran N = Y )
40 27 39 sseqtrid 
 |-  ( ph -> ( N " dom M ) C_ Y )
41 26 40 eqsstrd 
 |-  ( ph -> X C_ Y )
42 13 simplrd 
 |-  ( ph -> R C_ ( X X. X ) )
43 relxp 
 |-  Rel ( X X. X )
44 relss 
 |-  ( R C_ ( X X. X ) -> ( Rel ( X X. X ) -> Rel R ) )
45 42 43 44 mpisyl 
 |-  ( ph -> Rel R )
46 relinxp 
 |-  Rel ( S i^i ( Y X. X ) )
47 45 46 jctir 
 |-  ( ph -> ( Rel R /\ Rel ( S i^i ( Y X. X ) ) ) )
48 42 ssbrd 
 |-  ( ph -> ( x R y -> x ( X X. X ) y ) )
49 brxp 
 |-  ( x ( X X. X ) y <-> ( x e. X /\ y e. X ) )
50 48 49 imbitrdi 
 |-  ( ph -> ( x R y -> ( x e. X /\ y e. X ) ) )
51 brinxp2 
 |-  ( x ( S i^i ( Y X. X ) ) y <-> ( ( x e. Y /\ y e. X ) /\ x S y ) )
52 isocnv 
 |-  ( N Isom _E , S ( dom N , Y ) -> `' N Isom S , _E ( Y , dom N ) )
53 34 52 syl 
 |-  ( ph -> `' N Isom S , _E ( Y , dom N ) )
54 53 adantr 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> `' N Isom S , _E ( Y , dom N ) )
55 isof1o 
 |-  ( `' N Isom S , _E ( Y , dom N ) -> `' N : Y -1-1-onto-> dom N )
56 f1ofn 
 |-  ( `' N : Y -1-1-onto-> dom N -> `' N Fn Y )
57 54 55 56 3syl 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> `' N Fn Y )
58 simprll 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> x e. Y )
59 simprr 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> x S y )
60 41 adantr 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> X C_ Y )
61 simprlr 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> y e. X )
62 60 61 sseldd 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> y e. Y )
63 isorel 
 |-  ( ( `' N Isom S , _E ( Y , dom N ) /\ ( x e. Y /\ y e. Y ) ) -> ( x S y <-> ( `' N ` x ) _E ( `' N ` y ) ) )
64 54 58 62 63 syl12anc 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> ( x S y <-> ( `' N ` x ) _E ( `' N ` y ) ) )
65 59 64 mpbid 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> ( `' N ` x ) _E ( `' N ` y ) )
66 fvex 
 |-  ( `' N ` y ) e. _V
67 66 epeli 
 |-  ( ( `' N ` x ) _E ( `' N ` y ) <-> ( `' N ` x ) e. ( `' N ` y ) )
68 65 67 sylib 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> ( `' N ` x ) e. ( `' N ` y ) )
69 22 adantr 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> M = ( N |` dom M ) )
70 69 cnveqd 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> `' M = `' ( N |` dom M ) )
71 fnfun 
 |-  ( `' N Fn Y -> Fun `' N )
72 funcnvres 
 |-  ( Fun `' N -> `' ( N |` dom M ) = ( `' N |` ( N " dom M ) ) )
73 57 71 72 3syl 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> `' ( N |` dom M ) = ( `' N |` ( N " dom M ) ) )
74 70 73 eqtrd 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> `' M = ( `' N |` ( N " dom M ) ) )
75 74 fveq1d 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> ( `' M ` y ) = ( ( `' N |` ( N " dom M ) ) ` y ) )
76 26 adantr 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> X = ( N " dom M ) )
77 61 76 eleqtrd 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> y e. ( N " dom M ) )
78 77 fvresd 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> ( ( `' N |` ( N " dom M ) ) ` y ) = ( `' N ` y ) )
79 75 78 eqtrd 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> ( `' M ` y ) = ( `' N ` y ) )
80 isocnv 
 |-  ( M Isom _E , R ( dom M , X ) -> `' M Isom R , _E ( X , dom M ) )
81 16 80 syl 
 |-  ( ph -> `' M Isom R , _E ( X , dom M ) )
82 isof1o 
 |-  ( `' M Isom R , _E ( X , dom M ) -> `' M : X -1-1-onto-> dom M )
83 f1of 
 |-  ( `' M : X -1-1-onto-> dom M -> `' M : X --> dom M )
84 81 82 83 3syl 
 |-  ( ph -> `' M : X --> dom M )
85 84 adantr 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> `' M : X --> dom M )
86 85 61 ffvelcdmd 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> ( `' M ` y ) e. dom M )
87 79 86 eqeltrrd 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> ( `' N ` y ) e. dom M )
88 6 oicl 
 |-  Ord dom M
89 ordtr1 
 |-  ( Ord dom M -> ( ( ( `' N ` x ) e. ( `' N ` y ) /\ ( `' N ` y ) e. dom M ) -> ( `' N ` x ) e. dom M ) )
90 88 89 ax-mp 
 |-  ( ( ( `' N ` x ) e. ( `' N ` y ) /\ ( `' N ` y ) e. dom M ) -> ( `' N ` x ) e. dom M )
91 68 87 90 syl2anc 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> ( `' N ` x ) e. dom M )
92 57 58 91 elpreimad 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> x e. ( `' `' N " dom M ) )
93 imacnvcnv 
 |-  ( `' `' N " dom M ) = ( N " dom M )
94 76 93 eqtr4di 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> X = ( `' `' N " dom M ) )
95 92 94 eleqtrrd 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> x e. X )
96 95 61 jca 
 |-  ( ( ph /\ ( ( x e. Y /\ y e. X ) /\ x S y ) ) -> ( x e. X /\ y e. X ) )
97 96 ex 
 |-  ( ph -> ( ( ( x e. Y /\ y e. X ) /\ x S y ) -> ( x e. X /\ y e. X ) ) )
98 51 97 biimtrid 
 |-  ( ph -> ( x ( S i^i ( Y X. X ) ) y -> ( x e. X /\ y e. X ) ) )
99 22 adantr 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> M = ( N |` dom M ) )
100 99 cnveqd 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> `' M = `' ( N |` dom M ) )
101 100 fveq1d 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> ( `' M ` x ) = ( `' ( N |` dom M ) ` x ) )
102 100 fveq1d 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> ( `' M ` y ) = ( `' ( N |` dom M ) ` y ) )
103 101 102 breq12d 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> ( ( `' M ` x ) _E ( `' M ` y ) <-> ( `' ( N |` dom M ) ` x ) _E ( `' ( N |` dom M ) ` y ) ) )
104 isorel 
 |-  ( ( `' M Isom R , _E ( X , dom M ) /\ ( x e. X /\ y e. X ) ) -> ( x R y <-> ( `' M ` x ) _E ( `' M ` y ) ) )
105 81 104 sylan 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> ( x R y <-> ( `' M ` x ) _E ( `' M ` y ) ) )
106 eqidd 
 |-  ( ph -> ( N " dom M ) = ( N " dom M ) )
107 isores3 
 |-  ( ( N Isom _E , S ( dom N , Y ) /\ dom M C_ dom N /\ ( N " dom M ) = ( N " dom M ) ) -> ( N |` dom M ) Isom _E , S ( dom M , ( N " dom M ) ) )
108 34 8 106 107 syl3anc 
 |-  ( ph -> ( N |` dom M ) Isom _E , S ( dom M , ( N " dom M ) ) )
109 isocnv 
 |-  ( ( N |` dom M ) Isom _E , S ( dom M , ( N " dom M ) ) -> `' ( N |` dom M ) Isom S , _E ( ( N " dom M ) , dom M ) )
110 108 109 syl 
 |-  ( ph -> `' ( N |` dom M ) Isom S , _E ( ( N " dom M ) , dom M ) )
111 110 adantr 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> `' ( N |` dom M ) Isom S , _E ( ( N " dom M ) , dom M ) )
112 simprl 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> x e. X )
113 26 adantr 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> X = ( N " dom M ) )
114 112 113 eleqtrd 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> x e. ( N " dom M ) )
115 simprr 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> y e. X )
116 115 113 eleqtrd 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> y e. ( N " dom M ) )
117 isorel 
 |-  ( ( `' ( N |` dom M ) Isom S , _E ( ( N " dom M ) , dom M ) /\ ( x e. ( N " dom M ) /\ y e. ( N " dom M ) ) ) -> ( x S y <-> ( `' ( N |` dom M ) ` x ) _E ( `' ( N |` dom M ) ` y ) ) )
118 111 114 116 117 syl12anc 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> ( x S y <-> ( `' ( N |` dom M ) ` x ) _E ( `' ( N |` dom M ) ` y ) ) )
119 103 105 118 3bitr4d 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> ( x R y <-> x S y ) )
120 41 sselda 
 |-  ( ( ph /\ x e. X ) -> x e. Y )
121 120 adantrr 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> x e. Y )
122 121 115 jca 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> ( x e. Y /\ y e. X ) )
123 122 biantrurd 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> ( x S y <-> ( ( x e. Y /\ y e. X ) /\ x S y ) ) )
124 123 51 bitr4di 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> ( x S y <-> x ( S i^i ( Y X. X ) ) y ) )
125 119 124 bitrd 
 |-  ( ( ph /\ ( x e. X /\ y e. X ) ) -> ( x R y <-> x ( S i^i ( Y X. X ) ) y ) )
126 125 ex 
 |-  ( ph -> ( ( x e. X /\ y e. X ) -> ( x R y <-> x ( S i^i ( Y X. X ) ) y ) ) )
127 50 98 126 pm5.21ndd 
 |-  ( ph -> ( x R y <-> x ( S i^i ( Y X. X ) ) y ) )
128 df-br 
 |-  ( x R y <-> <. x , y >. e. R )
129 df-br 
 |-  ( x ( S i^i ( Y X. X ) ) y <-> <. x , y >. e. ( S i^i ( Y X. X ) ) )
130 127 128 129 3bitr3g 
 |-  ( ph -> ( <. x , y >. e. R <-> <. x , y >. e. ( S i^i ( Y X. X ) ) ) )
131 130 eqrelrdv2 
 |-  ( ( ( Rel R /\ Rel ( S i^i ( Y X. X ) ) ) /\ ph ) -> R = ( S i^i ( Y X. X ) ) )
132 47 131 mpancom 
 |-  ( ph -> R = ( S i^i ( Y X. X ) ) )
133 41 132 jca 
 |-  ( ph -> ( X C_ Y /\ R = ( S i^i ( Y X. X ) ) ) )