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

Theorem supsrlem 9892
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 9878 . . . . . . 7 (𝐶R → (𝐶 +R 0R) = 𝐶)
31, 2mp1i 13 . . . . . 6 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → (𝐶 +R 0R) = 𝐶)
4 simpl 473 . . . . . 6 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → 𝐶𝐴)
53, 4eqeltrd 2698 . . . . 5 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → (𝐶 +R 0R) ∈ 𝐴)
6 1pr 9797 . . . . . . 7 1PP
76elexi 3203 . . . . . 6 1P ∈ V
8 opeq1 4377 . . . . . . . . . 10 (𝑤 = 1P → ⟨𝑤, 1P⟩ = ⟨1P, 1P⟩)
98eceq1d 7743 . . . . . . . . 9 (𝑤 = 1P → [⟨𝑤, 1P⟩] ~R = [⟨1P, 1P⟩] ~R )
10 df-0r 9842 . . . . . . . . 9 0R = [⟨1P, 1P⟩] ~R
119, 10syl6eqr 2673 . . . . . . . 8 (𝑤 = 1P → [⟨𝑤, 1P⟩] ~R = 0R)
1211oveq2d 6631 . . . . . . 7 (𝑤 = 1P → (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = (𝐶 +R 0R))
1312eleq1d 2683 . . . . . 6 (𝑤 = 1P → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴 ↔ (𝐶 +R 0R) ∈ 𝐴))
14 supsrlem.1 . . . . . 6 𝐵 = {𝑤 ∣ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴}
157, 13, 14elab2 3342 . . . . 5 (1P𝐵 ↔ (𝐶 +R 0R) ∈ 𝐴)
165, 15sylibr 224 . . . 4 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → 1P𝐵)
17 ne0i 3903 . . . 4 (1P𝐵𝐵 ≠ ∅)
1816, 17syl 17 . . 3 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → 𝐵 ≠ ∅)
19 breq1 4626 . . . . . . . 8 (𝑦 = 𝐶 → (𝑦 <R 𝑥𝐶 <R 𝑥))
2019rspccv 3296 . . . . . . 7 (∀𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴𝐶 <R 𝑥))
21 0lt1sr 9876 . . . . . . . . . . . . 13 0R <R 1R
22 m1r 9863 . . . . . . . . . . . . . 14 -1RR
23 ltasr 9881 . . . . . . . . . . . . . 14 (-1RR → (0R <R 1R ↔ (-1R +R 0R) <R (-1R +R 1R)))
2422, 23ax-mp 5 . . . . . . . . . . . . 13 (0R <R 1R ↔ (-1R +R 0R) <R (-1R +R 1R))
2521, 24mpbi 220 . . . . . . . . . . . 12 (-1R +R 0R) <R (-1R +R 1R)
26 0idsr 9878 . . . . . . . . . . . . 13 (-1RR → (-1R +R 0R) = -1R)
2722, 26ax-mp 5 . . . . . . . . . . . 12 (-1R +R 0R) = -1R
28 m1p1sr 9873 . . . . . . . . . . . 12 (-1R +R 1R) = 0R
2925, 27, 283brtr3i 4652 . . . . . . . . . . 11 -1R <R 0R
30 ltasr 9881 . . . . . . . . . . . 12 (𝐶R → (-1R <R 0R ↔ (𝐶 +R -1R) <R (𝐶 +R 0R)))
311, 30ax-mp 5 . . . . . . . . . . 11 (-1R <R 0R ↔ (𝐶 +R -1R) <R (𝐶 +R 0R))
3229, 31mpbi 220 . . . . . . . . . 10 (𝐶 +R -1R) <R (𝐶 +R 0R)
331, 2ax-mp 5 . . . . . . . . . 10 (𝐶 +R 0R) = 𝐶
3432, 33breqtri 4648 . . . . . . . . 9 (𝐶 +R -1R) <R 𝐶
35 ltsosr 9875 . . . . . . . . . 10 <R Or R
36 ltrelsr 9849 . . . . . . . . . 10 <R ⊆ (R × R)
3735, 36sotri 5492 . . . . . . . . 9 (((𝐶 +R -1R) <R 𝐶𝐶 <R 𝑥) → (𝐶 +R -1R) <R 𝑥)
3834, 37mpan 705 . . . . . . . 8 (𝐶 <R 𝑥 → (𝐶 +R -1R) <R 𝑥)
391map2psrpr 9891 . . . . . . . 8 ((𝐶 +R -1R) <R 𝑥 ↔ ∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥)
4038, 39sylib 208 . . . . . . 7 (𝐶 <R 𝑥 → ∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥)
4120, 40syl6 35 . . . . . 6 (∀𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴 → ∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥))
42 breq2 4627 . . . . . . . . . 10 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑦 <R 𝑥))
4342ralbidv 2982 . . . . . . . . 9 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ ∀𝑦𝐴 𝑦 <R 𝑥))
4414abeq2i 2732 . . . . . . . . . . 11 (𝑤𝐵 ↔ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴)
45 breq1 4626 . . . . . . . . . . . . 13 (𝑦 = (𝐶 +R [⟨𝑤, 1P⟩] ~R ) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
4645rspccv 3296 . . . . . . . . . . . 12 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴 → (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
471ltpsrpr 9890 . . . . . . . . . . . 12 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑤<P 𝑣)
4846, 47syl6ib 241 . . . . . . . . . . 11 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴𝑤<P 𝑣))
4944, 48syl5bi 232 . . . . . . . . . 10 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (𝑤𝐵𝑤<P 𝑣))
5049ralrimiv 2961 . . . . . . . . 9 (∀𝑦𝐴 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∀𝑤𝐵 𝑤<P 𝑣)
5143, 50syl6bir 244 . . . . . . . 8 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → (∀𝑦𝐴 𝑦 <R 𝑥 → ∀𝑤𝐵 𝑤<P 𝑣))
5251com12 32 . . . . . . 7 (∀𝑦𝐴 𝑦 <R 𝑥 → ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → ∀𝑤𝐵 𝑤<P 𝑣))
5352reximdv 3012 . . . . . 6 (∀𝑦𝐴 𝑦 <R 𝑥 → (∃𝑣P (𝐶 +R [⟨𝑣, 1P⟩] ~R ) = 𝑥 → ∃𝑣P𝑤𝐵 𝑤<P 𝑣))
5441, 53syld 47 . . . . 5 (∀𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴 → ∃𝑣P𝑤𝐵 𝑤<P 𝑣))
5554rexlimivw 3024 . . . 4 (∃𝑥R𝑦𝐴 𝑦 <R 𝑥 → (𝐶𝐴 → ∃𝑣P𝑤𝐵 𝑤<P 𝑣))
5655impcom 446 . . 3 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → ∃𝑣P𝑤𝐵 𝑤<P 𝑣)
57 supexpr 9836 . . 3 ((𝐵 ≠ ∅ ∧ ∃𝑣P𝑤𝐵 𝑤<P 𝑣) → ∃𝑣P (∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)))
5818, 56, 57syl2anc 692 . 2 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → ∃𝑣P (∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)))
591mappsrpr 9889 . . . . . . 7 ((𝐶 +R -1R) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑣P)
6036brel 5138 . . . . . . 7 ((𝐶 +R -1R) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝐶 +R -1R) ∈ R ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R))
6159, 60sylbir 225 . . . . . 6 (𝑣P → ((𝐶 +R -1R) ∈ R ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R))
6261simprd 479 . . . . 5 (𝑣P → (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R)
6362adantl 482 . . . 4 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R)
6435, 36sotri 5492 . . . . . . . . . . . . . . 15 (((𝐶 +R -1R) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → (𝐶 +R -1R) <R 𝑦)
6559, 64sylanbr 490 . . . . . . . . . . . . . 14 ((𝑣P ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → (𝐶 +R -1R) <R 𝑦)
661map2psrpr 9891 . . . . . . . . . . . . . 14 ((𝐶 +R -1R) <R 𝑦 ↔ ∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦)
6765, 66sylib 208 . . . . . . . . . . . . 13 ((𝑣P ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → ∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦)
68 rexex 2998 . . . . . . . . . . . . 13 (∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦)
69 df-ral 2913 . . . . . . . . . . . . . . 15 (∀𝑤𝐵 ¬ 𝑣<P 𝑤 ↔ ∀𝑤(𝑤𝐵 → ¬ 𝑣<P 𝑤))
70 19.29 1798 . . . . . . . . . . . . . . . 16 ((∀𝑤(𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → ∃𝑤((𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦))
71 eleq1 2686 . . . . . . . . . . . . . . . . . . . 20 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴𝑦𝐴))
7244, 71syl5bb 272 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑤𝐵𝑦𝐴))
731ltpsrpr 9890 . . . . . . . . . . . . . . . . . . . . 21 ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ↔ 𝑣<P 𝑤)
74 breq2 4627 . . . . . . . . . . . . . . . . . . . . 21 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑤, 1P⟩] ~R ) ↔ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7573, 74syl5bbr 274 . . . . . . . . . . . . . . . . . . . 20 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑣<P 𝑤 ↔ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7675notbid 308 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (¬ 𝑣<P 𝑤 ↔ ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7772, 76imbi12d 334 . . . . . . . . . . . . . . . . . 18 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝑤𝐵 → ¬ 𝑣<P 𝑤) ↔ (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)))
7877biimpac 503 . . . . . . . . . . . . . . . . 17 (((𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
7978exlimiv 1855 . . . . . . . . . . . . . . . 16 (∃𝑤((𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8070, 79syl 17 . . . . . . . . . . . . . . 15 ((∀𝑤(𝑤𝐵 → ¬ 𝑣<P 𝑤) ∧ ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8169, 80sylanb 489 . . . . . . . . . . . . . 14 ((∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8281expcom 451 . . . . . . . . . . . . 13 (∃𝑤(𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (∀𝑤𝐵 ¬ 𝑣<P 𝑤 → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)))
8367, 68, 823syl 18 . . . . . . . . . . . 12 ((𝑣P ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → (∀𝑤𝐵 ¬ 𝑣<P 𝑤 → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)))
8483impd 447 . . . . . . . . . . 11 ((𝑣P ∧ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦) → ((∀𝑤𝐵 ¬ 𝑣<P 𝑤𝑦𝐴) → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8584impancom 456 . . . . . . . . . 10 ((𝑣P ∧ (∀𝑤𝐵 ¬ 𝑣<P 𝑤𝑦𝐴)) → ((𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8685pm2.01d 181 . . . . . . . . 9 ((𝑣P ∧ (∀𝑤𝐵 ¬ 𝑣<P 𝑤𝑦𝐴)) → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)
8786expr 642 . . . . . . . 8 ((𝑣P ∧ ∀𝑤𝐵 ¬ 𝑣<P 𝑤) → (𝑦𝐴 → ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
8887ralrimiv 2961 . . . . . . 7 ((𝑣P ∧ ∀𝑤𝐵 ¬ 𝑣<P 𝑤) → ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦)
8988ex 450 . . . . . 6 (𝑣P → (∀𝑤𝐵 ¬ 𝑣<P 𝑤 → ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
9089adantl 482 . . . . 5 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → (∀𝑤𝐵 ¬ 𝑣<P 𝑤 → ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
91 r19.29 3067 . . . . . . . . . . . . . 14 ((∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ ∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → ∃𝑤P ((𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦))
92 breq1 4626 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) ↔ 𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
9347, 92syl5bbr 274 . . . . . . . . . . . . . . . . . 18 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑤<P 𝑣𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
9493biimprd 238 . . . . . . . . . . . . . . . . 17 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → 𝑤<P 𝑣))
95 vex 3193 . . . . . . . . . . . . . . . . . . . . 21 𝑢 ∈ V
96 opeq1 4377 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = 𝑢 → ⟨𝑤, 1P⟩ = ⟨𝑢, 1P⟩)
9796eceq1d 7743 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑤 = 𝑢 → [⟨𝑤, 1P⟩] ~R = [⟨𝑢, 1P⟩] ~R )
9897oveq2d 6631 . . . . . . . . . . . . . . . . . . . . . 22 (𝑤 = 𝑢 → (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = (𝐶 +R [⟨𝑢, 1P⟩] ~R ))
9998eleq1d 2683 . . . . . . . . . . . . . . . . . . . . 21 (𝑤 = 𝑢 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) ∈ 𝐴 ↔ (𝐶 +R [⟨𝑢, 1P⟩] ~R ) ∈ 𝐴))
10095, 99, 14elab2 3342 . . . . . . . . . . . . . . . . . . . 20 (𝑢𝐵 ↔ (𝐶 +R [⟨𝑢, 1P⟩] ~R ) ∈ 𝐴)
101 breq2 4627 . . . . . . . . . . . . . . . . . . . . . 22 (𝑧 = (𝐶 +R [⟨𝑢, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧 ↔ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑢, 1P⟩] ~R )))
1021ltpsrpr 9890 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R (𝐶 +R [⟨𝑢, 1P⟩] ~R ) ↔ 𝑤<P 𝑢)
103101, 102syl6bb 276 . . . . . . . . . . . . . . . . . . . . 21 (𝑧 = (𝐶 +R [⟨𝑢, 1P⟩] ~R ) → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧𝑤<P 𝑢))
104103rspcev 3299 . . . . . . . . . . . . . . . . . . . 20 (((𝐶 +R [⟨𝑢, 1P⟩] ~R ) ∈ 𝐴𝑤<P 𝑢) → ∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧)
105100, 104sylanb 489 . . . . . . . . . . . . . . . . . . 19 ((𝑢𝐵𝑤<P 𝑢) → ∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧)
106105rexlimiva 3023 . . . . . . . . . . . . . . . . . 18 (∃𝑢𝐵 𝑤<P 𝑢 → ∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧)
107 breq1 4626 . . . . . . . . . . . . . . . . . . 19 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧𝑦 <R 𝑧))
108107rexbidv 3047 . . . . . . . . . . . . . . . . . 18 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (∃𝑧𝐴 (𝐶 +R [⟨𝑤, 1P⟩] ~R ) <R 𝑧 ↔ ∃𝑧𝐴 𝑦 <R 𝑧))
109106, 108syl5ib 234 . . . . . . . . . . . . . . . . 17 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → (∃𝑢𝐵 𝑤<P 𝑢 → ∃𝑧𝐴 𝑦 <R 𝑧))
11094, 109imim12d 81 . . . . . . . . . . . . . . . 16 ((𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦 → ((𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
111110impcom 446 . . . . . . . . . . . . . . 15 (((𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
112111rexlimivw 3024 . . . . . . . . . . . . . 14 (∃𝑤P ((𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
11391, 112syl 17 . . . . . . . . . . . . 13 ((∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ ∃𝑤P (𝐶 +R [⟨𝑤, 1P⟩] ~R ) = 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
11466, 113sylan2b 492 . . . . . . . . . . . 12 ((∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) ∧ (𝐶 +R -1R) <R 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
115114ex 450 . . . . . . . . . . 11 (∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → ((𝐶 +R -1R) <R 𝑦 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
116115adantl 482 . . . . . . . . . 10 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ((𝐶 +R -1R) <R 𝑦 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
117116a1dd 50 . . . . . . . . 9 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ((𝐶 +R -1R) <R 𝑦 → (𝑦R → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
11835, 36sotri2 5494 . . . . . . . . . . . . 13 ((𝑦R ∧ ¬ (𝐶 +R -1R) <R 𝑦 ∧ (𝐶 +R -1R) <R 𝐶) → 𝑦 <R 𝐶)
11934, 118mp3an3 1410 . . . . . . . . . . . 12 ((𝑦R ∧ ¬ (𝐶 +R -1R) <R 𝑦) → 𝑦 <R 𝐶)
120 breq2 4627 . . . . . . . . . . . . . . 15 (𝑧 = 𝐶 → (𝑦 <R 𝑧𝑦 <R 𝐶))
121120rspcev 3299 . . . . . . . . . . . . . 14 ((𝐶𝐴𝑦 <R 𝐶) → ∃𝑧𝐴 𝑦 <R 𝑧)
122121ex 450 . . . . . . . . . . . . 13 (𝐶𝐴 → (𝑦 <R 𝐶 → ∃𝑧𝐴 𝑦 <R 𝑧))
123122a1dd 50 . . . . . . . . . . . 12 (𝐶𝐴 → (𝑦 <R 𝐶 → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
124119, 123syl5 34 . . . . . . . . . . 11 (𝐶𝐴 → ((𝑦R ∧ ¬ (𝐶 +R -1R) <R 𝑦) → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
125124expcomd 454 . . . . . . . . . 10 (𝐶𝐴 → (¬ (𝐶 +R -1R) <R 𝑦 → (𝑦R → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
126125ad2antrr 761 . . . . . . . . 9 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → (¬ (𝐶 +R -1R) <R 𝑦 → (𝑦R → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
127117, 126pm2.61d 170 . . . . . . . 8 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → (𝑦R → (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
128127ralrimiv 2961 . . . . . . 7 (((𝐶𝐴𝑣P) ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))
129128ex 450 . . . . . 6 ((𝐶𝐴𝑣P) → (∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
130129adantlr 750 . . . . 5 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → (∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢) → ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
13190, 130anim12d 585 . . . 4 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → ((∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → (∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 ∧ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
132 breq1 4626 . . . . . . . 8 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (𝑥 <R 𝑦 ↔ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
133132notbid 308 . . . . . . 7 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (¬ 𝑥 <R 𝑦 ↔ ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
134133ralbidv 2982 . . . . . 6 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ↔ ∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦))
135 breq2 4627 . . . . . . . 8 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (𝑦 <R 𝑥𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R )))
136135imbi1d 331 . . . . . . 7 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧) ↔ (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
137136ralbidv 2982 . . . . . 6 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → (∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧) ↔ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧)))
138134, 137anbi12d 746 . . . . 5 (𝑥 = (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ((∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧)) ↔ (∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 ∧ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))))
139138rspcev 3299 . . . 4 (((𝐶 +R [⟨𝑣, 1P⟩] ~R ) ∈ R ∧ (∀𝑦𝐴 ¬ (𝐶 +R [⟨𝑣, 1P⟩] ~R ) <R 𝑦 ∧ ∀𝑦R (𝑦 <R (𝐶 +R [⟨𝑣, 1P⟩] ~R ) → ∃𝑧𝐴 𝑦 <R 𝑧))) → ∃𝑥R (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧)))
14063, 131, 139syl6an 567 . . 3 (((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) ∧ 𝑣P) → ((∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ∃𝑥R (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧))))
141140rexlimdva 3026 . 2 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → (∃𝑣P (∀𝑤𝐵 ¬ 𝑣<P 𝑤 ∧ ∀𝑤P (𝑤<P 𝑣 → ∃𝑢𝐵 𝑤<P 𝑢)) → ∃𝑥R (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧))))
14258, 141mpd 15 1 ((𝐶𝐴 ∧ ∃𝑥R𝑦𝐴 𝑦 <R 𝑥) → ∃𝑥R (∀𝑦𝐴 ¬ 𝑥 <R 𝑦 ∧ ∀𝑦R (𝑦 <R 𝑥 → ∃𝑧𝐴 𝑦 <R 𝑧)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 384  wal 1478   = wceq 1480  wex 1701  wcel 1987  {cab 2607  wne 2790  wral 2908  wrex 2909  c0 3897  cop 4161   class class class wbr 4623  (class class class)co 6615  [cec 7700  Pcnp 9641  1Pc1p 9642  <P cltp 9645   ~R cer 9646  Rcnr 9647  0Rc0r 9648  1Rc1r 9649  -1Rcm1r 9650   +R cplr 9651   <R cltr 9653
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-sep 4751  ax-nul 4759  ax-pow 4813  ax-pr 4877  ax-un 6914  ax-inf2 8498
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-ral 2913  df-rex 2914  df-reu 2915  df-rmo 2916  df-rab 2917  df-v 3192  df-sbc 3423  df-csb 3520  df-dif 3563  df-un 3565  df-in 3567  df-ss 3574  df-pss 3576  df-nul 3898  df-if 4065  df-pw 4138  df-sn 4156  df-pr 4158  df-tp 4160  df-op 4162  df-uni 4410  df-int 4448  df-iun 4494  df-br 4624  df-opab 4684  df-mpt 4685  df-tr 4723  df-eprel 4995  df-id 4999  df-po 5005  df-so 5006  df-fr 5043  df-we 5045  df-xp 5090  df-rel 5091  df-cnv 5092  df-co 5093  df-dm 5094  df-rn 5095  df-res 5096  df-ima 5097  df-pred 5649  df-ord 5695  df-on 5696  df-lim 5697  df-suc 5698  df-iota 5820  df-fun 5859  df-fn 5860  df-f 5861  df-f1 5862  df-fo 5863  df-f1o 5864  df-fv 5865  df-ov 6618  df-oprab 6619  df-mpt2 6620  df-om 7028  df-1st 7128  df-2nd 7129  df-wrecs 7367  df-recs 7428  df-rdg 7466  df-1o 7520  df-oadd 7524  df-omul 7525  df-er 7702  df-ec 7704  df-qs 7708  df-ni 9654  df-pli 9655  df-mi 9656  df-lti 9657  df-plpq 9690  df-mpq 9691  df-ltpq 9692  df-enq 9693  df-nq 9694  df-erq 9695  df-plq 9696  df-mq 9697  df-1nq 9698  df-rq 9699  df-ltnq 9700  df-np 9763  df-1p 9764  df-plp 9765  df-mp 9766  df-ltp 9767  df-enr 9837  df-nr 9838  df-plr 9839  df-mr 9840  df-ltr 9841  df-0r 9842  df-1r 9843  df-m1r 9844
This theorem is referenced by:  supsr  9893
  Copyright terms: Public domain W3C validator