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

Theorem supsrlem 10527
Description: Lemma for supremum theorem. (Contributed by NM, 21-May-1996.) (Revised by Mario Carneiro, 15-Jun-2013.) (New usage is discouraged.)
Hypotheses
Ref Expression
supsrlem.1 𝐵 = {𝑤 ∣ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴}
supsrlem.2 𝐶R
Assertion
Ref Expression
supsrlem ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → ∃𝑥R (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧)))
Distinct variable groups:   𝑥,𝑦,𝑧,𝑤,𝐴   𝑥,𝐵,𝑦,𝑧,𝑤   𝑥,𝐶,𝑦,𝑧,𝑤

Proof of Theorem supsrlem
Dummy variables 𝑣 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 supsrlem.2 . . . . . . 7 𝐶R
2 0idsr 10513 . . . . . . 7 (𝐶R → (𝐶 +R 0R) = 𝐶)
31, 2mp1i 13 . . . . . 6 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → (𝐶 +R 0R) = 𝐶)
4 simpl 486 . . . . . 6 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → 𝐶𝐴)
53, 4eqeltrd 2916 . . . . 5 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → (𝐶 +R 0R) ∈ 𝐴)
6 1pr 10431 . . . . . . 7 1PP
76elexi 3499 . . . . . 6 1P ∈ V
8 opeq1 4788 . . . . . . . . . 10 (𝑤 = 1P → ⟨𝑤, 1P⟩ = ⟨1P, 1P⟩)
98eceq1d 8320 . . . . . . . . 9 (𝑤 = 1P → [⟨𝑤, 1P⟩] ~R = [⟨1P, 1P⟩] ~R )
10 df-0r 10476 . . . . . . . . 9 0R = [⟨1P, 1P⟩] ~R
119, 10syl6eqr 2877 . . . . . . . 8 (𝑤 = 1P → [⟨𝑤, 1P⟩] ~R = 0R)
1211oveq2d 7162 . . . . . . 7 (𝑤 = 1P → (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = (𝐶 +R 0R))
1312eleq1d 2900 . . . . . 6 (𝑤 = 1P → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴 ↔ (𝐶 +R 0R) ∈ 𝐴))
14 supsrlem.1 . . . . . 6 𝐵 = {𝑤 ∣ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴}
157, 13, 14elab2 3656 . . . . 5 (1P𝐵 ↔ (𝐶 +R 0R) ∈ 𝐴)
165, 15sylibr 237 . . . 4 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → 1P𝐵)
1716ne0d 4284 . . 3 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → 𝐵 ≠ ∅)
18 breq1 5056 . . . . . . . 8 (𝑦 = 𝐶 → (𝑦 <R 𝑥𝐶 <R 𝑥))
1918rspccv 3606 . . . . . . 7 (∀𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴𝐶 <R 𝑥))
20 0lt1sr 10511 . . . . . . . . . . . . 13 0R <R 1R
21 m1r 10498 . . . . . . . . . . . . . 14 -1RR
22 ltasr 10516 . . . . . . . . . . . . . 14 (-1RR → (0R <R 1R ↔ (-1R +R 0R) <R (-1R +R 1R)))
2321, 22ax-mp 5 . . . . . . . . . . . . 13 (0R <R 1R ↔ (-1R +R 0R) <R (-1R +R 1R))
2420, 23mpbi 233 . . . . . . . . . . . 12 (-1R +R 0R) <R (-1R +R 1R)
25 0idsr 10513 . . . . . . . . . . . . 13 (-1RR → (-1R +R 0R) = -1R)
2621, 25ax-mp 5 . . . . . . . . . . . 12 (-1R +R 0R) = -1R
27 m1p1sr 10508 . . . . . . . . . . . 12 (-1R +R 1R) = 0R
2824, 26, 273brtr3i 5082 . . . . . . . . . . 11 -1R <R 0R
29 ltasr 10516 . . . . . . . . . . . 12 (𝐶R → (-1R <R 0R ↔ (𝐶 +R -1R) <R (𝐶 +R 0R)))
301, 29ax-mp 5 . . . . . . . . . . 11 (-1R <R 0R ↔ (𝐶 +R -1R) <R (𝐶 +R 0R))
3128, 30mpbi 233 . . . . . . . . . 10 (𝐶 +R -1R) <R (𝐶 +R 0R)
321, 2ax-mp 5 . . . . . . . . . 10 (𝐶 +R 0R) = 𝐶
3331, 32breqtri 5078 . . . . . . . . 9 (𝐶 +R -1R) <R 𝐶
34 ltsosr 10510 . . . . . . . . . 10 <R Or R
35 ltrelsr 10484 . . . . . . . . . 10 <R ⊆ (R × R)
3634, 35sotri 5975 . . . . . . . . 9 (((𝐶 +R -1R) <R 𝐶𝐶 <R 𝑥) → (𝐶 +R -1R) <R 𝑥)
3733, 36mpan 689 . . . . . . . 8 (𝐶 <R 𝑥 → (𝐶 +R -1R) <R 𝑥)
381map2psrpr 10526 . . . . . . . 8 ((𝐶 +R -1R) <R 𝑥 ↔ ∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥)
3937, 38sylib 221 . . . . . . 7 (𝐶 <R 𝑥 → ∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥)
4019, 39syl6 35 . . . . . 6 (∀𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴 → ∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥))
41 breq2 5057 . . . . . . . . . 10 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑦 <R 𝑥))
4241ralbidv 3192 . . . . . . . . 9 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ ∀𝑦𝐴 𝑦 <R 𝑥))
4314abeq2i 2951 . . . . . . . . . . 11 (𝑤𝐵 ↔ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴)
44 breq1 5056 . . . . . . . . . . . . 13 (𝑦 = (𝐶 +R [⟨𝑤, 1P⟩] ~R ) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
4544rspccv 3606 . . . . . . . . . . . 12 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴 → (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
461ltpsrpr 10525 . . . . . . . . . . . 12 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑤<P 𝑣)
4745, 46syl6ib 254 . . . . . . . . . . 11 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴𝑤<P 𝑣))
4843, 47syl5bi 245 . . . . . . . . . 10 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (𝑤𝐵𝑤<P 𝑣))
4948ralrimiv 3176 . . . . . . . . 9 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∀𝑤𝐵 𝑤<P 𝑣)
5042, 49syl6bir 257 . . . . . . . 8 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → (∀𝑦𝐴 𝑦 <R 𝑥 → ∀𝑤𝐵 𝑤<P 𝑣))
5150com12 32 . . . . . . 7 (∀𝑦𝐴 𝑦 <R 𝑥 → ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → ∀𝑤𝐵 𝑤<P 𝑣))
5251reximdv 3266 . . . . . 6 (∀𝑦𝐴 𝑦 <R 𝑥 → (∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → ∃𝑣P𝑤𝐵 𝑤<P 𝑣))
5340, 52syld 47 . . . . 5 (∀𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴 → ∃𝑣P𝑤𝐵 𝑤<P 𝑣))
5453rexlimivw 3275 . . . 4 (∃𝑥R𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴 → ∃𝑣P𝑤𝐵 𝑤<P 𝑣))
5554impcom 411 . . 3 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → ∃𝑣P𝑤𝐵 𝑤<P 𝑣)
56 supexpr 10470 . . 3 ((𝐵 ≠ ∅ ∧ ∃𝑣P𝑤𝐵 𝑤<P 𝑣) → ∃𝑣P (∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)))
5717, 55, 56syl2anc 587 . 2 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → ∃𝑣P (∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)))
581mappsrpr 10524 . . . . . . 7 ((𝐶 +R -1R) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑣P)
5935brel 5605 . . . . . . 7 ((𝐶 +R -1R) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝐶 +R -1R) ∈ R ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R))
6058, 59sylbir 238 . . . . . 6 (𝑣P → ((𝐶 +R -1R) ∈ R ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R))
6160simprd 499 . . . . 5 (𝑣P → (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R)
6261adantl 485 . . . 4 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R)
6334, 35sotri 5975 . . . . . . . . . . . . . . 15 (((𝐶 +R -1R) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → (𝐶 +R -1R) <R 𝑦)
6458, 63sylanbr 585 . . . . . . . . . . . . . 14 ((𝑣P ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → (𝐶 +R -1R) <R 𝑦)
651map2psrpr 10526 . . . . . . . . . . . . . 14 ((𝐶 +R -1R) <R 𝑦 ↔ ∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦)
6664, 65sylib 221 . . . . . . . . . . . . 13 ((𝑣P ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → ∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦)
67 rexex 3235 . . . . . . . . . . . . 13 (∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦)
68 df-ral 3138 . . . . . . . . . . . . . . 15 (∀𝑤𝐵 ¬ 𝑣<P 𝑤 ↔ ∀𝑤(𝑤𝐵 → ¬ 𝑣<P 𝑤))
69 19.29 1875 . . . . . . . . . . . . . . . 16 ((∀𝑤(𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → ∃𝑤((𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦))
70 eleq1 2903 . . . . . . . . . . . . . . . . . . . 20 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴𝑦𝐴))
7143, 70syl5bb 286 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑤𝐵𝑦𝐴))
721ltpsrpr 10525 . . . . . . . . . . . . . . . . . . . . 21 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ↔ 𝑣<P 𝑤)
73 breq2 5057 . . . . . . . . . . . . . . . . . . . . 21 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ↔ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7472, 73bitr3id 288 . . . . . . . . . . . . . . . . . . . 20 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑣<P 𝑤 ↔ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7574notbid 321 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (¬ 𝑣<P 𝑤 ↔ ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7671, 75imbi12d 348 . . . . . . . . . . . . . . . . . 18 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝑤𝐵 → ¬ 𝑣<P 𝑤) ↔ (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)))
7776biimpac 482 . . . . . . . . . . . . . . . . 17 (((𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7877exlimiv 1932 . . . . . . . . . . . . . . . 16 (∃𝑤((𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7969, 78syl 17 . . . . . . . . . . . . . . 15 ((∀𝑤(𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8068, 79sylanb 584 . . . . . . . . . . . . . 14 ((∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8180expcom 417 . . . . . . . . . . . . 13 (∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (∀𝑤𝐵 ¬ 𝑣<P 𝑤 → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)))
8266, 67, 813syl 18 . . . . . . . . . . . 12 ((𝑣P ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → (∀𝑤𝐵 ¬ 𝑣<P 𝑤 → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)))
8382impd 414 . . . . . . . . . . 11 ((𝑣P ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → ((∀𝑤𝐵 ¬ 𝑣<P 𝑤𝑦𝐴) → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8483impancom 455 . . . . . . . . . 10 ((𝑣P ∧ (∀𝑤𝐵 ¬ 𝑣<P 𝑤𝑦𝐴)) → ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8584pm2.01d 193 . . . . . . . . 9 ((𝑣P ∧ (∀𝑤𝐵 ¬ 𝑣<P 𝑤𝑦𝐴)) → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)
8685expr 460 . . . . . . . 8 ((𝑣P ∧ ∀𝑤𝐵 ¬ 𝑣<P 𝑤) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8786ralrimiv 3176 . . . . . . 7 ((𝑣P ∧ ∀𝑤𝐵 ¬ 𝑣<P 𝑤) → ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)
8887ex 416 . . . . . 6 (𝑣P → (∀𝑤𝐵 ¬ 𝑣<P 𝑤 → ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8988adantl 485 . . . . 5 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → (∀𝑤𝐵 ¬ 𝑣<P 𝑤 → ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
90 r19.29 3249 . . . . . . . . . . . . . 14 ((∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ ∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → ∃𝑤P ((𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦))
91 breq1 5056 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
9246, 91bitr3id 288 . . . . . . . . . . . . . . . . . 18 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑤<P 𝑣𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
9392biimprd 251 . . . . . . . . . . . . . . . . 17 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → 𝑤<P 𝑣))
94 vex 3483 . . . . . . . . . . . . . . . . . . . . 21 𝑢 ∈ V
95 opeq1 4788 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = 𝑢 → ⟨𝑤, 1P⟩ = ⟨𝑢, 1P⟩)
9695eceq1d 8320 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑤 = 𝑢 → [⟨𝑤, 1P⟩] ~R = [⟨𝑢, 1P⟩] ~R )
9796oveq2d 7162 . . . . . . . . . . . . . . . . . . . . . 22 (𝑤 = 𝑢 → (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = (𝐶 +R [⟨𝑢, 1P⟩] ~R ))
9897eleq1d 2900 . . . . . . . . . . . . . . . . . . . . 21 (𝑤 = 𝑢 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴 ↔ (𝐶 +R [⟨𝑢, 1P⟩] ~R ) ∈ 𝐴))
9994, 98, 14elab2 3656 . . . . . . . . . . . . . . . . . . . 20 (𝑢𝐵 ↔ (𝐶 +R [⟨𝑢, 1P⟩] ~R ) ∈ 𝐴)
100 breq2 5057 . . . . . . . . . . . . . . . . . . . . . 22 (𝑧 = (𝐶 +R [⟨𝑢, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧 ↔ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑢, 1P⟩] ~R )))
1011ltpsrpr 10525 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑢, 1P⟩] ~R ) ↔ 𝑤<P 𝑢)
102100, 101syl6bb 290 . . . . . . . . . . . . . . . . . . . . 21 (𝑧 = (𝐶 +R [⟨𝑢, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧𝑤<P 𝑢))
103102rspcev 3609 . . . . . . . . . . . . . . . . . . . 20 (((𝐶 +R [⟨𝑢, 1P⟩] ~R ) ∈ 𝐴𝑤<P 𝑢) → ∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧)
10499, 103sylanb 584 . . . . . . . . . . . . . . . . . . 19 ((𝑢𝐵𝑤<P 𝑢) → ∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧)
105104rexlimiva 3274 . . . . . . . . . . . . . . . . . 18 (∃𝑢𝐵 𝑤<P 𝑢 → ∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧)
106 breq1 5056 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧𝑦 <R 𝑧))
107106rexbidv 3290 . . . . . . . . . . . . . . . . . 18 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧 ↔ ∃𝑧𝐴 𝑦 <R 𝑧))
108105, 107syl5ib 247 . . . . . . . . . . . . . . . . 17 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (∃𝑢𝐵 𝑤<P 𝑢 → ∃𝑧𝐴 𝑦 <R 𝑧))
10993, 108imim12d 81 . . . . . . . . . . . . . . . 16 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
110109impcom 411 . . . . . . . . . . . . . . 15 (((𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
111110rexlimivw 3275 . . . . . . . . . . . . . 14 (∃𝑤P ((𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
11290, 111syl 17 . . . . . . . . . . . . 13 ((∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ ∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
11365, 112sylan2b 596 . . . . . . . . . . . 12 ((∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ (𝐶 +R -1R) <R 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
114113ex 416 . . . . . . . . . . 11 (∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → ((𝐶 +R -1R) <R 𝑦 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
115114adantl 485 . . . . . . . . . 10 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ((𝐶 +R -1R) <R 𝑦 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
116115a1dd 50 . . . . . . . . 9 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ((𝐶 +R -1R) <R 𝑦 → (𝑦R → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
11734, 35sotri2 5977 . . . . . . . . . . . . 13 ((𝑦R ∧ ¬ (𝐶 +R -1R) <R 𝑦 ∧ (𝐶 +R -1R) <R 𝐶) → 𝑦 <R 𝐶)
11833, 117mp3an3 1447 . . . . . . . . . . . 12 ((𝑦R ∧ ¬ (𝐶 +R -1R) <R 𝑦) → 𝑦 <R 𝐶)
119 breq2 5057 . . . . . . . . . . . . . . 15 (𝑧 = 𝐶 → (𝑦 <R 𝑧𝑦 <R 𝐶))
120119rspcev 3609 . . . . . . . . . . . . . 14 ((𝐶𝐴𝑦 <R 𝐶) → ∃𝑧𝐴 𝑦 <R 𝑧)
121120ex 416 . . . . . . . . . . . . 13 (𝐶𝐴 → (𝑦 <R 𝐶 → ∃𝑧𝐴 𝑦 <R 𝑧))
122121a1dd 50 . . . . . . . . . . . 12 (𝐶𝐴 → (𝑦 <R 𝐶 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
123118, 122syl5 34 . . . . . . . . . . 11 (𝐶𝐴 → ((𝑦R ∧ ¬ (𝐶 +R -1R) <R 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
124123expcomd 420 . . . . . . . . . 10 (𝐶𝐴 → (¬ (𝐶 +R -1R) <R 𝑦 → (𝑦R → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
125124ad2antrr 725 . . . . . . . . 9 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → (¬ (𝐶 +R -1R) <R 𝑦 → (𝑦R → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
126116, 125pm2.61d 182 . . . . . . . 8 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → (𝑦R → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
127126ralrimiv 3176 . . . . . . 7 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
128127ex 416 . . . . . 6 ((𝐶𝐴𝑣P) → (∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
129128adantlr 714 . . . . 5 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → (∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
13089, 129anim12d 611 . . . 4 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → ((∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → (∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 ∧ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
131 breq1 5056 . . . . . . . 8 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (𝑥 <R 𝑦 ↔ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
132131notbid 321 . . . . . . 7 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (¬ 𝑥 <R 𝑦 ↔ ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
133132ralbidv 3192 . . . . . 6 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ↔ ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
134 breq2 5057 . . . . . . . 8 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (𝑦 <R 𝑥𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
135134imbi1d 345 . . . . . . 7 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧) ↔ (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
136135ralbidv 3192 . . . . . 6 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧) ↔ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
137133, 136anbi12d 633 . . . . 5 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧)) ↔ (∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 ∧ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
138137rspcev 3609 . . . 4 (((𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R ∧ (∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 ∧ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))) → ∃𝑥R (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧)))
13962, 130, 138syl6an 683 . . 3 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → ((∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ∃𝑥R (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧))))
140139rexlimdva 3277 . 2 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → (∃𝑣P (∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ∃𝑥R (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧))))
14157, 140mpd 15 1 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → ∃𝑥R (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  wal 1536   = wceq 1538  wex 1781  wcel 2115  {cab 2802  wne 3014  wral 3133  wrex 3134  c0 4276  cop 4556   class class class wbr 5053  (class class class)co 7146  [cec 8279  Pcnp 10275  1Pc1p 10276  <P cltp 10279   ~R cer 10280  Rcnr 10281  0Rc0r 10282  1Rc1r 10283  -1Rcm1r 10284   +R cplr 10285   <R cltr 10287
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1971  ax-7 2016  ax-8 2117  ax-9 2125  ax-10 2146  ax-11 2162  ax-12 2179  ax-ext 2796  ax-sep 5190  ax-nul 5197  ax-pow 5254  ax-pr 5318  ax-un 7452  ax-inf2 9097
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2071  df-mo 2624  df-eu 2655  df-clab 2803  df-cleq 2817  df-clel 2896  df-nfc 2964  df-ne 3015  df-ral 3138  df-rex 3139  df-reu 3140  df-rmo 3141  df-rab 3142  df-v 3482  df-sbc 3759  df-csb 3867  df-dif 3922  df-un 3924  df-in 3926  df-ss 3936  df-pss 3938  df-nul 4277  df-if 4451  df-pw 4524  df-sn 4551  df-pr 4553  df-tp 4555  df-op 4557  df-uni 4826  df-int 4864  df-iun 4908  df-br 5054  df-opab 5116  df-mpt 5134  df-tr 5160  df-id 5448  df-eprel 5453  df-po 5462  df-so 5463  df-fr 5502  df-we 5504  df-xp 5549  df-rel 5550  df-cnv 5551  df-co 5552  df-dm 5553  df-rn 5554  df-res 5555  df-ima 5556  df-pred 6136  df-ord 6182  df-on 6183  df-lim 6184  df-suc 6185  df-iota 6303  df-fun 6346  df-fn 6347  df-f 6348  df-f1 6349  df-fo 6350  df-f1o 6351  df-fv 6352  df-ov 7149  df-oprab 7150  df-mpo 7151  df-om 7572  df-1st 7681  df-2nd 7682  df-wrecs 7939  df-recs 8000  df-rdg 8038  df-1o 8094  df-oadd 8098  df-omul 8099  df-er 8281  df-ec 8283  df-qs 8287  df-ni 10288  df-pli 10289  df-mi 10290  df-lti 10291  df-plpq 10324  df-mpq 10325  df-ltpq 10326  df-enq 10327  df-nq 10328  df-erq 10329  df-plq 10330  df-mq 10331  df-1nq 10332  df-rq 10333  df-ltnq 10334  df-np 10397  df-1p 10398  df-plp 10399  df-mp 10400  df-ltp 10401  df-enr 10471  df-nr 10472  df-plr 10473  df-mr 10474  df-ltr 10475  df-0r 10476  df-1r 10477  df-m1r 10478
This theorem is referenced by:  supsr  10528
  Copyright terms: Public domain W3C validator