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

Theorem nosupbnd1 27680
Description: Bounding law from below for the surreal supremum. Proposition 4.2 of [Lipparini] p. 6. (Contributed by Scott Fenton, 6-Dec-2021.)
Hypothesis
Ref Expression
nosupbnd1.1 𝑆 = if(∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦, ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
Assertion
Ref Expression
nosupbnd1 ((𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴) → (𝑈 ↾ dom 𝑆) <s 𝑆)
Distinct variable groups:   𝐴,𝑔,𝑢,𝑣,𝑥,𝑦   𝑢,𝑈,𝑣,𝑥,𝑦
Allowed substitution hints:   𝑆(𝑥,𝑦,𝑣,𝑢,𝑔)   𝑈(𝑔)

Proof of Theorem nosupbnd1
StepHypRef Expression
1 simpr3 1197 . . . . . 6 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → 𝑈𝐴)
2 nfv 1915 . . . . . . . . 9 𝑥(𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)
3 nfcv 2896 . . . . . . . . . 10 𝑥𝐴
4 nfriota1 7320 . . . . . . . . . . . 12 𝑥(𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
5 nfcv 2896 . . . . . . . . . . . 12 𝑥 <s
6 nfcv 2896 . . . . . . . . . . . 12 𝑥𝑦
74, 5, 6nfbr 5143 . . . . . . . . . . 11 𝑥(𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦
87nfn 1858 . . . . . . . . . 10 𝑥 ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦
93, 8nfralw 3281 . . . . . . . . 9 𝑥𝑦𝐴 ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦
102, 9nfim 1897 . . . . . . . 8 𝑥((𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴) → ∀𝑦𝐴 ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦)
11 simpl 482 . . . . . . . . . . 11 (((𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦) ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦))
12 rspe 3224 . . . . . . . . . . . . . 14 ((𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦) → ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
1312adantr 480 . . . . . . . . . . . . 13 (((𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦) ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
14 nomaxmo 27664 . . . . . . . . . . . . . . 15 (𝐴 No → ∃*𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
15143ad2ant1 1133 . . . . . . . . . . . . . 14 ((𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴) → ∃*𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
1615adantl 481 . . . . . . . . . . . . 13 (((𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦) ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ∃*𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
17 reu5 3350 . . . . . . . . . . . . 13 (∃!𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ↔ (∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ ∃*𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦))
1813, 16, 17sylanbrc 583 . . . . . . . . . . . 12 (((𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦) ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ∃!𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
19 riota1 7334 . . . . . . . . . . . 12 (∃!𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 → ((𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦) ↔ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) = 𝑥))
2018, 19syl 17 . . . . . . . . . . 11 (((𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦) ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ((𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦) ↔ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) = 𝑥))
2111, 20mpbid 232 . . . . . . . . . 10 (((𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦) ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) = 𝑥)
22 simplr 768 . . . . . . . . . 10 (((𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦) ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ∀𝑦𝐴 ¬ 𝑥 <s 𝑦)
23 nfra1 3258 . . . . . . . . . . . . . 14 𝑦𝑦𝐴 ¬ 𝑥 <s 𝑦
24 nfcv 2896 . . . . . . . . . . . . . 14 𝑦𝐴
2523, 24nfriota 7325 . . . . . . . . . . . . 13 𝑦(𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
26 nfcv 2896 . . . . . . . . . . . . 13 𝑦𝑥
2725, 26nfeq 2910 . . . . . . . . . . . 12 𝑦(𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) = 𝑥
28 breq1 5099 . . . . . . . . . . . . 13 ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) = 𝑥 → ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦𝑥 <s 𝑦))
2928notbid 318 . . . . . . . . . . . 12 ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) = 𝑥 → (¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦 ↔ ¬ 𝑥 <s 𝑦))
3027, 29ralbid 3247 . . . . . . . . . . 11 ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) = 𝑥 → (∀𝑦𝐴 ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦 ↔ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦))
3130biimprd 248 . . . . . . . . . 10 ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) = 𝑥 → (∀𝑦𝐴 ¬ 𝑥 <s 𝑦 → ∀𝑦𝐴 ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦))
3221, 22, 31sylc 65 . . . . . . . . 9 (((𝑥𝐴 ∧ ∀𝑦𝐴 ¬ 𝑥 <s 𝑦) ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ∀𝑦𝐴 ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦)
3332exp31 419 . . . . . . . 8 (𝑥𝐴 → (∀𝑦𝐴 ¬ 𝑥 <s 𝑦 → ((𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴) → ∀𝑦𝐴 ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦)))
3410, 33rexlimi 3234 . . . . . . 7 (∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 → ((𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴) → ∀𝑦𝐴 ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦))
3534imp 406 . . . . . 6 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ∀𝑦𝐴 ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦)
36 nfcv 2896 . . . . . . . . 9 𝑦 <s
37 nfcv 2896 . . . . . . . . 9 𝑦𝑈
3825, 36, 37nfbr 5143 . . . . . . . 8 𝑦(𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑈
3938nfn 1858 . . . . . . 7 𝑦 ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑈
40 breq2 5100 . . . . . . . 8 (𝑦 = 𝑈 → ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦 ↔ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑈))
4140notbid 318 . . . . . . 7 (𝑦 = 𝑈 → (¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦 ↔ ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑈))
4239, 41rspc 3562 . . . . . 6 (𝑈𝐴 → (∀𝑦𝐴 ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑦 → ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑈))
431, 35, 42sylc 65 . . . . 5 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑈)
44 simpr1 1195 . . . . . . . . . 10 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → 𝐴 No )
45 simpl 482 . . . . . . . . . . . 12 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
4615adantl 481 . . . . . . . . . . . 12 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ∃*𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
4745, 46, 17sylanbrc 583 . . . . . . . . . . 11 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ∃!𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
48 riotacl 7330 . . . . . . . . . . 11 (∃!𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 → (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ 𝐴)
4947, 48syl 17 . . . . . . . . . 10 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ 𝐴)
5044, 49sseldd 3932 . . . . . . . . 9 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ No )
51 nofun 27615 . . . . . . . . 9 ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ No → Fun (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦))
52 funrel 6507 . . . . . . . . 9 (Fun (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) → Rel (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦))
5350, 51, 523syl 18 . . . . . . . 8 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → Rel (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦))
54 sssucid 6397 . . . . . . . 8 dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ⊆ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
55 relssres 5979 . . . . . . . 8 ((Rel (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∧ dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ⊆ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) → ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) = (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦))
5653, 54, 55sylancl 586 . . . . . . 7 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) = (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦))
5756breq1d 5106 . . . . . 6 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) <s (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) ↔ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦))))
5844, 1sseldd 3932 . . . . . . 7 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → 𝑈 No )
59 nodmon 27616 . . . . . . . . 9 ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ No → dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ On)
6050, 59syl 17 . . . . . . . 8 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ On)
61 onsucb 7757 . . . . . . . 8 (dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ On ↔ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ On)
6260, 61sylib 218 . . . . . . 7 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ On)
63 sltres 27628 . . . . . . 7 (((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ No 𝑈 No ∧ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ On) → (((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) <s (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) → (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑈))
6450, 58, 62, 63syl3anc 1373 . . . . . 6 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) <s (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) → (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑈))
6557, 64sylbird 260 . . . . 5 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) → (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s 𝑈))
6643, 65mtod 198 . . . 4 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)))
67 noextendgt 27636 . . . . 5 ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ No → (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}))
6850, 67syl 17 . . . 4 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}))
69 noreson 27626 . . . . . 6 ((𝑈 No ∧ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ On) → (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) ∈ No )
7058, 62, 69syl2anc 584 . . . . 5 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) ∈ No )
71 2on 8408 . . . . . . . . 9 2o ∈ On
7271elexi 3461 . . . . . . . 8 2o ∈ V
7372prid2 4718 . . . . . . 7 2o ∈ {1o, 2o}
7473noextend 27632 . . . . . 6 ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ No → ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}) ∈ No )
7550, 74syl 17 . . . . 5 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}) ∈ No )
76 sltso 27642 . . . . . 6 <s Or No
77 sotr2 5564 . . . . . 6 (( <s Or No ∧ ((𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) ∈ No ∧ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ No ∧ ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}) ∈ No )) → ((¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) ∧ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩})) → (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) <s ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩})))
7876, 77mpan 690 . . . . 5 (((𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) ∈ No ∧ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∈ No ∧ ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}) ∈ No ) → ((¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) ∧ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩})) → (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) <s ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩})))
7970, 50, 75, 78syl3anc 1373 . . . 4 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ((¬ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) ∧ (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) <s ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩})) → (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) <s ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩})))
8066, 68, 79mp2and 699 . . 3 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)) <s ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}))
81 nosupbnd1.1 . . . . . . . 8 𝑆 = if(∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦, ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
82 iftrue 4483 . . . . . . . 8 (∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 → if(∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦, ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥)))) = ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}))
8381, 82eqtrid 2781 . . . . . . 7 (∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦𝑆 = ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}))
8483dmeqd 5852 . . . . . 6 (∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 → dom 𝑆 = dom ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}))
8572dmsnop 6172 . . . . . . . 8 dom {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩} = {dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)}
8685uneq2i 4115 . . . . . . 7 (dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ dom {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}) = (dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)})
87 dmun 5857 . . . . . . 7 dom ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}) = (dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ dom {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩})
88 df-suc 6321 . . . . . . 7 suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) = (dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)})
8986, 87, 883eqtr4i 2767 . . . . . 6 dom ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}) = suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
9084, 89eqtrdi 2785 . . . . 5 (∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 → dom 𝑆 = suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦))
9190adantr 480 . . . 4 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → dom 𝑆 = suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦))
9291reseq2d 5936 . . 3 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (𝑈 ↾ dom 𝑆) = (𝑈 ↾ suc dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)))
9383adantr 480 . . 3 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → 𝑆 = ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}))
9480, 92, 933brtr4d 5128 . 2 ((∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (𝑈 ↾ dom 𝑆) <s 𝑆)
95 simpl 482 . . 3 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → ¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
96 simpr1 1195 . . 3 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → 𝐴 No )
97 simpr2 1196 . . 3 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → 𝐴 ∈ V)
98 simpr3 1197 . . 3 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → 𝑈𝐴)
9981nosupbnd1lem6 27679 . . 3 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ 𝑈𝐴) → (𝑈 ↾ dom 𝑆) <s 𝑆)
10095, 96, 97, 98, 99syl121anc 1377 . 2 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴)) → (𝑈 ↾ dom 𝑆) <s 𝑆)
10194, 100pm2.61ian 811 1 ((𝐴 No 𝐴 ∈ V ∧ 𝑈𝐴) → (𝑈 ↾ dom 𝑆) <s 𝑆)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  w3a 1086   = wceq 1541  wcel 2113  {cab 2712  wral 3049  wrex 3058  ∃!wreu 3346  ∃*wrmo 3347  Vcvv 3438  cun 3897  wss 3899  ifcif 4477  {csn 4578  cop 4584   class class class wbr 5096  cmpt 5177   Or wor 5529  dom cdm 5622  cres 5624  Rel wrel 5627  Oncon0 6315  suc csuc 6317  cio 6444  Fun wfun 6484  cfv 6490  crio 7312  1oc1o 8388  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-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678
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-rmo 3348  df-reu 3349  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-int 4901  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-fo 6496  df-fv 6498  df-riota 7313  df-1o 8395  df-2o 8396  df-no 27608  df-slt 27609  df-bday 27610
This theorem is referenced by:  nosupbnd2  27682  noetasuplem3  27701
  Copyright terms: Public domain W3C validator