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 = if x A y A ¬ x < s y ι x A | y A ¬ x < s y dom ι x A | y A ¬ x < s y 2 𝑜 g y | u A y dom u v A ¬ v < s u u suc y = v suc y ι x | u A g dom u v A ¬ v < s u u suc g = v suc g u g = x
Assertion nosupdm ¬ x A y A ¬ x < s y dom S = z | p A z dom p q A ¬ q < s p p suc z = q suc z

Proof

Step Hyp Ref Expression
1 nosupdm.1 S = if x A y A ¬ x < s y ι x A | y A ¬ x < s y dom ι x A | y A ¬ x < s y 2 𝑜 g y | u A y dom u v A ¬ v < s u u suc y = v suc y ι x | u A g dom u v A ¬ v < s u u suc g = v suc g u g = x
2 iffalse ¬ x A y A ¬ x < s y if x A y A ¬ x < s y ι x A | y A ¬ x < s y dom ι x A | y A ¬ x < s y 2 𝑜 g y | u A y dom u v A ¬ v < s u u suc y = v suc y ι x | u A g dom u v A ¬ v < s u u suc g = v suc g u g = x = g y | u A y dom u v A ¬ v < s u u suc y = v suc y ι x | u A g dom u v A ¬ v < s u u suc g = v suc g u g = x
3 1 2 eqtrid ¬ x A y A ¬ x < s y S = g y | u A y dom u v A ¬ v < s u u suc y = v suc y ι x | u A g dom u v A ¬ v < s u u suc g = v suc g u g = x
4 3 dmeqd ¬ x A y A ¬ x < s y dom S = dom g y | u A y dom u v A ¬ v < s u u suc y = v suc y ι x | u A g dom u v A ¬ v < s u u suc g = v suc g u g = x
5 iotaex ι x | u A g dom u v A ¬ v < s u u suc g = v suc g u g = x V
6 eqid g y | u A y dom u v A ¬ v < s u u suc y = v suc y ι x | u A g dom u v A ¬ v < s u u suc g = v suc g u g = x = g y | u A y dom u v A ¬ v < s u u suc y = v suc y ι x | u A g dom u v A ¬ v < s u u suc g = v suc g u g = x
7 5 6 dmmpti dom g y | u A y dom u v A ¬ v < s u u suc y = v suc y ι x | u A g dom u v A ¬ v < s u u suc g = v suc g u g = x = y | u A y dom u v A ¬ v < s u u suc y = v suc y
8 4 7 eqtrdi ¬ x A y A ¬ x < s y dom S = y | u A y dom u v A ¬ v < s u u suc y = v suc y
9 dmeq u = p dom u = dom p
10 9 eleq2d u = p y dom u y dom p
11 breq1 v = q v < s u q < s u
12 11 notbid v = q ¬ v < s u ¬ q < s u
13 reseq1 v = q v suc y = q suc y
14 13 eqeq2d v = q u suc y = v suc y u suc y = q suc y
15 12 14 imbi12d v = q ¬ v < s u u suc y = v suc y ¬ q < s u u suc y = q suc y
16 15 cbvralvw v A ¬ v < s u u suc y = v suc y q A ¬ q < s u u suc y = q suc y
17 breq2 u = p q < s u q < s p
18 17 notbid u = p ¬ q < s u ¬ q < s p
19 reseq1 u = p u suc y = p suc y
20 19 eqeq1d u = p u suc y = q suc y p suc y = q suc y
21 18 20 imbi12d u = p ¬ q < s u u suc y = q suc y ¬ q < s p p suc y = q suc y
22 21 ralbidv u = p q A ¬ q < s u u suc y = q suc y q A ¬ q < s p p suc y = q suc y
23 16 22 syl5bb u = p v A ¬ v < s u u suc y = v suc y q A ¬ q < s p p suc y = q suc y
24 10 23 anbi12d u = p y dom u v A ¬ v < s u u suc y = v suc y y dom p q A ¬ q < s p p suc y = q suc y
25 24 cbvrexvw u A y dom u v A ¬ v < s u u suc y = v suc y p A y dom p q A ¬ q < s p p suc y = q suc y
26 eleq1w y = z y dom p z dom p
27 suceq y = z suc y = suc z
28 27 reseq2d y = z p suc y = p suc z
29 27 reseq2d y = z q suc y = q suc z
30 28 29 eqeq12d y = z p suc y = q suc y p suc z = q suc z
31 30 imbi2d y = z ¬ q < s p p suc y = q suc y ¬ q < s p p suc z = q suc z
32 31 ralbidv y = z q A ¬ q < s p p suc y = q suc y q A ¬ q < s p p suc z = q suc z
33 26 32 anbi12d y = z y dom p q A ¬ q < s p p suc y = q suc y z dom p q A ¬ q < s p p suc z = q suc z
34 33 rexbidv y = z p A y dom p q A ¬ q < s p p suc y = q suc y p A z dom p q A ¬ q < s p p suc z = q suc z
35 25 34 syl5bb y = z u A y dom u v A ¬ v < s u u suc y = v suc y p A z dom p q A ¬ q < s p p suc z = q suc z
36 35 cbvabv y | u A y dom u v A ¬ v < s u u suc y = v suc y = z | p A z dom p q A ¬ q < s p p suc z = q suc z
37 8 36 eqtrdi ¬ x A y A ¬ x < s y dom S = z | p A z dom p q A ¬ q < s p p suc z = q suc z