| Step | Hyp | Ref
| Expression |
| 1 | | df-nr 7794 |
. 2
⊢
R = ((P × P) /
~R ) |
| 2 | | breq1 4036 |
. . 3
⊢
([〈𝑧, 𝑤〉]
~R = 𝐴 → ([〈𝑧, 𝑤〉] ~R
<R [〈(〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P), 1P〉]
~R ↔ 𝐴 <R
[〈(〈{𝑙 ∣
𝑙
<Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P), 1P〉]
~R )) |
| 3 | 2 | rexbidv 2498 |
. 2
⊢
([〈𝑧, 𝑤〉]
~R = 𝐴 → (∃𝑥 ∈ N [〈𝑧, 𝑤〉] ~R
<R [〈(〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P), 1P〉]
~R ↔ ∃𝑥 ∈ N 𝐴 <R
[〈(〈{𝑙 ∣
𝑙
<Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P), 1P〉]
~R )) |
| 4 | | 1pr 7621 |
. . . . . . 7
⊢
1P ∈ P |
| 5 | | addclpr 7604 |
. . . . . . 7
⊢ ((𝑧 ∈ P ∧
1P ∈ P) → (𝑧 +P
1P) ∈ P) |
| 6 | 4, 5 | mpan2 425 |
. . . . . 6
⊢ (𝑧 ∈ P →
(𝑧
+P 1P) ∈
P) |
| 7 | | archpr 7710 |
. . . . . 6
⊢ ((𝑧 +P
1P) ∈ P → ∃𝑥 ∈ N (𝑧 +P
1P)<P 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉) |
| 8 | 6, 7 | syl 14 |
. . . . 5
⊢ (𝑧 ∈ P →
∃𝑥 ∈
N (𝑧
+P
1P)<P 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉) |
| 9 | 8 | adantr 276 |
. . . 4
⊢ ((𝑧 ∈ P ∧
𝑤 ∈ P)
→ ∃𝑥 ∈
N (𝑧
+P
1P)<P 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉) |
| 10 | | nnprlu 7620 |
. . . . . . . . . 10
⊢ (𝑥 ∈ N →
〈{𝑙 ∣ 𝑙 <Q
[〈𝑥,
1o〉] ~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 ∈
P) |
| 11 | 10 | adantl 277 |
. . . . . . . . 9
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 ∈
P) |
| 12 | | addclpr 7604 |
. . . . . . . . 9
⊢
((〈{𝑙 ∣
𝑙
<Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 ∈ P ∧
1P ∈ P) → (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) ∈ P) |
| 13 | 11, 4, 12 | sylancl 413 |
. . . . . . . 8
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) ∈ P) |
| 14 | | simplr 528 |
. . . . . . . 8
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → 𝑤
∈ P) |
| 15 | | ltaddpr 7664 |
. . . . . . . 8
⊢
(((〈{𝑙 ∣
𝑙
<Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) ∈ P ∧ 𝑤 ∈ P) → (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)<P ((〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) +P 𝑤)) |
| 16 | 13, 14, 15 | syl2anc 411 |
. . . . . . 7
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)<P ((〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) +P 𝑤)) |
| 17 | | addcomprg 7645 |
. . . . . . . 8
⊢ ((𝑤 ∈ P ∧
(〈{𝑙 ∣ 𝑙 <Q
[〈𝑥,
1o〉] ~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) ∈ P) → (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)) = ((〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) +P 𝑤)) |
| 18 | 14, 13, 17 | syl2anc 411 |
. . . . . . 7
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → (𝑤
+P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)) = ((〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) +P 𝑤)) |
| 19 | 16, 18 | breqtrrd 4061 |
. . . . . 6
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)<P (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P))) |
| 20 | | ltaddpr 7664 |
. . . . . . . 8
⊢
((〈{𝑙 ∣
𝑙
<Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 ∈ P ∧
1P ∈ P) → 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉<P
(〈{𝑙 ∣ 𝑙 <Q
[〈𝑥,
1o〉] ~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)) |
| 21 | 11, 4, 20 | sylancl 413 |
. . . . . . 7
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉<P
(〈{𝑙 ∣ 𝑙 <Q
[〈𝑥,
1o〉] ~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)) |
| 22 | | ltsopr 7663 |
. . . . . . . . 9
⊢
<P Or P |
| 23 | | ltrelpr 7572 |
. . . . . . . . 9
⊢
<P ⊆ (P ×
P) |
| 24 | 22, 23 | sotri 5065 |
. . . . . . . 8
⊢ (((𝑧 +P
1P)<P 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 ∧ 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉<P
(〈{𝑙 ∣ 𝑙 <Q
[〈𝑥,
1o〉] ~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)) → (𝑧 +P
1P)<P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)) |
| 25 | 24 | expcom 116 |
. . . . . . 7
⊢
(〈{𝑙 ∣
𝑙
<Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉<P
(〈{𝑙 ∣ 𝑙 <Q
[〈𝑥,
1o〉] ~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) → ((𝑧 +P
1P)<P 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 → (𝑧 +P
1P)<P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P))) |
| 26 | 21, 25 | syl 14 |
. . . . . 6
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → ((𝑧
+P
1P)<P 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 → (𝑧 +P
1P)<P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P))) |
| 27 | 22, 23 | sotri 5065 |
. . . . . . 7
⊢ (((𝑧 +P
1P)<P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) ∧ (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)<P (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P))) → (𝑧 +P
1P)<P (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P))) |
| 28 | 27 | expcom 116 |
. . . . . 6
⊢
((〈{𝑙 ∣
𝑙
<Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)<P (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)) → ((𝑧 +P
1P)<P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) → (𝑧 +P
1P)<P (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)))) |
| 29 | 19, 26, 28 | sylsyld 58 |
. . . . 5
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → ((𝑧
+P
1P)<P 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 → (𝑧 +P
1P)<P (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)))) |
| 30 | 29 | reximdva 2599 |
. . . 4
⊢ ((𝑧 ∈ P ∧
𝑤 ∈ P)
→ (∃𝑥 ∈
N (𝑧
+P
1P)<P 〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 → ∃𝑥 ∈ N (𝑧 +P
1P)<P (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)))) |
| 31 | 9, 30 | mpd 13 |
. . 3
⊢ ((𝑧 ∈ P ∧
𝑤 ∈ P)
→ ∃𝑥 ∈
N (𝑧
+P
1P)<P (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P))) |
| 32 | | simpl 109 |
. . . . 5
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → (𝑧
∈ P ∧ 𝑤 ∈ P)) |
| 33 | 4 | a1i 9 |
. . . . 5
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → 1P ∈
P) |
| 34 | | ltsrprg 7814 |
. . . . 5
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ ((〈{𝑙 ∣
𝑙
<Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P) ∈ P ∧
1P ∈ P)) → ([〈𝑧, 𝑤〉] ~R
<R [〈(〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P), 1P〉]
~R ↔ (𝑧 +P
1P)<P (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)))) |
| 35 | 32, 13, 33, 34 | syl12anc 1247 |
. . . 4
⊢ (((𝑧 ∈ P ∧
𝑤 ∈ P)
∧ 𝑥 ∈
N) → ([〈𝑧, 𝑤〉] ~R
<R [〈(〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P), 1P〉]
~R ↔ (𝑧 +P
1P)<P (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)))) |
| 36 | 35 | rexbidva 2494 |
. . 3
⊢ ((𝑧 ∈ P ∧
𝑤 ∈ P)
→ (∃𝑥 ∈
N [〈𝑧,
𝑤〉]
~R <R [〈(〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P), 1P〉]
~R ↔ ∃𝑥 ∈ N (𝑧 +P
1P)<P (𝑤 +P (〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P)))) |
| 37 | 31, 36 | mpbird 167 |
. 2
⊢ ((𝑧 ∈ P ∧
𝑤 ∈ P)
→ ∃𝑥 ∈
N [〈𝑧,
𝑤〉]
~R <R [〈(〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P), 1P〉]
~R ) |
| 38 | 1, 3, 37 | ecoptocl 6681 |
1
⊢ (𝐴 ∈ R →
∃𝑥 ∈
N 𝐴
<R [〈(〈{𝑙 ∣ 𝑙 <Q [〈𝑥, 1o〉]
~Q }, {𝑢 ∣ [〈𝑥, 1o〉]
~Q <Q 𝑢}〉 +P
1P), 1P〉]
~R ) |