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

Theorem noinfbnd1 27697
Description: Bounding law from above for the surreal infimum. Analagous to proposition 4.2 of [Lipparini] p. 6. (Contributed by Scott Fenton, 9-Aug-2024.)
Hypothesis
Ref Expression
noinfbnd1.1 𝑇 = if(∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥, ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐵 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐵𝑢 <s 𝑣 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐵 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐵𝑢 <s 𝑣 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
Assertion
Ref Expression
noinfbnd1 ((𝐵 No 𝐵𝑉𝑈𝐵) → 𝑇 <s (𝑈 ↾ dom 𝑇))
Distinct variable groups:   𝐵,𝑔,𝑢,𝑣,𝑥,𝑦   𝑣,𝑈   𝑔,𝑉   𝑥,𝑈,𝑦   𝑥,𝑉
Allowed substitution hints:   𝑇(𝑥,𝑦,𝑣,𝑢,𝑔)   𝑈(𝑢,𝑔)   𝑉(𝑦,𝑣,𝑢)

Proof of Theorem noinfbnd1
StepHypRef Expression
1 simpr1 1195 . . . . . 6 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → 𝐵 No )
2 simpl 482 . . . . . . . 8 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
3 nominmo 27667 . . . . . . . . 9 (𝐵 No → ∃*𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
41, 3syl 17 . . . . . . . 8 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ∃*𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
5 reu5 3352 . . . . . . . 8 (∃!𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ↔ (∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ ∃*𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
62, 4, 5sylanbrc 583 . . . . . . 7 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ∃!𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
7 riotacl 7332 . . . . . . 7 (∃!𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 → (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ 𝐵)
86, 7syl 17 . . . . . 6 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ 𝐵)
91, 8sseldd 3934 . . . . 5 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ No )
10 noextendlt 27637 . . . . 5 ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ No → ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
119, 10syl 17 . . . 4 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
12 simpr3 1197 . . . . . 6 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → 𝑈𝐵)
13 nfv 1915 . . . . . . . . 9 𝑥(𝐵 No 𝐵𝑉𝑈𝐵)
14 nfcv 2898 . . . . . . . . . 10 𝑥𝐵
15 nfcv 2898 . . . . . . . . . . . 12 𝑥𝑦
16 nfcv 2898 . . . . . . . . . . . 12 𝑥 <s
17 nfriota1 7322 . . . . . . . . . . . 12 𝑥(𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
1815, 16, 17nfbr 5145 . . . . . . . . . . 11 𝑥 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
1918nfn 1858 . . . . . . . . . 10 𝑥 ¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
2014, 19nfralw 3283 . . . . . . . . 9 𝑥𝑦𝐵 ¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
2113, 20nfim 1897 . . . . . . . 8 𝑥((𝐵 No 𝐵𝑉𝑈𝐵) → ∀𝑦𝐵 ¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
22 simpl 482 . . . . . . . . . . 11 (((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → (𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥))
23 rspe 3226 . . . . . . . . . . . . . 14 ((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) → ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
2423adantr 480 . . . . . . . . . . . . 13 (((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
25 simpr1 1195 . . . . . . . . . . . . . 14 (((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → 𝐵 No )
2625, 3syl 17 . . . . . . . . . . . . 13 (((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ∃*𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
2724, 26, 5sylanbrc 583 . . . . . . . . . . . 12 (((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ∃!𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
28 riota1 7336 . . . . . . . . . . . 12 (∃!𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 → ((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) ↔ (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) = 𝑥))
2927, 28syl 17 . . . . . . . . . . 11 (((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) ↔ (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) = 𝑥))
3022, 29mpbid 232 . . . . . . . . . 10 (((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) = 𝑥)
31 simplr 768 . . . . . . . . . 10 (((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ∀𝑦𝐵 ¬ 𝑦 <s 𝑥)
32 nfra1 3260 . . . . . . . . . . . . . 14 𝑦𝑦𝐵 ¬ 𝑦 <s 𝑥
33 nfcv 2898 . . . . . . . . . . . . . 14 𝑦𝐵
3432, 33nfriota 7327 . . . . . . . . . . . . 13 𝑦(𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
3534nfeq1 2914 . . . . . . . . . . . 12 𝑦(𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) = 𝑥
36 breq2 5102 . . . . . . . . . . . . 13 ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) = 𝑥 → (𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ↔ 𝑦 <s 𝑥))
3736notbid 318 . . . . . . . . . . . 12 ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) = 𝑥 → (¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ↔ ¬ 𝑦 <s 𝑥))
3835, 37ralbid 3249 . . . . . . . . . . 11 ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) = 𝑥 → (∀𝑦𝐵 ¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ↔ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥))
3938biimprd 248 . . . . . . . . . 10 ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) = 𝑥 → (∀𝑦𝐵 ¬ 𝑦 <s 𝑥 → ∀𝑦𝐵 ¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
4030, 31, 39sylc 65 . . . . . . . . 9 (((𝑥𝐵 ∧ ∀𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ∀𝑦𝐵 ¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
4140exp31 419 . . . . . . . 8 (𝑥𝐵 → (∀𝑦𝐵 ¬ 𝑦 <s 𝑥 → ((𝐵 No 𝐵𝑉𝑈𝐵) → ∀𝑦𝐵 ¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))))
4221, 41rexlimi 3236 . . . . . . 7 (∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 → ((𝐵 No 𝐵𝑉𝑈𝐵) → ∀𝑦𝐵 ¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
4342imp 406 . . . . . 6 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ∀𝑦𝐵 ¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
44 nfcv 2898 . . . . . . . . 9 𝑦𝑈
45 nfcv 2898 . . . . . . . . 9 𝑦 <s
4644, 45, 34nfbr 5145 . . . . . . . 8 𝑦 𝑈 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
4746nfn 1858 . . . . . . 7 𝑦 ¬ 𝑈 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
48 breq1 5101 . . . . . . . 8 (𝑦 = 𝑈 → (𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ↔ 𝑈 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
4948notbid 318 . . . . . . 7 (𝑦 = 𝑈 → (¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ↔ ¬ 𝑈 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
5047, 49rspc 3564 . . . . . 6 (𝑈𝐵 → (∀𝑦𝐵 ¬ 𝑦 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) → ¬ 𝑈 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
5112, 43, 50sylc 65 . . . . 5 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ¬ 𝑈 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
52 nofun 27617 . . . . . . . . 9 ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ No → Fun (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
53 funrel 6509 . . . . . . . . 9 (Fun (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) → Rel (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
549, 52, 533syl 18 . . . . . . . 8 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → Rel (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
55 sssucid 6399 . . . . . . . 8 dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ⊆ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
56 relssres 5981 . . . . . . . 8 ((Rel (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ⊆ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) → ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) = (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
5754, 55, 56sylancl 586 . . . . . . 7 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) = (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
5857breq2d 5110 . . . . . 6 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ((𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) <s ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) ↔ (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
591, 12sseldd 3934 . . . . . . 7 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → 𝑈 No )
60 nodmon 27618 . . . . . . . . 9 ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ No → dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ On)
619, 60syl 17 . . . . . . . 8 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ On)
62 onsucb 7759 . . . . . . . 8 (dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ On ↔ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ On)
6361, 62sylib 218 . . . . . . 7 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ On)
64 ltsres 27630 . . . . . . 7 ((𝑈 No ∧ (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ No ∧ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ On) → ((𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) <s ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) → 𝑈 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
6559, 9, 63, 64syl3anc 1373 . . . . . 6 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ((𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) <s ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) → 𝑈 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
6658, 65sylbird 260 . . . . 5 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ((𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) → 𝑈 <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
6751, 66mtod 198 . . . 4 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ¬ (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
68 1oex 8407 . . . . . . . 8 1o ∈ V
6968prid1 4719 . . . . . . 7 1o ∈ {1o, 2o}
7069noextend 27634 . . . . . 6 ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ No → ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) ∈ No )
719, 70syl 17 . . . . 5 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) ∈ No )
72 noreson 27628 . . . . . 6 ((𝑈 No ∧ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ On) → (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) ∈ No )
7359, 63, 72syl2anc 584 . . . . 5 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) ∈ No )
74 ltsso 27644 . . . . . 6 <s Or No
75 sotr3 5573 . . . . . 6 (( <s Or No ∧ (((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) ∈ No ∧ (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ No ∧ (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) ∈ No )) → ((((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ ¬ (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) → ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) <s (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))))
7674, 75mpan 690 . . . . 5 ((((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) ∈ No ∧ (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∈ No ∧ (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) ∈ No ) → ((((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ ¬ (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) → ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) <s (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))))
7771, 9, 73, 76syl3anc 1373 . . . 4 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ((((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∧ ¬ (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) <s (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)) → ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) <s (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))))
7811, 67, 77mp2and 699 . . 3 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) <s (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
79 noinfbnd1.1 . . . . 5 𝑇 = if(∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥, ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐵 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐵𝑢 <s 𝑣 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐵 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐵𝑢 <s 𝑣 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
80 iftrue 4485 . . . . 5 (∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 → if(∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥, ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐵 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐵𝑢 <s 𝑣 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐵 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐵𝑢 <s 𝑣 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥)))) = ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}))
8179, 80eqtrid 2783 . . . 4 (∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥𝑇 = ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}))
8281adantr 480 . . 3 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → 𝑇 = ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}))
8381dmeqd 5854 . . . . . 6 (∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 → dom 𝑇 = dom ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}))
8468dmsnop 6174 . . . . . . . 8 dom {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩} = {dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)}
8584uneq2i 4117 . . . . . . 7 (dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ dom {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) = (dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)})
86 dmun 5859 . . . . . . 7 dom ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) = (dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ dom {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩})
87 df-suc 6323 . . . . . . 7 suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) = (dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)})
8885, 86, 873eqtr4i 2769 . . . . . 6 dom ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}) = suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
8983, 88eqtrdi 2787 . . . . 5 (∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 → dom 𝑇 = suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥))
9089reseq2d 5938 . . . 4 (∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 → (𝑈 ↾ dom 𝑇) = (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
9190adantr 480 . . 3 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → (𝑈 ↾ dom 𝑇) = (𝑈 ↾ suc dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)))
9278, 82, 913brtr4d 5130 . 2 ((∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → 𝑇 <s (𝑈 ↾ dom 𝑇))
93 simpl 482 . . 3 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → ¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
94 simpr1 1195 . . 3 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → 𝐵 No )
95 simpr2 1196 . . 3 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → 𝐵𝑉)
96 simpr3 1197 . . 3 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → 𝑈𝐵)
9779noinfbnd1lem6 27696 . . 3 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → 𝑇 <s (𝑈 ↾ dom 𝑇))
9893, 94, 95, 96, 97syl121anc 1377 . 2 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉𝑈𝐵)) → 𝑇 <s (𝑈 ↾ dom 𝑇))
9992, 98pm2.61ian 811 1 ((𝐵 No 𝐵𝑉𝑈𝐵) → 𝑇 <s (𝑈 ↾ dom 𝑇))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  w3a 1086   = wceq 1541  wcel 2113  {cab 2714  wral 3051  wrex 3060  ∃!wreu 3348  ∃*wrmo 3349  cun 3899  wss 3901  ifcif 4479  {csn 4580  cop 4586   class class class wbr 5098  cmpt 5179   Or wor 5531  dom cdm 5624  cres 5626  Rel wrel 5629  Oncon0 6317  suc csuc 6319  cio 6446  Fun wfun 6486  cfv 6492  crio 7314  1oc1o 8390  2oc2o 8391   No csur 27607   <s clts 27608
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 2184  ax-ext 2708  ax-rep 5224  ax-sep 5241  ax-nul 5251  ax-pow 5310  ax-pr 5377  ax-un 7680
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 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3061  df-rmo 3350  df-reu 3351  df-rab 3400  df-v 3442  df-sbc 3741  df-csb 3850  df-dif 3904  df-un 3906  df-in 3908  df-ss 3918  df-pss 3921  df-nul 4286  df-if 4480  df-pw 4556  df-sn 4581  df-pr 4583  df-tp 4585  df-op 4587  df-uni 4864  df-int 4903  df-br 5099  df-opab 5161  df-mpt 5180  df-tr 5206  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-ord 6320  df-on 6321  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-fo 6498  df-fv 6500  df-riota 7315  df-1o 8397  df-2o 8398  df-no 27610  df-lts 27611  df-bday 27612
This theorem is referenced by:  noinfbnd2  27699  noetainflem3  27707
  Copyright terms: Public domain W3C validator