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 bitrid ⊢ 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 bitrid ⊢ 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