Proof of Theorem chnerlem2
| Step | Hyp | Ref
| Expression |
| 1 | | chner.1 |
. . . 4
⊢ (𝜑 → ∼ Er 𝐴) |
| 2 | 1 | adantr 486 |
. . 3
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → ∼ Er 𝐴) |
| 3 | | chner.2 |
. . . . 5
⊢ (𝜑 → 𝐶 ∈ ( ∼ Chain 𝐴)) |
| 4 | 3 | adantr 486 |
. . . 4
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → 𝐶 ∈ ( ∼ Chain 𝐴)) |
| 5 | | chner.3 |
. . . . . 6
⊢ (𝜑 → 𝐽 ∈ (0..^(♯‘𝐶))) |
| 6 | 5 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → 𝐽 ∈ (0..^(♯‘𝐶))) |
| 7 | | fzofzp1 13823 |
. . . . 5
⊢ (𝐽 ∈
(0..^(♯‘𝐶))
→ (𝐽 + 1) ∈
(0...(♯‘𝐶))) |
| 8 | 6, 7 | syl 18 |
. . . 4
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → (𝐽 + 1) ∈ (0...(♯‘𝐶))) |
| 9 | 4, 8 | pfxchn 18701 |
. . 3
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → (𝐶 prefix (𝐽 + 1)) ∈ ( ∼ Chain 𝐴)) |
| 10 | | animorrl 996 |
. . . . 5
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → (𝐼 ∈ (0..^𝐽) ∨ 𝐼 = 𝐽)) |
| 11 | | elfzonn0 13766 |
. . . . . . . 8
⊢ (𝐽 ∈
(0..^(♯‘𝐶))
→ 𝐽 ∈
ℕ0) |
| 12 | | elnn0uz 12931 |
. . . . . . . . 9
⊢ (𝐽 ∈ ℕ0
↔ 𝐽 ∈
(ℤ≥‘0)) |
| 13 | 12 | biimpi 219 |
. . . . . . . 8
⊢ (𝐽 ∈ ℕ0
→ 𝐽 ∈
(ℤ≥‘0)) |
| 14 | 5, 11, 13 | 3syl 19 |
. . . . . . 7
⊢ (𝜑 → 𝐽 ∈
(ℤ≥‘0)) |
| 15 | 14 | adantr 486 |
. . . . . 6
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → 𝐽 ∈
(ℤ≥‘0)) |
| 16 | | fzosplitsni 13838 |
. . . . . 6
⊢ (𝐽 ∈
(ℤ≥‘0) → (𝐼 ∈ (0..^(𝐽 + 1)) ↔ (𝐼 ∈ (0..^𝐽) ∨ 𝐼 = 𝐽))) |
| 17 | 15, 16 | syl 18 |
. . . . 5
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → (𝐼 ∈ (0..^(𝐽 + 1)) ↔ (𝐼 ∈ (0..^𝐽) ∨ 𝐼 = 𝐽))) |
| 18 | 10, 17 | mpbird 260 |
. . . 4
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → 𝐼 ∈ (0..^(𝐽 + 1))) |
| 19 | | simpr 490 |
. . . . 5
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^(𝐽 + 1))) → 𝐼 ∈ (0..^(𝐽 + 1))) |
| 20 | 3 | chnwrd 18699 |
. . . . . . . 8
⊢ (𝜑 → 𝐶 ∈ Word 𝐴) |
| 21 | 20 | adantr 486 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^(𝐽 + 1))) → 𝐶 ∈ Word 𝐴) |
| 22 | 5, 7 | syl 18 |
. . . . . . . 8
⊢ (𝜑 → (𝐽 + 1) ∈ (0...(♯‘𝐶))) |
| 23 | 22 | adantr 486 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^(𝐽 + 1))) → (𝐽 + 1) ∈ (0...(♯‘𝐶))) |
| 24 | | pfxlen 14756 |
. . . . . . 7
⊢ ((𝐶 ∈ Word 𝐴 ∧ (𝐽 + 1) ∈ (0...(♯‘𝐶))) → (♯‘(𝐶 prefix (𝐽 + 1))) = (𝐽 + 1)) |
| 25 | 21, 23, 24 | syl2anc 596 |
. . . . . 6
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^(𝐽 + 1))) → (♯‘(𝐶 prefix (𝐽 + 1))) = (𝐽 + 1)) |
| 26 | 25 | oveq2d 7430 |
. . . . 5
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^(𝐽 + 1))) → (0..^(♯‘(𝐶 prefix (𝐽 + 1)))) = (0..^(𝐽 + 1))) |
| 27 | 19, 26 | eleqtrrd 2863 |
. . . 4
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^(𝐽 + 1))) → 𝐼 ∈ (0..^(♯‘(𝐶 prefix (𝐽 + 1))))) |
| 28 | 18, 27 | syldan 603 |
. . 3
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → 𝐼 ∈ (0..^(♯‘(𝐶 prefix (𝐽 + 1))))) |
| 29 | 2, 9, 28 | chnerlem1 47713 |
. 2
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → ((𝐶 prefix (𝐽 + 1))‘𝐼) ∼ (lastS‘(𝐶 prefix (𝐽 + 1)))) |
| 30 | 20 | adantr 486 |
. . 3
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → 𝐶 ∈ Word 𝐴) |
| 31 | | pfxfv 14755 |
. . 3
⊢ ((𝐶 ∈ Word 𝐴 ∧ (𝐽 + 1) ∈ (0...(♯‘𝐶)) ∧ 𝐼 ∈ (0..^(𝐽 + 1))) → ((𝐶 prefix (𝐽 + 1))‘𝐼) = (𝐶‘𝐼)) |
| 32 | 30, 8, 18, 31 | syl3anc 1398 |
. 2
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → ((𝐶 prefix (𝐽 + 1))‘𝐼) = (𝐶‘𝐼)) |
| 33 | | lencl 14601 |
. . . . . . 7
⊢ (𝐶 ∈ Word 𝐴 → (♯‘𝐶) ∈
ℕ0) |
| 34 | 20, 33 | syl 18 |
. . . . . 6
⊢ (𝜑 → (♯‘𝐶) ∈
ℕ0) |
| 35 | | fz0add1fz1 13794 |
. . . . . 6
⊢
(((♯‘𝐶)
∈ ℕ0 ∧ 𝐽 ∈ (0..^(♯‘𝐶))) → (𝐽 + 1) ∈ (1...(♯‘𝐶))) |
| 36 | 34, 5, 35 | syl2anc 596 |
. . . . 5
⊢ (𝜑 → (𝐽 + 1) ∈ (1...(♯‘𝐶))) |
| 37 | 36 | adantr 486 |
. . . 4
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → (𝐽 + 1) ∈ (1...(♯‘𝐶))) |
| 38 | | pfxfvlsw 14767 |
. . . 4
⊢ ((𝐶 ∈ Word 𝐴 ∧ (𝐽 + 1) ∈ (1...(♯‘𝐶))) → (lastS‘(𝐶 prefix (𝐽 + 1))) = (𝐶‘((𝐽 + 1) − 1))) |
| 39 | 30, 37, 38 | syl2anc 596 |
. . 3
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → (lastS‘(𝐶 prefix (𝐽 + 1))) = (𝐶‘((𝐽 + 1) − 1))) |
| 40 | | elfzoel2 13716 |
. . . . . . 7
⊢ (𝐼 ∈ (0..^𝐽) → 𝐽 ∈ ℤ) |
| 41 | 40 | adantl 487 |
. . . . . 6
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → 𝐽 ∈ ℤ) |
| 42 | 41 | zcnd 12729 |
. . . . 5
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → 𝐽 ∈ ℂ) |
| 43 | | 1cnd 11229 |
. . . . 5
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → 1 ∈ ℂ) |
| 44 | 42, 43 | pncand 11597 |
. . . 4
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → ((𝐽 + 1) − 1) = 𝐽) |
| 45 | 44 | fveq2d 6883 |
. . 3
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → (𝐶‘((𝐽 + 1) − 1)) = (𝐶‘𝐽)) |
| 46 | 39, 45 | eqtrd 2795 |
. 2
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → (lastS‘(𝐶 prefix (𝐽 + 1))) = (𝐶‘𝐽)) |
| 47 | 29, 32, 46 | 3brtr3d 5136 |
1
⊢ ((𝜑 ∧ 𝐼 ∈ (0..^𝐽)) → (𝐶‘𝐼) ∼ (𝐶‘𝐽)) |