Proof of Theorem ruclem29
| Step | Hyp | Ref
| Expression |
| 1 | | ruclem28.a |
. 2
⊢ A
∈ ℕ |
| 2 | | fveq2 2832 |
. . . . . 6
⊢ (w = 1
→ (G ‘w) = (G
‘1)) |
| 3 | | fveq2 2832 |
. . . . . 6
⊢ (w = 1
→ (F ‘w) = (F
‘1)) |
| 4 | 2, 3 | breq12d 2073 |
. . . . 5
⊢ (w = 1
→ ((G ‘w) < (F
‘w) ↔ (G ‘1) < (F ‘1))) |
| 5 | | fveq2 2832 |
. . . . . 6
⊢ (w = 1
→ (H ‘w) = (H
‘1)) |
| 6 | 3, 5 | breq12d 2073 |
. . . . 5
⊢ (w = 1
→ ((F ‘w) < (H
‘w) ↔ (F ‘1) < (H ‘1))) |
| 7 | 4, 6 | anbi12d 476 |
. . . 4
⊢ (w = 1
→ (((G ‘w) < (F
‘w) ∧ (F ‘w) <
(H ‘w)) ↔ ((G
‘1) < (F ‘1) ∧ (F ‘1) < (H ‘1)))) |
| 8 | 7 | negbid 463 |
. . 3
⊢ (w = 1
→ (¬ ((G ‘w) < (F
‘w) ∧ (F ‘w) <
(H ‘w)) ↔ ¬ ((G ‘1) < (F ‘1) ∧ (F ‘1) < (H ‘1)))) |
| 9 | | fveq2 2832 |
. . . . . 6
⊢ (w =
(v + 1) → (G ‘w) =
(G ‘(v + 1))) |
| 10 | | fveq2 2832 |
. . . . . 6
⊢ (w =
(v + 1) → (F ‘w) =
(F ‘(v + 1))) |
| 11 | 9, 10 | breq12d 2073 |
. . . . 5
⊢ (w =
(v + 1) → ((G ‘w) <
(F ‘w) ↔ (G
‘(v + 1)) < (F ‘(v +
1)))) |
| 12 | | fveq2 2832 |
. . . . . 6
⊢ (w =
(v + 1) → (H ‘w) =
(H ‘(v + 1))) |
| 13 | 10, 12 | breq12d 2073 |
. . . . 5
⊢ (w =
(v + 1) → ((F ‘w) <
(H ‘w) ↔ (F
‘(v + 1)) < (H ‘(v +
1)))) |
| 14 | 11, 13 | anbi12d 476 |
. . . 4
⊢ (w =
(v + 1) → (((G ‘w) <
(F ‘w) ∧ (F
‘w) < (H ‘w))
↔ ((G ‘(v + 1)) < (F
‘(v + 1)) ∧ (F ‘(v +
1)) < (H ‘(v + 1))))) |
| 15 | 14 | negbid 463 |
. . 3
⊢ (w =
(v + 1) → (¬ ((G ‘w) <
(F ‘w) ∧ (F
‘w) < (H ‘w))
↔ ¬ ((G ‘(v + 1)) < (F
‘(v + 1)) ∧ (F ‘(v +
1)) < (H ‘(v + 1))))) |
| 16 | | fveq2 2832 |
. . . . . 6
⊢ (w =
A → (G ‘w) =
(G ‘A)) |
| 17 | | fveq2 2832 |
. . . . . 6
⊢ (w =
A → (F ‘w) =
(F ‘A)) |
| 18 | 16, 17 | breq12d 2073 |
. . . . 5
⊢ (w =
A → ((G ‘w) <
(F ‘w) ↔ (G
‘A) < (F ‘A))) |
| 19 | | fveq2 2832 |
. . . . . 6
⊢ (w =
A → (H ‘w) =
(H ‘A)) |
| 20 | 17, 19 | breq12d 2073 |
. . . . 5
⊢ (w =
A → ((F ‘w) <
(H ‘w) ↔ (F
‘A) < (H ‘A))) |
| 21 | 18, 20 | anbi12d 476 |
. . . 4
⊢ (w =
A → (((G ‘w) <
(F ‘w) ∧ (F
‘w) < (H ‘w))
↔ ((G ‘A) < (F
‘A) ∧ (F ‘A) <
(H ‘A)))) |
| 22 | 21 | negbid 463 |
. . 3
⊢ (w =
A → (¬ ((G ‘w) <
(F ‘w) ∧ (F
‘w) < (H ‘w))
↔ ¬ ((G ‘A) < (F
‘A) ∧ (F ‘A) <
(H ‘A)))) |
| 23 | | ruclem.0 |
. . . . . . . 8
⊢ F:ℕ–→ℝ |
| 24 | | 1nn 4432 |
. . . . . . . 8
⊢ 1 ∈ ℕ |
| 25 | | ffvrn 2890 |
. . . . . . . 8
⊢ ((F:ℕ–→ℝ ∧ 1 ∈
ℕ) → (F ‘1) ∈
ℝ) |
| 26 | 23, 24, 25 | mp2an 520 |
. . . . . . 7
⊢ (F
‘1) ∈ ℝ |
| 27 | 26 | ltplus1 4384 |
. . . . . 6
⊢ (F
‘1) < ((F ‘1) + 1) |
| 28 | | ruclem.1 |
. . . . . . 7
⊢ C =
({〈1, 〈((F ‘1) + 1),
((F ‘1) + 2)〉〉} ∪
(F ↾ (ℕ ∖
{1}))) |
| 29 | | ruclem.2 |
. . . . . . 7
⊢ D =
{〈〈x, y〉, z〉∣((x ∈ (ℝ × ℝ) ∧ y ∈ ℝ) ∧ z = if(((1st ‘x) < y ∧
y < (2nd ‘x)), 〈(((2 · y) + (2nd ‘x)) / 3), ((y +
(2 · (2nd ‘x))) /
3)〉, 〈(((2 · (1st ‘x)) + (2nd ‘x)) / 3), (((1st ‘x) + (2 · (2nd ‘x))) / 3)〉))} |
| 30 | | ruclem.3 |
. . . . . . 7
⊢ G =
(1st ∘ (DseqC)) |
| 31 | | ruclem.4 |
. . . . . . 7
⊢ H =
(2nd ∘ (DseqC)) |
| 32 | 23, 28, 29, 30, 31 | ruclem16 4900 |
. . . . . 6
⊢ (G
‘1) = ((F ‘1) + 1) |
| 33 | 27, 32 | breqtrr 2082 |
. . . . 5
⊢ (F
‘1) < (G ‘1) |
| 34 | 23, 28, 29, 30, 31, 24 | ruclem22 4906 |
. . . . . 6
⊢ (G
‘1) ∈ ℝ |
| 35 | 26, 34 | ltnsym 4300 |
. . . . 5
⊢ ((F
‘1) < (G ‘1) → ¬
(G ‘1) < (F ‘1)) |
| 36 | 33, 35 | ax-mp 6 |
. . . 4
⊢ ¬ (G ‘1) < (F ‘1) |
| 37 | 36 | intnanr 517 |
. . 3
⊢ ¬ ((G ‘1) < (F ‘1) ∧ (F ‘1) < (H ‘1)) |
| 38 | | opreq1 3006 |
. . . . . . . 8
⊢ (v =
if(v ∈ ℕ, v, 1) → (v
+ 1) = (if(v ∈ ℕ, v, 1) + 1)) |
| 39 | 38 | fveq2d 2836 |
. . . . . . 7
⊢ (v =
if(v ∈ ℕ, v, 1) → (G
‘(v + 1)) = (G ‘(if(v
∈ ℕ, v, 1) + 1))) |
| 40 | 38 | fveq2d 2836 |
. . . . . . 7
⊢ (v =
if(v ∈ ℕ, v, 1) → (F
‘(v + 1)) = (F ‘(if(v
∈ ℕ, v, 1) + 1))) |
| 41 | 39, 40 | breq12d 2073 |
. . . . . 6
⊢ (v =
if(v ∈ ℕ, v, 1) → ((G
‘(v + 1)) < (F ‘(v +
1)) ↔ (G ‘(if(v ∈ ℕ, v, 1) + 1)) < (F ‘(if(v
∈ ℕ, v, 1) + 1)))) |
| 42 | 38 | fveq2d 2836 |
. . . . . . 7
⊢ (v =
if(v ∈ ℕ, v, 1) → (H
‘(v + 1)) = (H ‘(if(v
∈ ℕ, v, 1) + 1))) |
| 43 | 40, 42 | breq12d 2073 |
. . . . . 6
⊢ (v =
if(v ∈ ℕ, v, 1) → ((F
‘(v + 1)) < (H ‘(v +
1)) ↔ (F ‘(if(v ∈ ℕ, v, 1) + 1)) < (H ‘(if(v
∈ ℕ, v, 1) + 1)))) |
| 44 | 41, 43 | anbi12d 476 |
. . . . 5
⊢ (v =
if(v ∈ ℕ, v, 1) → (((G ‘(v +
1)) < (F ‘(v + 1)) ∧ (F
‘(v + 1)) < (H ‘(v +
1))) ↔ ((G ‘(if(v ∈ ℕ, v, 1) + 1)) < (F ‘(if(v
∈ ℕ, v, 1) + 1)) ∧ (F ‘(if(v
∈ ℕ, v, 1) + 1)) < (H ‘(if(v
∈ ℕ, v, 1) + 1))))) |
| 45 | 44 | negbid 463 |
. . . 4
⊢ (v =
if(v ∈ ℕ, v, 1) → (¬ ((G ‘(v +
1)) < (F ‘(v + 1)) ∧ (F
‘(v + 1)) < (H ‘(v +
1))) ↔ ¬ ((G ‘(if(v ∈ ℕ, v, 1) + 1)) < (F ‘(if(v
∈ ℕ, v, 1) + 1)) ∧ (F ‘(if(v
∈ ℕ, v, 1) + 1)) < (H ‘(if(v
∈ ℕ, v, 1) + 1))))) |
| 46 | 24 | elimel 1793 |
. . . . 5
⊢ if(v
∈ ℕ, v, 1) ∈
ℕ |
| 47 | 23, 28, 29, 30, 31, 46 | ruclem28 4912 |
. . . 4
⊢ ¬ ((G ‘(if(v
∈ ℕ, v, 1) + 1)) < (F ‘(if(v
∈ ℕ, v, 1) + 1)) ∧ (F ‘(if(v
∈ ℕ, v, 1) + 1)) < (H ‘(if(v
∈ ℕ, v, 1) + 1))) |
| 48 | 45, 47 | dedth 1784 |
. . 3
⊢ (v
∈ ℕ → ¬ ((G
‘(v + 1)) < (F ‘(v +
1)) ∧ (F ‘(v + 1)) < (H
‘(v + 1)))) |
| 49 | 8, 15, 22, 37, 48 | nn1suc 4435 |
. 2
⊢ (A
∈ ℕ → ¬ ((G
‘A) < (F ‘A)
∧ (F ‘A) < (H
‘A))) |
| 50 | 1, 49 | ax-mp 6 |
1
⊢ ¬ ((G ‘A) <
(F ‘A) ∧ (F
‘A) < (H ‘A)) |