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

Theorem supsrlem 11152
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 11138 . . . . . . 7 (𝐶R → (𝐶 +R 0R) = 𝐶)
31, 2mp1i 13 . . . . . 6 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → (𝐶 +R 0R) = 𝐶)
4 simpl 482 . . . . . 6 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → 𝐶𝐴)
53, 4eqeltrd 2840 . . . . 5 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → (𝐶 +R 0R) ∈ 𝐴)
6 1pr 11056 . . . . . . 7 1PP
76elexi 3502 . . . . . 6 1P ∈ V
8 opeq1 4872 . . . . . . . . . 10 (𝑤 = 1P → ⟨𝑤, 1P⟩ = ⟨1P, 1P⟩)
98eceq1d 8786 . . . . . . . . 9 (𝑤 = 1P → [⟨𝑤, 1P⟩] ~R = [⟨1P, 1P⟩] ~R )
10 df-0r 11101 . . . . . . . . 9 0R = [⟨1P, 1P⟩] ~R
119, 10eqtr4di 2794 . . . . . . . 8 (𝑤 = 1P → [⟨𝑤, 1P⟩] ~R = 0R)
1211oveq2d 7448 . . . . . . 7 (𝑤 = 1P → (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = (𝐶 +R 0R))
1312eleq1d 2825 . . . . . 6 (𝑤 = 1P → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴 ↔ (𝐶 +R 0R) ∈ 𝐴))
14 supsrlem.1 . . . . . 6 𝐵 = {𝑤 ∣ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴}
157, 13, 14elab2 3681 . . . . 5 (1P𝐵 ↔ (𝐶 +R 0R) ∈ 𝐴)
165, 15sylibr 234 . . . 4 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → 1P𝐵)
1716ne0d 4341 . . 3 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → 𝐵 ≠ ∅)
18 breq1 5145 . . . . . . . 8 (𝑦 = 𝐶 → (𝑦 <R 𝑥𝐶 <R 𝑥))
1918rspccv 3618 . . . . . . 7 (∀𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴𝐶 <R 𝑥))
20 0lt1sr 11136 . . . . . . . . . . . . 13 0R <R 1R
21 m1r 11123 . . . . . . . . . . . . . 14 -1RR
22 ltasr 11141 . . . . . . . . . . . . . 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 230 . . . . . . . . . . . 12 (-1R +R 0R) <R (-1R +R 1R)
25 0idsr 11138 . . . . . . . . . . . . 13 (-1RR → (-1R +R 0R) = -1R)
2621, 25ax-mp 5 . . . . . . . . . . . 12 (-1R +R 0R) = -1R
27 m1p1sr 11133 . . . . . . . . . . . 12 (-1R +R 1R) = 0R
2824, 26, 273brtr3i 5171 . . . . . . . . . . 11 -1R <R 0R
29 ltasr 11141 . . . . . . . . . . . 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 230 . . . . . . . . . 10 (𝐶 +R -1R) <R (𝐶 +R 0R)
321, 2ax-mp 5 . . . . . . . . . 10 (𝐶 +R 0R) = 𝐶
3331, 32breqtri 5167 . . . . . . . . 9 (𝐶 +R -1R) <R 𝐶
34 ltsosr 11135 . . . . . . . . . 10 <R Or R
35 ltrelsr 11109 . . . . . . . . . 10 <R ⊆ (R × R)
3634, 35sotri 6146 . . . . . . . . 9 (((𝐶 +R -1R) <R 𝐶𝐶 <R 𝑥) → (𝐶 +R -1R) <R 𝑥)
3733, 36mpan 690 . . . . . . . 8 (𝐶 <R 𝑥 → (𝐶 +R -1R) <R 𝑥)
381map2psrpr 11151 . . . . . . . 8 ((𝐶 +R -1R) <R 𝑥 ↔ ∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥)
3937, 38sylib 218 . . . . . . 7 (𝐶 <R 𝑥 → ∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥)
4019, 39syl6 35 . . . . . 6 (∀𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴 → ∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥))
41 breq2 5146 . . . . . . . . . 10 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑦 <R 𝑥))
4241ralbidv 3177 . . . . . . . . 9 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ ∀𝑦𝐴 𝑦 <R 𝑥))
4314eqabri 2884 . . . . . . . . . . 11 (𝑤𝐵 ↔ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴)
44 breq1 5145 . . . . . . . . . . . . 13 (𝑦 = (𝐶 +R [⟨𝑤, 1P⟩] ~R ) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
4544rspccv 3618 . . . . . . . . . . . 12 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴 → (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
461ltpsrpr 11150 . . . . . . . . . . . 12 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑤<P 𝑣)
4745, 46imbitrdi 251 . . . . . . . . . . 11 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴𝑤<P 𝑣))
4843, 47biimtrid 242 . . . . . . . . . 10 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (𝑤𝐵𝑤<P 𝑣))
4948ralrimiv 3144 . . . . . . . . 9 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∀𝑤𝐵 𝑤<P 𝑣)
5042, 49biimtrrdi 254 . . . . . . . 8 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → (∀𝑦𝐴 𝑦 <R 𝑥 → ∀𝑤𝐵 𝑤<P 𝑣))
5150com12 32 . . . . . . 7 (∀𝑦𝐴 𝑦 <R 𝑥 → ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → ∀𝑤𝐵 𝑤<P 𝑣))
5251reximdv 3169 . . . . . 6 (∀𝑦𝐴 𝑦 <R 𝑥 → (∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → ∃𝑣P𝑤𝐵 𝑤<P 𝑣))
5340, 52syld 47 . . . . 5 (∀𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴 → ∃𝑣P𝑤𝐵 𝑤<P 𝑣))
5453rexlimivw 3150 . . . 4 (∃𝑥R𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴 → ∃𝑣P𝑤𝐵 𝑤<P 𝑣))
5554impcom 407 . . 3 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → ∃𝑣P𝑤𝐵 𝑤<P 𝑣)
56 supexpr 11095 . . 3 ((𝐵 ≠ ∅ ∧ ∃𝑣P𝑤𝐵 𝑤<P 𝑣) → ∃𝑣P (∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)))
5717, 55, 56syl2anc 584 . 2 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → ∃𝑣P (∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)))
581mappsrpr 11149 . . . . . . 7 ((𝐶 +R -1R) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑣P)
5935brel 5749 . . . . . . 7 ((𝐶 +R -1R) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝐶 +R -1R) ∈ R ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R))
6058, 59sylbir 235 . . . . . 6 (𝑣P → ((𝐶 +R -1R) ∈ R ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R))
6160simprd 495 . . . . 5 (𝑣P → (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R)
6261adantl 481 . . . 4 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R)
6334, 35sotri 6146 . . . . . . . . . . . . . . 15 (((𝐶 +R -1R) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → (𝐶 +R -1R) <R 𝑦)
6458, 63sylanbr 582 . . . . . . . . . . . . . 14 ((𝑣P ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → (𝐶 +R -1R) <R 𝑦)
651map2psrpr 11151 . . . . . . . . . . . . . 14 ((𝐶 +R -1R) <R 𝑦 ↔ ∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦)
6664, 65sylib 218 . . . . . . . . . . . . 13 ((𝑣P ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → ∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦)
67 rexex 3075 . . . . . . . . . . . . 13 (∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦)
68 df-ral 3061 . . . . . . . . . . . . . . 15 (∀𝑤𝐵 ¬ 𝑣<P 𝑤 ↔ ∀𝑤(𝑤𝐵 → ¬ 𝑣<P 𝑤))
69 19.29 1872 . . . . . . . . . . . . . . . 16 ((∀𝑤(𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → ∃𝑤((𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦))
70 eleq1 2828 . . . . . . . . . . . . . . . . . . . 20 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴𝑦𝐴))
7143, 70bitrid 283 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑤𝐵𝑦𝐴))
721ltpsrpr 11150 . . . . . . . . . . . . . . . . . . . . 21 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ↔ 𝑣<P 𝑤)
73 breq2 5146 . . . . . . . . . . . . . . . . . . . . 21 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ↔ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7472, 73bitr3id 285 . . . . . . . . . . . . . . . . . . . 20 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑣<P 𝑤 ↔ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7574notbid 318 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (¬ 𝑣<P 𝑤 ↔ ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7671, 75imbi12d 344 . . . . . . . . . . . . . . . . . 18 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝑤𝐵 → ¬ 𝑣<P 𝑤) ↔ (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)))
7776biimpac 478 . . . . . . . . . . . . . . . . 17 (((𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7877exlimiv 1929 . . . . . . . . . . . . . . . 16 (∃𝑤((𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7969, 78syl 17 . . . . . . . . . . . . . . 15 ((∀𝑤(𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8068, 79sylanb 581 . . . . . . . . . . . . . 14 ((∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8180expcom 413 . . . . . . . . . . . . 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 410 . . . . . . . . . . 11 ((𝑣P ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → ((∀𝑤𝐵 ¬ 𝑣<P 𝑤𝑦𝐴) → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8483impancom 451 . . . . . . . . . 10 ((𝑣P ∧ (∀𝑤𝐵 ¬ 𝑣<P 𝑤𝑦𝐴)) → ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8584pm2.01d 190 . . . . . . . . 9 ((𝑣P ∧ (∀𝑤𝐵 ¬ 𝑣<P 𝑤𝑦𝐴)) → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)
8685expr 456 . . . . . . . 8 ((𝑣P ∧ ∀𝑤𝐵 ¬ 𝑣<P 𝑤) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8786ralrimiv 3144 . . . . . . 7 ((𝑣P ∧ ∀𝑤𝐵 ¬ 𝑣<P 𝑤) → ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)
8887ex 412 . . . . . 6 (𝑣P → (∀𝑤𝐵 ¬ 𝑣<P 𝑤 → ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8988adantl 481 . . . . 5 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → (∀𝑤𝐵 ¬ 𝑣<P 𝑤 → ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
90 r19.29 3113 . . . . . . . . . . . . . 14 ((∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ ∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → ∃𝑤P ((𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦))
91 breq1 5145 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
9246, 91bitr3id 285 . . . . . . . . . . . . . . . . . 18 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑤<P 𝑣𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
9392biimprd 248 . . . . . . . . . . . . . . . . 17 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → 𝑤<P 𝑣))
94 vex 3483 . . . . . . . . . . . . . . . . . . . . 21 𝑢 ∈ V
95 opeq1 4872 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = 𝑢 → ⟨𝑤, 1P⟩ = ⟨𝑢, 1P⟩)
9695eceq1d 8786 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑤 = 𝑢 → [⟨𝑤, 1P⟩] ~R = [⟨𝑢, 1P⟩] ~R )
9796oveq2d 7448 . . . . . . . . . . . . . . . . . . . . . 22 (𝑤 = 𝑢 → (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = (𝐶 +R [⟨𝑢, 1P⟩] ~R ))
9897eleq1d 2825 . . . . . . . . . . . . . . . . . . . . 21 (𝑤 = 𝑢 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴 ↔ (𝐶 +R [⟨𝑢, 1P⟩] ~R ) ∈ 𝐴))
9994, 98, 14elab2 3681 . . . . . . . . . . . . . . . . . . . 20 (𝑢𝐵 ↔ (𝐶 +R [⟨𝑢, 1P⟩] ~R ) ∈ 𝐴)
100 breq2 5146 . . . . . . . . . . . . . . . . . . . . . 22 (𝑧 = (𝐶 +R [⟨𝑢, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧 ↔ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑢, 1P⟩] ~R )))
1011ltpsrpr 11150 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑢, 1P⟩] ~R ) ↔ 𝑤<P 𝑢)
102100, 101bitrdi 287 . . . . . . . . . . . . . . . . . . . . 21 (𝑧 = (𝐶 +R [⟨𝑢, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧𝑤<P 𝑢))
103102rspcev 3621 . . . . . . . . . . . . . . . . . . . 20 (((𝐶 +R [⟨𝑢, 1P⟩] ~R ) ∈ 𝐴𝑤<P 𝑢) → ∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧)
10499, 103sylanb 581 . . . . . . . . . . . . . . . . . . 19 ((𝑢𝐵𝑤<P 𝑢) → ∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧)
105104rexlimiva 3146 . . . . . . . . . . . . . . . . . 18 (∃𝑢𝐵 𝑤<P 𝑢 → ∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧)
106 breq1 5145 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧𝑦 <R 𝑧))
107106rexbidv 3178 . . . . . . . . . . . . . . . . . 18 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧 ↔ ∃𝑧𝐴 𝑦 <R 𝑧))
108105, 107imbitrid 244 . . . . . . . . . . . . . . . . 17 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (∃𝑢𝐵 𝑤<P 𝑢 → ∃𝑧𝐴 𝑦 <R 𝑧))
10993, 108imim12d 81 . . . . . . . . . . . . . . . 16 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
110109impcom 407 . . . . . . . . . . . . . . 15 (((𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
111110rexlimivw 3150 . . . . . . . . . . . . . 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 594 . . . . . . . . . . . 12 ((∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ (𝐶 +R -1R) <R 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
114113ex 412 . . . . . . . . . . 11 (∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → ((𝐶 +R -1R) <R 𝑦 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
115114adantl 481 . . . . . . . . . 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 6148 . . . . . . . . . . . . 13 ((𝑦R ∧ ¬ (𝐶 +R -1R) <R 𝑦 ∧ (𝐶 +R -1R) <R 𝐶) → 𝑦 <R 𝐶)
11833, 117mp3an3 1451 . . . . . . . . . . . 12 ((𝑦R ∧ ¬ (𝐶 +R -1R) <R 𝑦) → 𝑦 <R 𝐶)
119 breq2 5146 . . . . . . . . . . . . . . 15 (𝑧 = 𝐶 → (𝑦 <R 𝑧𝑦 <R 𝐶))
120119rspcev 3621 . . . . . . . . . . . . . 14 ((𝐶𝐴𝑦 <R 𝐶) → ∃𝑧𝐴 𝑦 <R 𝑧)
121120ex 412 . . . . . . . . . . . . 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 416 . . . . . . . . . 10 (𝐶𝐴 → (¬ (𝐶 +R -1R) <R 𝑦 → (𝑦R → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
125124ad2antrr 726 . . . . . . . . 9 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → (¬ (𝐶 +R -1R) <R 𝑦 → (𝑦R → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
126116, 125pm2.61d 179 . . . . . . . 8 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → (𝑦R → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
127126ralrimiv 3144 . . . . . . 7 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
128127ex 412 . . . . . 6 ((𝐶𝐴𝑣P) → (∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
129128adantlr 715 . . . . 5 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → (∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
13089, 129anim12d 609 . . . 4 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → ((∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → (∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 ∧ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
131 breq1 5145 . . . . . . . 8 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (𝑥 <R 𝑦 ↔ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
132131notbid 318 . . . . . . 7 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (¬ 𝑥 <R 𝑦 ↔ ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
133132ralbidv 3177 . . . . . 6 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ↔ ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
134 breq2 5146 . . . . . . . 8 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (𝑦 <R 𝑥𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
135134imbi1d 341 . . . . . . 7 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧) ↔ (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
136135ralbidv 3177 . . . . . 6 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧) ↔ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
137133, 136anbi12d 632 . . . . 5 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧)) ↔ (∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 ∧ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
138137rspcev 3621 . . . 4 (((𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R ∧ (∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 ∧ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))) → ∃𝑥R (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧)))
13962, 130, 138syl6an 684 . . 3 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → ((∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ∃𝑥R (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧))))
140139rexlimdva 3154 . 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 206  wa 395  wal 1537   = wceq 1539  wex 1778  wcel 2107  {cab 2713  wne 2939  wral 3060  wrex 3069  c0 4332  cop 4631   class class class wbr 5142  (class class class)co 7432  [cec 8744  Pcnp 10900  1Pc1p 10901  <P cltp 10904   ~R cer 10905  Rcnr 10906  0Rc0r 10907  1Rc1r 10908  -1Rcm1r 10909   +R cplr 10910   <R cltr 10912
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2707  ax-sep 5295  ax-nul 5305  ax-pow 5364  ax-pr 5431  ax-un 7756  ax-inf2 9682
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2064  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2728  df-clel 2815  df-nfc 2891  df-ne 2940  df-ral 3061  df-rex 3070  df-rmo 3379  df-reu 3380  df-rab 3436  df-v 3481  df-sbc 3788  df-csb 3899  df-dif 3953  df-un 3955  df-in 3957  df-ss 3967  df-pss 3970  df-nul 4333  df-if 4525  df-pw 4601  df-sn 4626  df-pr 4628  df-op 4632  df-uni 4907  df-int 4946  df-iun 4992  df-br 5143  df-opab 5205  df-mpt 5225  df-tr 5259  df-id 5577  df-eprel 5583  df-po 5591  df-so 5592  df-fr 5636  df-we 5638  df-xp 5690  df-rel 5691  df-cnv 5692  df-co 5693  df-dm 5694  df-rn 5695  df-res 5696  df-ima 5697  df-pred 6320  df-ord 6386  df-on 6387  df-lim 6388  df-suc 6389  df-iota 6513  df-fun 6562  df-fn 6563  df-f 6564  df-f1 6565  df-fo 6566  df-f1o 6567  df-fv 6568  df-ov 7435  df-oprab 7436  df-mpo 7437  df-om 7889  df-1st 8015  df-2nd 8016  df-frecs 8307  df-wrecs 8338  df-recs 8412  df-rdg 8451  df-1o 8507  df-oadd 8511  df-omul 8512  df-er 8746  df-ec 8748  df-qs 8752  df-ni 10913  df-pli 10914  df-mi 10915  df-lti 10916  df-plpq 10949  df-mpq 10950  df-ltpq 10951  df-enq 10952  df-nq 10953  df-erq 10954  df-plq 10955  df-mq 10956  df-1nq 10957  df-rq 10958  df-ltnq 10959  df-np 11022  df-1p 11023  df-plp 11024  df-mp 11025  df-ltp 11026  df-enr 11096  df-nr 11097  df-plr 11098  df-mr 11099  df-ltr 11100  df-0r 11101  df-1r 11102  df-m1r 11103
This theorem is referenced by:  supsr  11153
  Copyright terms: Public domain W3C validator