MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  nosupfv Structured version   Visualization version   GIF version

Theorem nosupfv 27672
Description: The value of surreal supremum when there is no maximum. (Contributed by Scott Fenton, 5-Dec-2021.)
Hypothesis
Ref Expression
nosupfv.1 𝑆 = if(∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦, ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
Assertion
Ref Expression
nosupfv ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → (𝑆𝐺) = (𝑈𝐺))
Distinct variable groups:   𝐴,𝑔,𝑢,𝑣,𝑥   𝑦,𝐴   𝑔,𝐺,𝑢,𝑣,𝑥   𝑦,𝑔,𝐺   𝑢,𝑈,𝑣,𝑥   𝑦,𝑢   𝑥,𝑣   𝑦,𝑣
Allowed substitution hints:   𝑆(𝑥,𝑦,𝑣,𝑢,𝑔)   𝑈(𝑦,𝑔)

Proof of Theorem nosupfv
Dummy variable 𝑝 is distinct from all other variables.
StepHypRef Expression
1 nosupfv.1 . . . . 5 𝑆 = if(∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦, ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
2 iffalse 4486 . . . . 5 (¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 → if(∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦, ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥)))) = (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
31, 2eqtrid 2781 . . . 4 (¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦𝑆 = (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
43fveq1d 6834 . . 3 (¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 → (𝑆𝐺) = ((𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥)))‘𝐺))
543ad2ant1 1133 . 2 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → (𝑆𝐺) = ((𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥)))‘𝐺))
6 simp32 1211 . . . 4 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → 𝐺 ∈ dom 𝑈)
7 dmeq 5850 . . . . . . . . . 10 (𝑝 = 𝑈 → dom 𝑝 = dom 𝑈)
87eleq2d 2820 . . . . . . . . 9 (𝑝 = 𝑈 → (𝐺 ∈ dom 𝑝𝐺 ∈ dom 𝑈))
9 breq2 5100 . . . . . . . . . . . 12 (𝑝 = 𝑈 → (𝑣 <s 𝑝𝑣 <s 𝑈))
109notbid 318 . . . . . . . . . . 11 (𝑝 = 𝑈 → (¬ 𝑣 <s 𝑝 ↔ ¬ 𝑣 <s 𝑈))
11 reseq1 5930 . . . . . . . . . . . 12 (𝑝 = 𝑈 → (𝑝 ↾ suc 𝐺) = (𝑈 ↾ suc 𝐺))
1211eqeq1d 2736 . . . . . . . . . . 11 (𝑝 = 𝑈 → ((𝑝 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺) ↔ (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))
1310, 12imbi12d 344 . . . . . . . . . 10 (𝑝 = 𝑈 → ((¬ 𝑣 <s 𝑝 → (𝑝 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ↔ (¬ 𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
1413ralbidv 3157 . . . . . . . . 9 (𝑝 = 𝑈 → (∀𝑣𝐴𝑣 <s 𝑝 → (𝑝 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ↔ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
158, 14anbi12d 632 . . . . . . . 8 (𝑝 = 𝑈 → ((𝐺 ∈ dom 𝑝 ∧ ∀𝑣𝐴𝑣 <s 𝑝 → (𝑝 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) ↔ (𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))))
1615rspcev 3574 . . . . . . 7 ((𝑈𝐴 ∧ (𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → ∃𝑝𝐴 (𝐺 ∈ dom 𝑝 ∧ ∀𝑣𝐴𝑣 <s 𝑝 → (𝑝 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
17163impb 1114 . . . . . 6 ((𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) → ∃𝑝𝐴 (𝐺 ∈ dom 𝑝 ∧ ∀𝑣𝐴𝑣 <s 𝑝 → (𝑝 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
18 dmeq 5850 . . . . . . . . 9 (𝑢 = 𝑝 → dom 𝑢 = dom 𝑝)
1918eleq2d 2820 . . . . . . . 8 (𝑢 = 𝑝 → (𝐺 ∈ dom 𝑢𝐺 ∈ dom 𝑝))
20 breq2 5100 . . . . . . . . . . 11 (𝑢 = 𝑝 → (𝑣 <s 𝑢𝑣 <s 𝑝))
2120notbid 318 . . . . . . . . . 10 (𝑢 = 𝑝 → (¬ 𝑣 <s 𝑢 ↔ ¬ 𝑣 <s 𝑝))
22 reseq1 5930 . . . . . . . . . . 11 (𝑢 = 𝑝 → (𝑢 ↾ suc 𝐺) = (𝑝 ↾ suc 𝐺))
2322eqeq1d 2736 . . . . . . . . . 10 (𝑢 = 𝑝 → ((𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺) ↔ (𝑝 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))
2421, 23imbi12d 344 . . . . . . . . 9 (𝑢 = 𝑝 → ((¬ 𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ↔ (¬ 𝑣 <s 𝑝 → (𝑝 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
2524ralbidv 3157 . . . . . . . 8 (𝑢 = 𝑝 → (∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ↔ ∀𝑣𝐴𝑣 <s 𝑝 → (𝑝 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
2619, 25anbi12d 632 . . . . . . 7 (𝑢 = 𝑝 → ((𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) ↔ (𝐺 ∈ dom 𝑝 ∧ ∀𝑣𝐴𝑣 <s 𝑝 → (𝑝 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))))
2726cbvrexvw 3213 . . . . . 6 (∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) ↔ ∃𝑝𝐴 (𝐺 ∈ dom 𝑝 ∧ ∀𝑣𝐴𝑣 <s 𝑝 → (𝑝 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
2817, 27sylibr 234 . . . . 5 ((𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) → ∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
29283ad2ant3 1135 . . . 4 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → ∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
30 eleq1 2822 . . . . . 6 (𝑦 = 𝐺 → (𝑦 ∈ dom 𝑢𝐺 ∈ dom 𝑢))
31 suceq 6383 . . . . . . . . . 10 (𝑦 = 𝐺 → suc 𝑦 = suc 𝐺)
3231reseq2d 5936 . . . . . . . . 9 (𝑦 = 𝐺 → (𝑢 ↾ suc 𝑦) = (𝑢 ↾ suc 𝐺))
3331reseq2d 5936 . . . . . . . . 9 (𝑦 = 𝐺 → (𝑣 ↾ suc 𝑦) = (𝑣 ↾ suc 𝐺))
3432, 33eqeq12d 2750 . . . . . . . 8 (𝑦 = 𝐺 → ((𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦) ↔ (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))
3534imbi2d 340 . . . . . . 7 (𝑦 = 𝐺 → ((¬ 𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)) ↔ (¬ 𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
3635ralbidv 3157 . . . . . 6 (𝑦 = 𝐺 → (∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)) ↔ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
3730, 36anbi12d 632 . . . . 5 (𝑦 = 𝐺 → ((𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦))) ↔ (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))))
3837rexbidv 3158 . . . 4 (𝑦 = 𝐺 → (∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦))) ↔ ∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))))
396, 29, 38elabd 3634 . . 3 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → 𝐺 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))})
40 eleq1 2822 . . . . . . 7 (𝑔 = 𝐺 → (𝑔 ∈ dom 𝑢𝐺 ∈ dom 𝑢))
41 suceq 6383 . . . . . . . . . . 11 (𝑔 = 𝐺 → suc 𝑔 = suc 𝐺)
4241reseq2d 5936 . . . . . . . . . 10 (𝑔 = 𝐺 → (𝑢 ↾ suc 𝑔) = (𝑢 ↾ suc 𝐺))
4341reseq2d 5936 . . . . . . . . . 10 (𝑔 = 𝐺 → (𝑣 ↾ suc 𝑔) = (𝑣 ↾ suc 𝐺))
4442, 43eqeq12d 2750 . . . . . . . . 9 (𝑔 = 𝐺 → ((𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔) ↔ (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))
4544imbi2d 340 . . . . . . . 8 (𝑔 = 𝐺 → ((¬ 𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ↔ (¬ 𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
4645ralbidv 3157 . . . . . . 7 (𝑔 = 𝐺 → (∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ↔ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
47 fveqeq2 6841 . . . . . . 7 (𝑔 = 𝐺 → ((𝑢𝑔) = 𝑥 ↔ (𝑢𝐺) = 𝑥))
4840, 46, 473anbi123d 1438 . . . . . 6 (𝑔 = 𝐺 → ((𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥) ↔ (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥)))
4948rexbidv 3158 . . . . 5 (𝑔 = 𝐺 → (∃𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥) ↔ ∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥)))
5049iotabidv 6474 . . . 4 (𝑔 = 𝐺 → (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥)) = (℩𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥)))
51 eqid 2734 . . . 4 (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))) = (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥)))
52 iotaex 6466 . . . 4 (℩𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥)) ∈ V
5350, 51, 52fvmpt 6939 . . 3 (𝐺 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} → ((𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥)))‘𝐺) = (℩𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥)))
5439, 53syl 17 . 2 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → ((𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥)))‘𝐺) = (℩𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥)))
55 simp1 1136 . . . . 5 ((𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) → 𝑈𝐴)
56 simp2 1137 . . . . 5 ((𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) → 𝐺 ∈ dom 𝑈)
57 simp3 1138 . . . . 5 ((𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) → ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))
58 eqidd 2735 . . . . 5 ((𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) → (𝑈𝐺) = (𝑈𝐺))
59 dmeq 5850 . . . . . . . 8 (𝑢 = 𝑈 → dom 𝑢 = dom 𝑈)
6059eleq2d 2820 . . . . . . 7 (𝑢 = 𝑈 → (𝐺 ∈ dom 𝑢𝐺 ∈ dom 𝑈))
61 breq2 5100 . . . . . . . . . 10 (𝑢 = 𝑈 → (𝑣 <s 𝑢𝑣 <s 𝑈))
6261notbid 318 . . . . . . . . 9 (𝑢 = 𝑈 → (¬ 𝑣 <s 𝑢 ↔ ¬ 𝑣 <s 𝑈))
63 reseq1 5930 . . . . . . . . . 10 (𝑢 = 𝑈 → (𝑢 ↾ suc 𝐺) = (𝑈 ↾ suc 𝐺))
6463eqeq1d 2736 . . . . . . . . 9 (𝑢 = 𝑈 → ((𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺) ↔ (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))
6562, 64imbi12d 344 . . . . . . . 8 (𝑢 = 𝑈 → ((¬ 𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ↔ (¬ 𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
6665ralbidv 3157 . . . . . . 7 (𝑢 = 𝑈 → (∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ↔ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))))
67 fveq1 6831 . . . . . . . 8 (𝑢 = 𝑈 → (𝑢𝐺) = (𝑈𝐺))
6867eqeq1d 2736 . . . . . . 7 (𝑢 = 𝑈 → ((𝑢𝐺) = (𝑈𝐺) ↔ (𝑈𝐺) = (𝑈𝐺)))
6960, 66, 683anbi123d 1438 . . . . . 6 (𝑢 = 𝑈 → ((𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = (𝑈𝐺)) ↔ (𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑈𝐺) = (𝑈𝐺))))
7069rspcev 3574 . . . . 5 ((𝑈𝐴 ∧ (𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑈𝐺) = (𝑈𝐺))) → ∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = (𝑈𝐺)))
7155, 56, 57, 58, 70syl13anc 1374 . . . 4 ((𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) → ∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = (𝑈𝐺)))
72713ad2ant3 1135 . . 3 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → ∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = (𝑈𝐺)))
73 fvex 6845 . . . 4 (𝑈𝐺) ∈ V
74 eqid 2734 . . . . . . . . . 10 (𝑢𝐺) = (𝑢𝐺)
75 fvex 6845 . . . . . . . . . . 11 (𝑢𝐺) ∈ V
76 eqeq2 2746 . . . . . . . . . . . 12 (𝑥 = (𝑢𝐺) → ((𝑢𝐺) = 𝑥 ↔ (𝑢𝐺) = (𝑢𝐺)))
77763anbi3d 1444 . . . . . . . . . . 11 (𝑥 = (𝑢𝐺) → ((𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥) ↔ (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = (𝑢𝐺))))
7875, 77spcev 3558 . . . . . . . . . 10 ((𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = (𝑢𝐺)) → ∃𝑥(𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥))
7974, 78mp3an3 1452 . . . . . . . . 9 ((𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) → ∃𝑥(𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥))
8079reximi 3072 . . . . . . . 8 (∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) → ∃𝑢𝐴𝑥(𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥))
81 rexcom4 3261 . . . . . . . 8 (∃𝑢𝐴𝑥(𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥) ↔ ∃𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥))
8280, 81sylib 218 . . . . . . 7 (∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) → ∃𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥))
8328, 82syl 17 . . . . . 6 ((𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺))) → ∃𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥))
84833ad2ant3 1135 . . . . 5 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → ∃𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥))
85 nosupprefixmo 27666 . . . . . . 7 (𝐴 No → ∃*𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥))
8685adantr 480 . . . . . 6 ((𝐴 No 𝐴 ∈ V) → ∃*𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥))
87863ad2ant2 1134 . . . . 5 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → ∃*𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥))
88 df-eu 2567 . . . . 5 (∃!𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥) ↔ (∃𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥) ∧ ∃*𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥)))
8984, 87, 88sylanbrc 583 . . . 4 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → ∃!𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥))
90 eqeq2 2746 . . . . . . 7 (𝑥 = (𝑈𝐺) → ((𝑢𝐺) = 𝑥 ↔ (𝑢𝐺) = (𝑈𝐺)))
91903anbi3d 1444 . . . . . 6 (𝑥 = (𝑈𝐺) → ((𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥) ↔ (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = (𝑈𝐺))))
9291rexbidv 3158 . . . . 5 (𝑥 = (𝑈𝐺) → (∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥) ↔ ∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = (𝑈𝐺))))
9392iota2 6479 . . . 4 (((𝑈𝐺) ∈ V ∧ ∃!𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥)) → (∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = (𝑈𝐺)) ↔ (℩𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥)) = (𝑈𝐺)))
9473, 89, 93sylancr 587 . . 3 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → (∃𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = (𝑈𝐺)) ↔ (℩𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥)) = (𝑈𝐺)))
9572, 94mpbid 232 . 2 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → (℩𝑥𝑢𝐴 (𝐺 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)) ∧ (𝑢𝐺) = 𝑥)) = (𝑈𝐺))
965, 54, 953eqtrd 2773 1 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴𝐺 ∈ dom 𝑈 ∧ ∀𝑣𝐴𝑣 <s 𝑈 → (𝑈 ↾ suc 𝐺) = (𝑣 ↾ suc 𝐺)))) → (𝑆𝐺) = (𝑈𝐺))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  w3a 1086   = wceq 1541  wex 1780  wcel 2113  ∃*wmo 2535  ∃!weu 2566  {cab 2712  wral 3049  wrex 3058  Vcvv 3438  cun 3897  wss 3899  ifcif 4477  {csn 4578  cop 4584   class class class wbr 5096  cmpt 5177  dom cdm 5622  cres 5624  suc csuc 6317  cio 6444  cfv 6490  crio 7312  2oc2o 8389   No csur 27605   <s cslt 27606
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-sep 5239  ax-nul 5249  ax-pr 5375
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-ral 3050  df-rex 3059  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-tp 4583  df-op 4585  df-uni 4862  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-ord 6318  df-on 6319  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-fv 6498  df-1o 8395  df-2o 8396  df-no 27608  df-slt 27609
This theorem is referenced by:  nosupres  27673
  Copyright terms: Public domain W3C validator