Metamath Proof Explorer


Theorem nosupbnd1lem5

Description: Lemma for nosupbnd1 . If U is a prolongment of S and in A , then ( Udom S ) is not 1o . (Contributed by Scott Fenton, 6-Dec-2021)

Ref Expression
Hypothesis nosupbnd1.1 S=ifxAyA¬x<syιxA|yA¬x<sydomιxA|yA¬x<sy2𝑜gy|uAydomuvA¬v<suusucy=vsucyιx|uAgdomuvA¬v<suusucg=vsucgug=x
Assertion nosupbnd1lem5 ¬xAyA¬x<syANoAVUAUdomS=SUdomS1𝑜

Proof

Step Hyp Ref Expression
1 nosupbnd1.1 S=ifxAyA¬x<syιxA|yA¬x<sydomιxA|yA¬x<sy2𝑜gy|uAydomuvA¬v<suusucy=vsucyιx|uAgdomuvA¬v<suusucg=vsucgug=x
2 1 nosupno ANoAVSNo
3 2 3ad2ant2 ¬xAyA¬x<syANoAVUAUdomS=SSNo
4 3 adantl zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SSNo
5 nodmord SNoOrddomS
6 ordirr OrddomS¬domSdomS
7 4 5 6 3syl zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=S¬domSdomS
8 simpr3l zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUA
9 8 adantr zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜UA
10 ndmfv ¬domSdomUUdomS=
11 1oex 1𝑜V
12 11 prid1 1𝑜1𝑜2𝑜
13 12 nosgnn0i 1𝑜
14 neeq1 UdomS=UdomS1𝑜1𝑜
15 13 14 mpbiri UdomS=UdomS1𝑜
16 15 neneqd UdomS=¬UdomS=1𝑜
17 10 16 syl ¬domSdomU¬UdomS=1𝑜
18 17 con4i UdomS=1𝑜domSdomU
19 18 adantl zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜domSdomU
20 simp2l ¬xAyA¬x<syANoAVUAUdomS=SANo
21 simp3l ¬xAyA¬x<syANoAVUAUdomS=SUA
22 20 21 sseldd ¬xAyA¬x<syANoAVUAUdomS=SUNo
23 22 adantr ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜UNo
24 23 adantr ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜UNo
25 nofun UNoFunU
26 24 25 syl ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜FunU
27 simpl2l ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜ANo
28 simpll zA¬z<sUzdomS=1𝑜zA
29 ssel2 ANozAzNo
30 27 28 29 syl2an ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜zNo
31 nofun zNoFunz
32 30 31 syl ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜Funz
33 simpl3r ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜UdomS=S
34 33 adantr ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜UdomS=S
35 simpll1 ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜¬xAyA¬x<sy
36 simpll2 ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜ANoAV
37 simpll3 ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜UAUdomS=S
38 simprl ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜zA¬z<sU
39 1 nosupbnd1lem2 ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzdomS=S
40 35 36 37 38 39 syl112anc ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜zdomS=S
41 34 40 eqtr4d ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜UdomS=zdomS
42 18 adantl ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜domSdomU
43 42 adantr ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜domSdomU
44 ndmfv ¬domSdomzzdomS=
45 neeq1 zdomS=zdomS1𝑜1𝑜
46 13 45 mpbiri zdomS=zdomS1𝑜
47 46 neneqd zdomS=¬zdomS=1𝑜
48 44 47 syl ¬domSdomz¬zdomS=1𝑜
49 48 con4i zdomS=1𝑜domSdomz
50 49 adantl zA¬z<sUzdomS=1𝑜domSdomz
51 50 adantl ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜domSdomz
52 simplr ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜UdomS=1𝑜
53 simprr ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜zdomS=1𝑜
54 52 53 eqtr4d ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜UdomS=zdomS
55 eqfunressuc FunUFunzUdomS=zdomSdomSdomUdomSdomzUdomS=zdomSUsucdomS=zsucdomS
56 26 32 41 43 51 54 55 syl213anc ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜UsucdomS=zsucdomS
57 56 expr ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜UsucdomS=zsucdomS
58 57 expr ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜UsucdomS=zsucdomS
59 58 a2d ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜¬z<sUUsucdomS=zsucdomS
60 59 ralimdva ¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUzdomS=1𝑜zA¬z<sUUsucdomS=zsucdomS
61 60 impcom zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUUsucdomS=zsucdomS
62 61 anassrs zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜zA¬z<sUUsucdomS=zsucdomS
63 dmeq p=Udomp=domU
64 63 eleq2d p=UdomSdompdomSdomU
65 breq2 p=Uz<spz<sU
66 65 notbid p=U¬z<sp¬z<sU
67 reseq1 p=UpsucdomS=UsucdomS
68 67 eqeq1d p=UpsucdomS=zsucdomSUsucdomS=zsucdomS
69 66 68 imbi12d p=U¬z<sppsucdomS=zsucdomS¬z<sUUsucdomS=zsucdomS
70 69 ralbidv p=UzA¬z<sppsucdomS=zsucdomSzA¬z<sUUsucdomS=zsucdomS
71 64 70 anbi12d p=UdomSdompzA¬z<sppsucdomS=zsucdomSdomSdomUzA¬z<sUUsucdomS=zsucdomS
72 71 rspcev UAdomSdomUzA¬z<sUUsucdomS=zsucdomSpAdomSdompzA¬z<sppsucdomS=zsucdomS
73 9 19 62 72 syl12anc zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜pAdomSdompzA¬z<sppsucdomS=zsucdomS
74 simplr1 zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜¬xAyA¬x<sy
75 1 nosupdm ¬xAyA¬x<sydomS=a|pAadompzA¬z<sppsuca=zsuca
76 75 eleq2d ¬xAyA¬x<sydomSdomSdomSa|pAadompzA¬z<sppsuca=zsuca
77 74 76 syl zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜domSdomSdomSa|pAadompzA¬z<sppsuca=zsuca
78 4 adantr zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜SNo
79 nodmon SNodomSOn
80 eleq1 a=domSadompdomSdomp
81 suceq a=domSsuca=sucdomS
82 81 reseq2d a=domSpsuca=psucdomS
83 81 reseq2d a=domSzsuca=zsucdomS
84 82 83 eqeq12d a=domSpsuca=zsucapsucdomS=zsucdomS
85 84 imbi2d a=domS¬z<sppsuca=zsuca¬z<sppsucdomS=zsucdomS
86 85 ralbidv a=domSzA¬z<sppsuca=zsucazA¬z<sppsucdomS=zsucdomS
87 80 86 anbi12d a=domSadompzA¬z<sppsuca=zsucadomSdompzA¬z<sppsucdomS=zsucdomS
88 87 rexbidv a=domSpAadompzA¬z<sppsuca=zsucapAdomSdompzA¬z<sppsucdomS=zsucdomS
89 88 elabg domSOndomSa|pAadompzA¬z<sppsuca=zsucapAdomSdompzA¬z<sppsucdomS=zsucdomS
90 78 79 89 3syl zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜domSa|pAadompzA¬z<sppsuca=zsucapAdomSdompzA¬z<sppsucdomS=zsucdomS
91 77 90 bitrd zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜domSdomSpAdomSdompzA¬z<sppsucdomS=zsucdomS
92 73 91 mpbird zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS=1𝑜domSdomS
93 7 92 mtand zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=S¬UdomS=1𝑜
94 93 neqned zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS1𝑜
95 rexanali zA¬z<sU¬zdomS=1𝑜¬zA¬z<sUzdomS=1𝑜
96 simpl zA¬z<sUzA
97 20 96 29 syl2an ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzNo
98 nofv zNozdomS=zdomS=1𝑜zdomS=2𝑜
99 97 98 syl ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzdomS=zdomS=1𝑜zdomS=2𝑜
100 3orel2 ¬zdomS=1𝑜zdomS=zdomS=1𝑜zdomS=2𝑜zdomS=zdomS=2𝑜
101 99 100 syl5com ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sU¬zdomS=1𝑜zdomS=zdomS=2𝑜
102 101 imdistanda ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sU¬zdomS=1𝑜zA¬z<sUzdomS=zdomS=2𝑜
103 simpl1 ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sU¬xAyA¬x<sy
104 simpl2 ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUANoAV
105 simprl ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzA
106 simpl3 ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUUAUdomS=S
107 simpr ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzA¬z<sU
108 103 104 106 107 39 syl112anc ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzdomS=S
109 1 nosupbnd1lem4 ¬xAyA¬x<syANoAVzAzdomS=SzdomS
110 103 104 105 108 109 syl112anc ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzdomS
111 110 neneqd ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sU¬zdomS=
112 111 pm2.21d ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzdomS=UdomS1𝑜
113 1 nosupbnd1lem3 ¬xAyA¬x<syANoAVzAzdomS=SzdomS2𝑜
114 103 104 105 108 113 syl112anc ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzdomS2𝑜
115 114 neneqd ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sU¬zdomS=2𝑜
116 115 pm2.21d ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzdomS=2𝑜UdomS1𝑜
117 112 116 jaod ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzdomS=zdomS=2𝑜UdomS1𝑜
118 117 expimpd ¬xAyA¬x<syANoAVUAUdomS=SzA¬z<sUzdomS=zdomS=2𝑜UdomS1𝑜
119 102 118 syldc zA¬z<sU¬zdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS1𝑜
120 119 anasss zA¬z<sU¬zdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS1𝑜
121 120 rexlimiva zA¬z<sU¬zdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS1𝑜
122 121 imp zA¬z<sU¬zdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS1𝑜
123 95 122 sylanbr ¬zA¬z<sUzdomS=1𝑜¬xAyA¬x<syANoAVUAUdomS=SUdomS1𝑜
124 94 123 pm2.61ian ¬xAyA¬x<syANoAVUAUdomS=SUdomS1𝑜