chnerlem1 - Mathbox for Ender Ting

	Mathbox for Ender Ting		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > chnerlem1		Structured version Visualization version GIF version

Theorem chnerlem1 47327

Description: In a chain constructed on an equivalence relation, the last element is equivalent to any. This theorem is a translation of chnub 18579 to equivalence relations. (Contributed by Ender Ting, 29-Jan-2026.)

**Hypotheses**
Ref	Expression
chner.1	⊢ (𝜑 → ∼ Er 𝐴)
chner.2	⊢ (𝜑 → 𝐶 ∈ ( ∼ Chain 𝐴))
chner.3	⊢ (𝜑 → 𝐽 ∈ (0..^(♯‘𝐶)))

**Assertion**
Ref	Expression
chnerlem1	⊢ (𝜑 → (𝐶‘𝐽) ∼ (lastS‘𝐶))

Proof of Theorem chnerlem1 Dummy variables 𝑐 𝑑 𝑖 𝑗 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6827	. . 3 ⊢ (𝑖 = 𝐽 → (𝐶‘𝑖) = (𝐶‘𝐽))
2	1	breq1d 5082	. 2 ⊢ (𝑖 = 𝐽 → ((𝐶‘𝑖) ∼ (lastS‘𝐶) ↔ (𝐶‘𝐽) ∼ (lastS‘𝐶)))
3		fveq2 6827	. . . . 5 ⊢ (𝑐 = ∅ → (♯‘𝑐) = (♯‘∅))
4	3	oveq2d 7372	. . . 4 ⊢ (𝑐 = ∅ → (0..^(♯‘𝑐)) = (0..^(♯‘∅)))
5		fveq1 6826	. . . . 5 ⊢ (𝑐 = ∅ → (𝑐‘𝑖) = (∅‘𝑖))
6		fveq2 6827	. . . . 5 ⊢ (𝑐 = ∅ → (lastS‘𝑐) = (lastS‘∅))
7	5, 6	breq12d 5085	. . . 4 ⊢ (𝑐 = ∅ → ((𝑐‘𝑖) ∼ (lastS‘𝑐) ↔ (∅‘𝑖) ∼ (lastS‘∅)))
8	4, 7	raleqbidv 3313	. . 3 ⊢ (𝑐 = ∅ → (∀𝑖 ∈ (0..^(♯‘𝑐))(𝑐‘𝑖) ∼ (lastS‘𝑐) ↔ ∀𝑖 ∈ (0..^(♯‘∅))(∅‘𝑖) ∼ (lastS‘∅)))
9		fveq2 6827	. . . . 5 ⊢ (𝑐 = 𝑑 → (♯‘𝑐) = (♯‘𝑑))
10	9	oveq2d 7372	. . . 4 ⊢ (𝑐 = 𝑑 → (0..^(♯‘𝑐)) = (0..^(♯‘𝑑)))
11		fveq1 6826	. . . . 5 ⊢ (𝑐 = 𝑑 → (𝑐‘𝑖) = (𝑑‘𝑖))
12		fveq2 6827	. . . . 5 ⊢ (𝑐 = 𝑑 → (lastS‘𝑐) = (lastS‘𝑑))
13	11, 12	breq12d 5085	. . . 4 ⊢ (𝑐 = 𝑑 → ((𝑐‘𝑖) ∼ (lastS‘𝑐) ↔ (𝑑‘𝑖) ∼ (lastS‘𝑑)))
14	10, 13	raleqbidv 3313	. . 3 ⊢ (𝑐 = 𝑑 → (∀𝑖 ∈ (0..^(♯‘𝑐))(𝑐‘𝑖) ∼ (lastS‘𝑐) ↔ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)))
15		fveq2 6827	. . . . . 6 ⊢ (𝑖 = 𝑗 → (𝑐‘𝑖) = (𝑐‘𝑗))
16	15	breq1d 5082	. . . . 5 ⊢ (𝑖 = 𝑗 → ((𝑐‘𝑖) ∼ (lastS‘𝑐) ↔ (𝑐‘𝑗) ∼ (lastS‘𝑐)))
17	16	cbvralvw 3217	. . . 4 ⊢ (∀𝑖 ∈ (0..^(♯‘𝑐))(𝑐‘𝑖) ∼ (lastS‘𝑐) ↔ ∀𝑗 ∈ (0..^(♯‘𝑐))(𝑐‘𝑗) ∼ (lastS‘𝑐))
18		fveq2 6827	. . . . . 6 ⊢ (𝑐 = (𝑑 ++ ⟨“𝑥”⟩) → (♯‘𝑐) = (♯‘(𝑑 ++ ⟨“𝑥”⟩)))
19	18	oveq2d 7372	. . . . 5 ⊢ (𝑐 = (𝑑 ++ ⟨“𝑥”⟩) → (0..^(♯‘𝑐)) = (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩))))
20		fveq1 6826	. . . . . 6 ⊢ (𝑐 = (𝑑 ++ ⟨“𝑥”⟩) → (𝑐‘𝑗) = ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗))
21		fveq2 6827	. . . . . 6 ⊢ (𝑐 = (𝑑 ++ ⟨“𝑥”⟩) → (lastS‘𝑐) = (lastS‘(𝑑 ++ ⟨“𝑥”⟩)))
22	20, 21	breq12d 5085	. . . . 5 ⊢ (𝑐 = (𝑑 ++ ⟨“𝑥”⟩) → ((𝑐‘𝑗) ∼ (lastS‘𝑐) ↔ ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ (lastS‘(𝑑 ++ ⟨“𝑥”⟩))))
23	19, 22	raleqbidv 3313	. . . 4 ⊢ (𝑐 = (𝑑 ++ ⟨“𝑥”⟩) → (∀𝑗 ∈ (0..^(♯‘𝑐))(𝑐‘𝑗) ∼ (lastS‘𝑐) ↔ ∀𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ (lastS‘(𝑑 ++ ⟨“𝑥”⟩))))
24	17, 23	bitrid 284	. . 3 ⊢ (𝑐 = (𝑑 ++ ⟨“𝑥”⟩) → (∀𝑖 ∈ (0..^(♯‘𝑐))(𝑐‘𝑖) ∼ (lastS‘𝑐) ↔ ∀𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ (lastS‘(𝑑 ++ ⟨“𝑥”⟩))))
25		fveq2 6827	. . . . 5 ⊢ (𝑐 = 𝐶 → (♯‘𝑐) = (♯‘𝐶))
26	25	oveq2d 7372	. . . 4 ⊢ (𝑐 = 𝐶 → (0..^(♯‘𝑐)) = (0..^(♯‘𝐶)))
27		fveq1 6826	. . . . 5 ⊢ (𝑐 = 𝐶 → (𝑐‘𝑖) = (𝐶‘𝑖))
28		fveq2 6827	. . . . 5 ⊢ (𝑐 = 𝐶 → (lastS‘𝑐) = (lastS‘𝐶))
29	27, 28	breq12d 5085	. . . 4 ⊢ (𝑐 = 𝐶 → ((𝑐‘𝑖) ∼ (lastS‘𝑐) ↔ (𝐶‘𝑖) ∼ (lastS‘𝐶)))
30	26, 29	raleqbidv 3313	. . 3 ⊢ (𝑐 = 𝐶 → (∀𝑖 ∈ (0..^(♯‘𝑐))(𝑐‘𝑖) ∼ (lastS‘𝑐) ↔ ∀𝑖 ∈ (0..^(♯‘𝐶))(𝐶‘𝑖) ∼ (lastS‘𝐶)))
31		chner.2	. . 3 ⊢ (𝜑 → 𝐶 ∈ ( ∼ Chain 𝐴))
32		0nnn 12204	. . . . . . 7 ⊢ ¬ 0 ∈ ℕ
33		hash0 14320	. . . . . . . 8 ⊢ (♯‘∅) = 0
34	33	eleq1i 2830	. . . . . . 7 ⊢ ((♯‘∅) ∈ ℕ ↔ 0 ∈ ℕ)
35	32, 34	mtbir 324	. . . . . 6 ⊢ ¬ (♯‘∅) ∈ ℕ
36		fzo0n0 13662	. . . . . 6 ⊢ ((0..^(♯‘∅)) ≠ ∅ ↔ (♯‘∅) ∈ ℕ)
37	35, 36	mtbir 324	. . . . 5 ⊢ ¬ (0..^(♯‘∅)) ≠ ∅
38		nne 2938	. . . . 5 ⊢ (¬ (0..^(♯‘∅)) ≠ ∅ ↔ (0..^(♯‘∅)) = ∅)
39	37, 38	mpbi 231	. . . 4 ⊢ (0..^(♯‘∅)) = ∅
40		rzal 4422	. . . 4 ⊢ ((0..^(♯‘∅)) = ∅ → ∀𝑖 ∈ (0..^(♯‘∅))(∅‘𝑖) ∼ (lastS‘∅))
41	39, 40	mp1i 13	. . 3 ⊢ (𝜑 → ∀𝑖 ∈ (0..^(♯‘∅))(∅‘𝑖) ∼ (lastS‘∅))
42		chner.1	. . . . . . . 8 ⊢ (𝜑 → ∼ Er 𝐴)
43	42	ad6antr 742	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → ∼ Er 𝐴)
44		simp-5r 791	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → 𝑥 ∈ 𝐴)
45	43, 44	erref 8654	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → 𝑥 ∼ 𝑥)
46		simp-6r 793	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → 𝑑 ∈ ( ∼ Chain 𝐴))
47	46	chnwrd 18565	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → 𝑑 ∈ Word 𝐴)
48		simplr 774	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩))))
49		ccatws1len 14574	. . . . . . . . . . . . . 14 ⊢ (𝑑 ∈ Word 𝐴 → (♯‘(𝑑 ++ ⟨“𝑥”⟩)) = ((♯‘𝑑) + 1))
50	47, 49	syl 17	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → (♯‘(𝑑 ++ ⟨“𝑥”⟩)) = ((♯‘𝑑) + 1))
51		fveq2 6827	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑑 = ∅ → (♯‘𝑑) = (♯‘∅))
52	51, 33	eqtr2di 2791	. . . . . . . . . . . . . . . . 17 ⊢ (𝑑 = ∅ → 0 = (♯‘𝑑))
53	52	eqcomd 2745	. . . . . . . . . . . . . . . 16 ⊢ (𝑑 = ∅ → (♯‘𝑑) = 0)
54	53	adantl 482	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → (♯‘𝑑) = 0)
55	54	oveq1d 7371	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → ((♯‘𝑑) + 1) = (0 + 1))
56		0p1e1 12289	. . . . . . . . . . . . . 14 ⊢ (0 + 1) = 1
57	55, 56	eqtrdi 2790	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → ((♯‘𝑑) + 1) = 1)
58	50, 57	eqtrd 2774	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → (♯‘(𝑑 ++ ⟨“𝑥”⟩)) = 1)
59	58	oveq2d 7372	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩))) = (0..^1))
60	48, 59	eleqtrd 2841	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → 𝑗 ∈ (0..^1))
61		fzo01 13693	. . . . . . . . . . 11 ⊢ (0..^1) = {0}
62	61	a1i 11	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → (0..^1) = {0})
63	60, 62	eleqtrd 2841	. . . . . . . . 9 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → 𝑗 ∈ {0})
64		elsni 4572	. . . . . . . . 9 ⊢ (𝑗 ∈ {0} → 𝑗 = 0)
65	63, 64	syl 17	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → 𝑗 = 0)
66	52	adantl 482	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → 0 = (♯‘𝑑))
67	65, 66	eqtrd 2774	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → 𝑗 = (♯‘𝑑))
68		ccats1val2 14581	. . . . . . 7 ⊢ ((𝑑 ∈ Word 𝐴 ∧ 𝑥 ∈ 𝐴 ∧ 𝑗 = (♯‘𝑑)) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) = 𝑥)
69	47, 44, 67, 68	syl3anc 1379	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) = 𝑥)
70		lswccats1 14588	. . . . . . 7 ⊢ ((𝑑 ∈ Word 𝐴 ∧ 𝑥 ∈ 𝐴) → (lastS‘(𝑑 ++ ⟨“𝑥”⟩)) = 𝑥)
71	47, 44, 70	syl2anc 590	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → (lastS‘(𝑑 ++ ⟨“𝑥”⟩)) = 𝑥)
72	45, 69, 71	3brtr4d 5104	. . . . 5 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 = ∅) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ (lastS‘(𝑑 ++ ⟨“𝑥”⟩)))
73	42	ad6antr 742	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → ∼ Er 𝐴)
74		simp-6r 793	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → 𝑑 ∈ ( ∼ Chain 𝐴))
75	74	chnwrd 18565	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → 𝑑 ∈ Word 𝐴)
76	75	adantr 481	. . . . . . . . . 10 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 = (♯‘𝑑)) → 𝑑 ∈ Word 𝐴)
77		simp-6r 793	. . . . . . . . . 10 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 = (♯‘𝑑)) → 𝑥 ∈ 𝐴)
78		simpr 485	. . . . . . . . . 10 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 = (♯‘𝑑)) → 𝑗 = (♯‘𝑑))
79	76, 77, 78, 68	syl3anc 1379	. . . . . . . . 9 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 = (♯‘𝑑)) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) = 𝑥)
80		simp-4r 789	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥))
81		neneq 2940	. . . . . . . . . . . . 13 ⊢ (𝑑 ≠ ∅ → ¬ 𝑑 = ∅)
82	81	adantl 482	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → ¬ 𝑑 = ∅)
83	80, 82	orcnd 884	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → (lastS‘𝑑) ∼ 𝑥)
84	73, 83	ersym 8646	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → 𝑥 ∼ (lastS‘𝑑))
85	84	adantr 481	. . . . . . . . 9 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 = (♯‘𝑑)) → 𝑥 ∼ (lastS‘𝑑))
86	79, 85	eqbrtrd 5094	. . . . . . . 8 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 = (♯‘𝑑)) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ (lastS‘𝑑))
87		fveq2 6827	. . . . . . . . . 10 ⊢ (𝑖 = 𝑗 → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑖) = ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗))
88	87	breq1d 5082	. . . . . . . . 9 ⊢ (𝑖 = 𝑗 → (((𝑑 ++ ⟨“𝑥”⟩)‘𝑖) ∼ (lastS‘𝑑) ↔ ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ (lastS‘𝑑)))
89		simpr 485	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) → ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑))
90	89	ad3antrrr 736	. . . . . . . . . 10 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑))
91		simplr 774	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑖 ∈ (0..^(♯‘𝑑))) → 𝑑 ∈ ( ∼ Chain 𝐴))
92	91	chnwrd 18565	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑖 ∈ (0..^(♯‘𝑑))) → 𝑑 ∈ Word 𝐴)
93		simpr 485	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑖 ∈ (0..^(♯‘𝑑))) → 𝑖 ∈ (0..^(♯‘𝑑)))
94		ccats1val1 14580	. . . . . . . . . . . . . . 15 ⊢ ((𝑑 ∈ Word 𝐴 ∧ 𝑖 ∈ (0..^(♯‘𝑑))) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑖) = (𝑑‘𝑖))
95	92, 93, 94	syl2anc 590	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑖 ∈ (0..^(♯‘𝑑))) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑖) = (𝑑‘𝑖))
96	95	eqcomd 2745	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑖 ∈ (0..^(♯‘𝑑))) → (𝑑‘𝑖) = ((𝑑 ++ ⟨“𝑥”⟩)‘𝑖))
97	96	breq1d 5082	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑖 ∈ (0..^(♯‘𝑑))) → ((𝑑‘𝑖) ∼ (lastS‘𝑑) ↔ ((𝑑 ++ ⟨“𝑥”⟩)‘𝑖) ∼ (lastS‘𝑑)))
98	97	ralbidva 3160	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) → (∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑) ↔ ∀𝑖 ∈ (0..^(♯‘𝑑))((𝑑 ++ ⟨“𝑥”⟩)‘𝑖) ∼ (lastS‘𝑑)))
99	98	ad6antr 742	. . . . . . . . . 10 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → (∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑) ↔ ∀𝑖 ∈ (0..^(♯‘𝑑))((𝑑 ++ ⟨“𝑥”⟩)‘𝑖) ∼ (lastS‘𝑑)))
100	90, 99	mpbid 233	. . . . . . . . 9 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → ∀𝑖 ∈ (0..^(♯‘𝑑))((𝑑 ++ ⟨“𝑥”⟩)‘𝑖) ∼ (lastS‘𝑑))
101		simpr 485	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) → 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩))))
102		simp-5r 791	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) → 𝑑 ∈ ( ∼ Chain 𝐴))
103	102	chnwrd 18565	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) → 𝑑 ∈ Word 𝐴)
104	103, 49	syl 17	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) → (♯‘(𝑑 ++ ⟨“𝑥”⟩)) = ((♯‘𝑑) + 1))
105	104	oveq2d 7372	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) → (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩))) = (0..^((♯‘𝑑) + 1)))
106	101, 105	eleqtrd 2841	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) → 𝑗 ∈ (0..^((♯‘𝑑) + 1)))
107	106	ad2antrr 732	. . . . . . . . . . 11 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → 𝑗 ∈ (0..^((♯‘𝑑) + 1)))
108		simp-7r 795	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → 𝑑 ∈ ( ∼ Chain 𝐴))
109	108	chnwrd 18565	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → 𝑑 ∈ Word 𝐴)
110		lencl 14486	. . . . . . . . . . . . 13 ⊢ (𝑑 ∈ Word 𝐴 → (♯‘𝑑) ∈ ℕ₀)
111		nn0uz 12817	. . . . . . . . . . . . . . 15 ⊢ ℕ₀ = (ℤ_≥‘0)
112	111	eleq2i 2831	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑑) ∈ ℕ₀ ↔ (♯‘𝑑) ∈ (ℤ_≥‘0))
113	112	biimpi 217	. . . . . . . . . . . . 13 ⊢ ((♯‘𝑑) ∈ ℕ₀ → (♯‘𝑑) ∈ (ℤ_≥‘0))
114	109, 110, 113	3syl 18	. . . . . . . . . . . 12 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → (♯‘𝑑) ∈ (ℤ_≥‘0))
115		fzosplitsni 13725	. . . . . . . . . . . 12 ⊢ ((♯‘𝑑) ∈ (ℤ_≥‘0) → (𝑗 ∈ (0..^((♯‘𝑑) + 1)) ↔ (𝑗 ∈ (0..^(♯‘𝑑)) ∨ 𝑗 = (♯‘𝑑))))
116	114, 115	syl 17	. . . . . . . . . . 11 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → (𝑗 ∈ (0..^((♯‘𝑑) + 1)) ↔ (𝑗 ∈ (0..^(♯‘𝑑)) ∨ 𝑗 = (♯‘𝑑))))
117	107, 116	mpbid 233	. . . . . . . . . 10 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → (𝑗 ∈ (0..^(♯‘𝑑)) ∨ 𝑗 = (♯‘𝑑)))
118		df-ne 2935	. . . . . . . . . . 11 ⊢ (𝑗 ≠ (♯‘𝑑) ↔ ¬ 𝑗 = (♯‘𝑑))
119	118	bilani 505	. . . . . . . . . 10 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → ¬ 𝑗 = (♯‘𝑑))
120	117, 119	olcnd 883	. . . . . . . . 9 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → 𝑗 ∈ (0..^(♯‘𝑑)))
121	88, 100, 120	rspcdva 3561	. . . . . . . 8 ⊢ ((((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) ∧ 𝑗 ≠ (♯‘𝑑)) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ (lastS‘𝑑))
122	86, 121	pm2.61dane 3021	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ (lastS‘𝑑))
123	73, 122, 83	ertrd 8650	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ 𝑥)
124		simp-5r 791	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → 𝑥 ∈ 𝐴)
125	75, 124, 70	syl2anc 590	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → (lastS‘(𝑑 ++ ⟨“𝑥”⟩)) = 𝑥)
126	123, 125	breqtrrd 5100	. . . . 5 ⊢ (((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) ∧ 𝑑 ≠ ∅) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ (lastS‘(𝑑 ++ ⟨“𝑥”⟩)))
127	72, 126	pm2.61dane 3021	. . . 4 ⊢ ((((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) ∧ 𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))) → ((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ (lastS‘(𝑑 ++ ⟨“𝑥”⟩)))
128	127	ralrimiva 3131	. . 3 ⊢ (((((𝜑 ∧ 𝑑 ∈ ( ∼ Chain 𝐴)) ∧ 𝑥 ∈ 𝐴) ∧ (𝑑 = ∅ ∨ (lastS‘𝑑) ∼ 𝑥)) ∧ ∀𝑖 ∈ (0..^(♯‘𝑑))(𝑑‘𝑖) ∼ (lastS‘𝑑)) → ∀𝑗 ∈ (0..^(♯‘(𝑑 ++ ⟨“𝑥”⟩)))((𝑑 ++ ⟨“𝑥”⟩)‘𝑗) ∼ (lastS‘(𝑑 ++ ⟨“𝑥”⟩)))
129	8, 14, 24, 30, 31, 41, 128	chnind 18578	. 2 ⊢ (𝜑 → ∀𝑖 ∈ (0..^(♯‘𝐶))(𝐶‘𝑖) ∼ (lastS‘𝐶))
130		chner.3	. 2 ⊢ (𝜑 → 𝐽 ∈ (0..^(♯‘𝐶)))
131	2, 129, 130	rspcdva 3561	1 ⊢ (𝜑 → (𝐶‘𝐽) ∼ (lastS‘𝐶))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 207 ∧ wa 396 ∨ wo 853 = wceq 1547 ∈ wcel 2119 ≠ wne 2934 ∀wral 3053 ∅c0 4261 {csn 4555 class class class wbr 5072 ‘cfv 6485 (class class class)co 7356 Er wer 8630 0cc0 11029 1c1 11030 + caddc 11032 ℕcn 12165 ℕ₀cn0 12428 ℤ_≥cuz 12779 ..^cfzo 13599 ♯chash 14283 Word cword 14466 lastSclsw 14515 ++ cconcat 14523 ⟨“cs1 14549 Chain cchn 18562

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1802 ax-4 1816 ax-5 1917 ax-6 1974 ax-7 2015 ax-8 2121 ax-9 2129 ax-10 2152 ax-11 2168 ax-12 2189 ax-ext 2711 ax-rep 5199 ax-sep 5218 ax-nul 5228 ax-pow 5294 ax-pr 5362 ax-un 7678 ax-cnex 11085 ax-resscn 11086 ax-1cn 11087 ax-icn 11088 ax-addcl 11089 ax-addrcl 11090 ax-mulcl 11091 ax-mulrcl 11092 ax-mulcom 11093 ax-addass 11094 ax-mulass 11095 ax-distr 11096 ax-i2m1 11097 ax-1ne0 11098 ax-1rid 11099 ax-rnegex 11100 ax-rrecex 11101 ax-cnre 11102 ax-pre-lttri 11103 ax-pre-lttrn 11104 ax-pre-ltadd 11105 ax-pre-mulgt0 11106

This theorem depends on definitions: df-bi 208 df-an 397 df-or 854 df-3or 1093 df-3an 1094 df-tru 1550 df-fal 1560 df-ex 1787 df-nf 1791 df-sb 2074 df-mo 2543 df-eu 2573 df-clab 2718 df-cleq 2731 df-clel 2814 df-nfc 2888 df-ne 2935 df-nel 3039 df-ral 3054 df-rex 3064 df-reu 3345 df-rab 3392 df-v 3433 df-sbc 3724 df-csb 3832 df-dif 3886 df-un 3888 df-in 3890 df-ss 3900 df-pss 3903 df-nul 4262 df-if 4455 df-pw 4531 df-sn 4556 df-pr 4558 df-op 4562 df-uni 4839 df-int 4878 df-iun 4923 df-br 5073 df-opab 5135 df-mpt 5154 df-tr 5180 df-id 5513 df-eprel 5518 df-po 5526 df-so 5527 df-fr 5571 df-we 5573 df-xp 5624 df-rel 5625 df-cnv 5626 df-co 5627 df-dm 5628 df-rn 5629 df-res 5630 df-ima 5631 df-pred 6252 df-ord 6313 df-on 6314 df-lim 6315 df-suc 6316 df-iota 6441 df-fun 6487 df-fn 6488 df-f 6489 df-f1 6490 df-fo 6491 df-f1o 6492 df-fv 6493 df-riota 7313 df-ov 7359 df-oprab 7360 df-mpo 7361 df-om 7807 df-1st 7931 df-2nd 7932 df-frecs 8221 df-wrecs 8252 df-recs 8301 df-rdg 8339 df-1o 8395 df-er 8633 df-en 8884 df-dom 8885 df-sdom 8886 df-fin 8887 df-card 9854 df-pnf 11172 df-mnf 11173 df-xr 11174 df-ltxr 11175 df-le 11176 df-sub 11370 df-neg 11371 df-nn 12166 df-n0 12429 df-xnn0 12502 df-z 12516 df-uz 12780 df-rp 12934 df-fz 13453 df-fzo 13600 df-hash 14284 df-word 14467 df-lsw 14516 df-concat 14524 df-s1 14550 df-substr 14595 df-pfx 14625 df-chn 18563

This theorem is referenced by: chnerlem2 47328

W3C validator