Proof of Theorem prarloclem3step
Step | Hyp | Ref
| Expression |
1 | | nfv 1521 |
. . 3
⊢
Ⅎ𝑦(𝑋 ∈ ω ∧
(〈𝐿, 𝑈〉 ∈ P ∧ 𝐴 ∈ 𝐿 ∧ 𝑃 ∈ Q)) |
2 | | nfre1 2513 |
. . 3
⊢
Ⅎ𝑦∃𝑦 ∈ ω ((𝐴 +Q0
([〈𝑦,
1o〉] ~Q0
·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈) |
3 | | prarloclemlo 7456 |
. . . . 5
⊢ (((𝑋 ∈ ω ∧
(〈𝐿, 𝑈〉 ∈ P ∧ 𝐴 ∈ 𝐿 ∧ 𝑃 ∈ Q)) ∧ 𝑦 ∈ ω) → ((𝐴 +Q
([〈(𝑦 +o
1o), 1o〉] ~Q
·Q 𝑃)) ∈ 𝐿 → (((𝐴 +Q0 ([〈𝑦, 1o〉]
~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o suc 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈) → ∃𝑦 ∈ ω ((𝐴 +Q0 ([〈𝑦, 1o〉]
~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈)))) |
4 | | prarloclemup 7457 |
. . . . 5
⊢ (((𝑋 ∈ ω ∧
(〈𝐿, 𝑈〉 ∈ P ∧ 𝐴 ∈ 𝐿 ∧ 𝑃 ∈ Q)) ∧ 𝑦 ∈ ω) → ((𝐴 +Q
([〈((𝑦 +o
2o) +o 𝑋), 1o〉]
~Q ·Q 𝑃)) ∈ 𝑈 → (((𝐴 +Q0 ([〈𝑦, 1o〉]
~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o suc 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈) → ∃𝑦 ∈ ω ((𝐴 +Q0 ([〈𝑦, 1o〉]
~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈)))) |
5 | | prarloclemlt 7455 |
. . . . . 6
⊢ (((𝑋 ∈ ω ∧
(〈𝐿, 𝑈〉 ∈ P ∧ 𝐴 ∈ 𝐿 ∧ 𝑃 ∈ Q)) ∧ 𝑦 ∈ ω) → (𝐴 +Q
([〈(𝑦 +o
1o), 1o〉] ~Q
·Q 𝑃)) <Q (𝐴 +Q
([〈((𝑦 +o
2o) +o 𝑋), 1o〉]
~Q ·Q 𝑃))) |
6 | | prloc 7453 |
. . . . . . . . 9
⊢
((〈𝐿, 𝑈〉 ∈ P
∧ (𝐴
+Q ([〈(𝑦 +o 1o),
1o〉] ~Q
·Q 𝑃)) <Q (𝐴 +Q
([〈((𝑦 +o
2o) +o 𝑋), 1o〉]
~Q ·Q 𝑃))) → ((𝐴 +Q ([〈(𝑦 +o 1o),
1o〉] ~Q
·Q 𝑃)) ∈ 𝐿 ∨ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈)) |
7 | 6 | ex 114 |
. . . . . . . 8
⊢
(〈𝐿, 𝑈〉 ∈ P
→ ((𝐴
+Q ([〈(𝑦 +o 1o),
1o〉] ~Q
·Q 𝑃)) <Q (𝐴 +Q
([〈((𝑦 +o
2o) +o 𝑋), 1o〉]
~Q ·Q 𝑃)) → ((𝐴 +Q ([〈(𝑦 +o 1o),
1o〉] ~Q
·Q 𝑃)) ∈ 𝐿 ∨ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈))) |
8 | 7 | 3ad2ant1 1013 |
. . . . . . 7
⊢
((〈𝐿, 𝑈〉 ∈ P
∧ 𝐴 ∈ 𝐿 ∧ 𝑃 ∈ Q) → ((𝐴 +Q
([〈(𝑦 +o
1o), 1o〉] ~Q
·Q 𝑃)) <Q (𝐴 +Q
([〈((𝑦 +o
2o) +o 𝑋), 1o〉]
~Q ·Q 𝑃)) → ((𝐴 +Q ([〈(𝑦 +o 1o),
1o〉] ~Q
·Q 𝑃)) ∈ 𝐿 ∨ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈))) |
9 | 8 | ad2antlr 486 |
. . . . . 6
⊢ (((𝑋 ∈ ω ∧
(〈𝐿, 𝑈〉 ∈ P ∧ 𝐴 ∈ 𝐿 ∧ 𝑃 ∈ Q)) ∧ 𝑦 ∈ ω) → ((𝐴 +Q
([〈(𝑦 +o
1o), 1o〉] ~Q
·Q 𝑃)) <Q (𝐴 +Q
([〈((𝑦 +o
2o) +o 𝑋), 1o〉]
~Q ·Q 𝑃)) → ((𝐴 +Q ([〈(𝑦 +o 1o),
1o〉] ~Q
·Q 𝑃)) ∈ 𝐿 ∨ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈))) |
10 | 5, 9 | mpd 13 |
. . . . 5
⊢ (((𝑋 ∈ ω ∧
(〈𝐿, 𝑈〉 ∈ P ∧ 𝐴 ∈ 𝐿 ∧ 𝑃 ∈ Q)) ∧ 𝑦 ∈ ω) → ((𝐴 +Q
([〈(𝑦 +o
1o), 1o〉] ~Q
·Q 𝑃)) ∈ 𝐿 ∨ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈)) |
11 | 3, 4, 10 | mpjaod 713 |
. . . 4
⊢ (((𝑋 ∈ ω ∧
(〈𝐿, 𝑈〉 ∈ P ∧ 𝐴 ∈ 𝐿 ∧ 𝑃 ∈ Q)) ∧ 𝑦 ∈ ω) → (((𝐴 +Q0
([〈𝑦,
1o〉] ~Q0
·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o suc 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈) → ∃𝑦 ∈ ω ((𝐴 +Q0 ([〈𝑦, 1o〉]
~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈))) |
12 | 11 | ex 114 |
. . 3
⊢ ((𝑋 ∈ ω ∧
(〈𝐿, 𝑈〉 ∈ P ∧ 𝐴 ∈ 𝐿 ∧ 𝑃 ∈ Q)) → (𝑦 ∈ ω → (((𝐴 +Q0
([〈𝑦,
1o〉] ~Q0
·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o suc 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈) → ∃𝑦 ∈ ω ((𝐴 +Q0 ([〈𝑦, 1o〉]
~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈)))) |
13 | 1, 2, 12 | rexlimd 2584 |
. 2
⊢ ((𝑋 ∈ ω ∧
(〈𝐿, 𝑈〉 ∈ P ∧ 𝐴 ∈ 𝐿 ∧ 𝑃 ∈ Q)) →
(∃𝑦 ∈ ω
((𝐴
+Q0 ([〈𝑦, 1o〉]
~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o suc 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈) → ∃𝑦 ∈ ω ((𝐴 +Q0 ([〈𝑦, 1o〉]
~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈))) |
14 | 13 | imp 123 |
1
⊢ (((𝑋 ∈ ω ∧
(〈𝐿, 𝑈〉 ∈ P ∧ 𝐴 ∈ 𝐿 ∧ 𝑃 ∈ Q)) ∧ ∃𝑦 ∈ ω ((𝐴 +Q0
([〈𝑦,
1o〉] ~Q0
·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o suc 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈)) → ∃𝑦 ∈ ω ((𝐴 +Q0 ([〈𝑦, 1o〉]
~Q0 ·Q0 𝑃)) ∈ 𝐿 ∧ (𝐴 +Q ([〈((𝑦 +o 2o)
+o 𝑋),
1o〉] ~Q
·Q 𝑃)) ∈ 𝑈)) |