Metamath Proof Explorer


Theorem nosupdm

Description: The domain of the surreal supremum when there is no maximum. The primary point of this theorem is to change bound variable. (Contributed by Scott Fenton, 6-Dec-2021)

Ref Expression
Hypothesis nosupdm.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 nosupdm ¬xAyA¬x<sydomS=z|pAzdompqA¬q<sppsucz=qsucz

Proof

Step Hyp Ref Expression
1 nosupdm.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 iffalse ¬xAyA¬x<syifxAyA¬x<syιxA|yA¬x<sydomιxA|yA¬x<sy2𝑜gy|uAydomuvA¬v<suusucy=vsucyιx|uAgdomuvA¬v<suusucg=vsucgug=x=gy|uAydomuvA¬v<suusucy=vsucyιx|uAgdomuvA¬v<suusucg=vsucgug=x
3 1 2 eqtrid ¬xAyA¬x<syS=gy|uAydomuvA¬v<suusucy=vsucyιx|uAgdomuvA¬v<suusucg=vsucgug=x
4 3 dmeqd ¬xAyA¬x<sydomS=domgy|uAydomuvA¬v<suusucy=vsucyιx|uAgdomuvA¬v<suusucg=vsucgug=x
5 iotaex ιx|uAgdomuvA¬v<suusucg=vsucgug=xV
6 eqid gy|uAydomuvA¬v<suusucy=vsucyιx|uAgdomuvA¬v<suusucg=vsucgug=x=gy|uAydomuvA¬v<suusucy=vsucyιx|uAgdomuvA¬v<suusucg=vsucgug=x
7 5 6 dmmpti domgy|uAydomuvA¬v<suusucy=vsucyιx|uAgdomuvA¬v<suusucg=vsucgug=x=y|uAydomuvA¬v<suusucy=vsucy
8 4 7 eqtrdi ¬xAyA¬x<sydomS=y|uAydomuvA¬v<suusucy=vsucy
9 dmeq u=pdomu=domp
10 9 eleq2d u=pydomuydomp
11 breq1 v=qv<suq<su
12 11 notbid v=q¬v<su¬q<su
13 reseq1 v=qvsucy=qsucy
14 13 eqeq2d v=qusucy=vsucyusucy=qsucy
15 12 14 imbi12d v=q¬v<suusucy=vsucy¬q<suusucy=qsucy
16 15 cbvralvw vA¬v<suusucy=vsucyqA¬q<suusucy=qsucy
17 breq2 u=pq<suq<sp
18 17 notbid u=p¬q<su¬q<sp
19 reseq1 u=pusucy=psucy
20 19 eqeq1d u=pusucy=qsucypsucy=qsucy
21 18 20 imbi12d u=p¬q<suusucy=qsucy¬q<sppsucy=qsucy
22 21 ralbidv u=pqA¬q<suusucy=qsucyqA¬q<sppsucy=qsucy
23 16 22 bitrid u=pvA¬v<suusucy=vsucyqA¬q<sppsucy=qsucy
24 10 23 anbi12d u=pydomuvA¬v<suusucy=vsucyydompqA¬q<sppsucy=qsucy
25 24 cbvrexvw uAydomuvA¬v<suusucy=vsucypAydompqA¬q<sppsucy=qsucy
26 eleq1w y=zydompzdomp
27 suceq y=zsucy=sucz
28 27 reseq2d y=zpsucy=psucz
29 27 reseq2d y=zqsucy=qsucz
30 28 29 eqeq12d y=zpsucy=qsucypsucz=qsucz
31 30 imbi2d y=z¬q<sppsucy=qsucy¬q<sppsucz=qsucz
32 31 ralbidv y=zqA¬q<sppsucy=qsucyqA¬q<sppsucz=qsucz
33 26 32 anbi12d y=zydompqA¬q<sppsucy=qsucyzdompqA¬q<sppsucz=qsucz
34 33 rexbidv y=zpAydompqA¬q<sppsucy=qsucypAzdompqA¬q<sppsucz=qsucz
35 25 34 bitrid y=zuAydomuvA¬v<suusucy=vsucypAzdompqA¬q<sppsucz=qsucz
36 35 cbvabv y|uAydomuvA¬v<suusucy=vsucy=z|pAzdompqA¬q<sppsucz=qsucz
37 8 36 eqtrdi ¬xAyA¬x<sydomS=z|pAzdompqA¬q<sppsucz=qsucz