swrdccatin1 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > swrdccatin1		Structured version Visualization version GIF version

Theorem swrdccatin1 14674

Description: The subword of a concatenation of two words within the first of the concatenated words. (Contributed by Alexander van der Vekens, 28-Mar-2018.)

**Assertion**
Ref	Expression
swrdccatin1	⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → ((𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 𝑁⟩)))

Proof of Theorem swrdccatin1 Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq2 7416	. . . . . 6 ⊢ ((♯‘𝐴) = 0 → (0...(♯‘𝐴)) = (0...0))
2	1	eleq2d 2819	. . . . 5 ⊢ ((♯‘𝐴) = 0 → (𝑁 ∈ (0...(♯‘𝐴)) ↔ 𝑁 ∈ (0...0)))
3		elfz1eq 13511	. . . . . 6 ⊢ (𝑁 ∈ (0...0) → 𝑁 = 0)
4		elfz1eq 13511	. . . . . . . 8 ⊢ (𝑀 ∈ (0...0) → 𝑀 = 0)
5		swrd00 14593	. . . . . . . . . 10 ⊢ ((𝐴 ++ 𝐵) substr ⟨0, 0⟩) = ∅
6		swrd00 14593	. . . . . . . . . 10 ⊢ (𝐴 substr ⟨0, 0⟩) = ∅
7	5, 6	eqtr4i 2763	. . . . . . . . 9 ⊢ ((𝐴 ++ 𝐵) substr ⟨0, 0⟩) = (𝐴 substr ⟨0, 0⟩)
8		opeq1 4873	. . . . . . . . . 10 ⊢ (𝑀 = 0 → ⟨𝑀, 0⟩ = ⟨0, 0⟩)
9	8	oveq2d 7424	. . . . . . . . 9 ⊢ (𝑀 = 0 → ((𝐴 ++ 𝐵) substr ⟨𝑀, 0⟩) = ((𝐴 ++ 𝐵) substr ⟨0, 0⟩))
10	8	oveq2d 7424	. . . . . . . . 9 ⊢ (𝑀 = 0 → (𝐴 substr ⟨𝑀, 0⟩) = (𝐴 substr ⟨0, 0⟩))
11	7, 9, 10	3eqtr4a 2798	. . . . . . . 8 ⊢ (𝑀 = 0 → ((𝐴 ++ 𝐵) substr ⟨𝑀, 0⟩) = (𝐴 substr ⟨𝑀, 0⟩))
12	4, 11	syl 17	. . . . . . 7 ⊢ (𝑀 ∈ (0...0) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 0⟩) = (𝐴 substr ⟨𝑀, 0⟩))
13		oveq2 7416	. . . . . . . . 9 ⊢ (𝑁 = 0 → (0...𝑁) = (0...0))
14	13	eleq2d 2819	. . . . . . . 8 ⊢ (𝑁 = 0 → (𝑀 ∈ (0...𝑁) ↔ 𝑀 ∈ (0...0)))
15		opeq2 4874	. . . . . . . . . 10 ⊢ (𝑁 = 0 → ⟨𝑀, 𝑁⟩ = ⟨𝑀, 0⟩)
16	15	oveq2d 7424	. . . . . . . . 9 ⊢ (𝑁 = 0 → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = ((𝐴 ++ 𝐵) substr ⟨𝑀, 0⟩))
17	15	oveq2d 7424	. . . . . . . . 9 ⊢ (𝑁 = 0 → (𝐴 substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 0⟩))
18	16, 17	eqeq12d 2748	. . . . . . . 8 ⊢ (𝑁 = 0 → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 𝑁⟩) ↔ ((𝐴 ++ 𝐵) substr ⟨𝑀, 0⟩) = (𝐴 substr ⟨𝑀, 0⟩)))
19	14, 18	imbi12d 344	. . . . . . 7 ⊢ (𝑁 = 0 → ((𝑀 ∈ (0...𝑁) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 𝑁⟩)) ↔ (𝑀 ∈ (0...0) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 0⟩) = (𝐴 substr ⟨𝑀, 0⟩))))
20	12, 19	mpbiri 257	. . . . . 6 ⊢ (𝑁 = 0 → (𝑀 ∈ (0...𝑁) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 𝑁⟩)))
21	3, 20	syl 17	. . . . 5 ⊢ (𝑁 ∈ (0...0) → (𝑀 ∈ (0...𝑁) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 𝑁⟩)))
22	2, 21	syl6bi 252	. . . 4 ⊢ ((♯‘𝐴) = 0 → (𝑁 ∈ (0...(♯‘𝐴)) → (𝑀 ∈ (0...𝑁) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 𝑁⟩))))
23	22	impcomd 412	. . 3 ⊢ ((♯‘𝐴) = 0 → ((𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 𝑁⟩)))
24	23	adantl 482	. 2 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) = 0) → ((𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 𝑁⟩)))
25		ccatcl 14523	. . . . . 6 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → (𝐴 ++ 𝐵) ∈ Word 𝑉)
26	25	ad2antrr 724	. . . . 5 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) → (𝐴 ++ 𝐵) ∈ Word 𝑉)
27		simprl 769	. . . . 5 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) → 𝑀 ∈ (0...𝑁))
28		elfzelfzccat 14529	. . . . . . 7 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → (𝑁 ∈ (0...(♯‘𝐴)) → 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵)))))
29	28	imp 407	. . . . . 6 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ 𝑁 ∈ (0...(♯‘𝐴))) → 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵))))
30	29	ad2ant2rl 747	. . . . 5 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) → 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵))))
31		swrdvalfn 14600	. . . . 5 ⊢ (((𝐴 ++ 𝐵) ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) Fn (0..^(𝑁 − 𝑀)))
32	26, 27, 30, 31	syl3anc 1371	. . . 4 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) Fn (0..^(𝑁 − 𝑀)))
33		3anass 1095	. . . . . . . 8 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))) ↔ (𝐴 ∈ Word 𝑉 ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))))
34	33	simplbi2 501	. . . . . . 7 ⊢ (𝐴 ∈ Word 𝑉 → ((𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))) → (𝐴 ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))))
35	34	ad2antrr 724	. . . . . 6 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) → ((𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))) → (𝐴 ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))))
36	35	imp 407	. . . . 5 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) → (𝐴 ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))))
37		swrdvalfn 14600	. . . . 5 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))) → (𝐴 substr ⟨𝑀, 𝑁⟩) Fn (0..^(𝑁 − 𝑀)))
38	36, 37	syl 17	. . . 4 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) → (𝐴 substr ⟨𝑀, 𝑁⟩) Fn (0..^(𝑁 − 𝑀)))
39		simp-4l 781	. . . . . 6 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → 𝐴 ∈ Word 𝑉)
40		simp-4r 782	. . . . . 6 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → 𝐵 ∈ Word 𝑉)
41		elfznn0 13593	. . . . . . . . . 10 ⊢ (𝑀 ∈ (0...𝑁) → 𝑀 ∈ ℕ₀)
42		nn0addcl 12506	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀) → (𝑘 + 𝑀) ∈ ℕ₀)
43	42	expcom 414	. . . . . . . . . 10 ⊢ (𝑀 ∈ ℕ₀ → (𝑘 ∈ ℕ₀ → (𝑘 + 𝑀) ∈ ℕ₀))
44	41, 43	syl 17	. . . . . . . . 9 ⊢ (𝑀 ∈ (0...𝑁) → (𝑘 ∈ ℕ₀ → (𝑘 + 𝑀) ∈ ℕ₀))
45	44	ad2antrl 726	. . . . . . . 8 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) → (𝑘 ∈ ℕ₀ → (𝑘 + 𝑀) ∈ ℕ₀))
46		elfzonn0 13676	. . . . . . . 8 ⊢ (𝑘 ∈ (0..^(𝑁 − 𝑀)) → 𝑘 ∈ ℕ₀)
47	45, 46	impel 506	. . . . . . 7 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → (𝑘 + 𝑀) ∈ ℕ₀)
48		lencl 14482	. . . . . . . . . . 11 ⊢ (𝐴 ∈ Word 𝑉 → (♯‘𝐴) ∈ ℕ₀)
49		elnnne0 12485	. . . . . . . . . . . 12 ⊢ ((♯‘𝐴) ∈ ℕ ↔ ((♯‘𝐴) ∈ ℕ₀ ∧ (♯‘𝐴) ≠ 0))
50	49	simplbi2 501	. . . . . . . . . . 11 ⊢ ((♯‘𝐴) ∈ ℕ₀ → ((♯‘𝐴) ≠ 0 → (♯‘𝐴) ∈ ℕ))
51	48, 50	syl 17	. . . . . . . . . 10 ⊢ (𝐴 ∈ Word 𝑉 → ((♯‘𝐴) ≠ 0 → (♯‘𝐴) ∈ ℕ))
52	51	adantr 481	. . . . . . . . 9 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → ((♯‘𝐴) ≠ 0 → (♯‘𝐴) ∈ ℕ))
53	52	imp 407	. . . . . . . 8 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) → (♯‘𝐴) ∈ ℕ)
54	53	ad2antrr 724	. . . . . . 7 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → (♯‘𝐴) ∈ ℕ)
55		elfzo0 13672	. . . . . . . . 9 ⊢ (𝑘 ∈ (0..^(𝑁 − 𝑀)) ↔ (𝑘 ∈ ℕ₀ ∧ (𝑁 − 𝑀) ∈ ℕ ∧ 𝑘 < (𝑁 − 𝑀)))
56		elfz2nn0 13591	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ (0...(♯‘𝐴)) ↔ (𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀ ∧ 𝑁 ≤ (♯‘𝐴)))
57		nn0re 12480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ ℕ₀ → 𝑘 ∈ ℝ)
58	57	ad2antrl 726	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀) ∧ (𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀)) → 𝑘 ∈ ℝ)
59		nn0re 12480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀 ∈ ℕ₀ → 𝑀 ∈ ℝ)
60	59	ad2antll 727	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀) ∧ (𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀)) → 𝑀 ∈ ℝ)
61		nn0re 12480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ ℝ)
62	61	ad2antrr 724	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀) ∧ (𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀)) → 𝑁 ∈ ℝ)
63	58, 60, 62	ltaddsubd 11813	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀) ∧ (𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀)) → ((𝑘 + 𝑀) < 𝑁 ↔ 𝑘 < (𝑁 − 𝑀)))
64		nn0readdcl 12537	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀) → (𝑘 + 𝑀) ∈ ℝ)
65	64	adantl 482	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀) ∧ (𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀)) → (𝑘 + 𝑀) ∈ ℝ)
66		nn0re 12480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((♯‘𝐴) ∈ ℕ₀ → (♯‘𝐴) ∈ ℝ)
67	66	ad2antlr 725	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀) ∧ (𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀)) → (♯‘𝐴) ∈ ℝ)
68		ltletr 11305	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑘 + 𝑀) ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (♯‘𝐴) ∈ ℝ) → (((𝑘 + 𝑀) < 𝑁 ∧ 𝑁 ≤ (♯‘𝐴)) → (𝑘 + 𝑀) < (♯‘𝐴)))
69	65, 62, 67, 68	syl3anc 1371	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀) ∧ (𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀)) → (((𝑘 + 𝑀) < 𝑁 ∧ 𝑁 ≤ (♯‘𝐴)) → (𝑘 + 𝑀) < (♯‘𝐴)))
70	69	expd 416	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀) ∧ (𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀)) → ((𝑘 + 𝑀) < 𝑁 → (𝑁 ≤ (♯‘𝐴) → (𝑘 + 𝑀) < (♯‘𝐴))))
71	63, 70	sylbird 259	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀) ∧ (𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀)) → (𝑘 < (𝑁 − 𝑀) → (𝑁 ≤ (♯‘𝐴) → (𝑘 + 𝑀) < (♯‘𝐴))))
72	71	ex 413	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀) → ((𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀) → (𝑘 < (𝑁 − 𝑀) → (𝑁 ≤ (♯‘𝐴) → (𝑘 + 𝑀) < (♯‘𝐴)))))
73	72	com24 95	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀) → (𝑁 ≤ (♯‘𝐴) → (𝑘 < (𝑁 − 𝑀) → ((𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀) → (𝑘 + 𝑀) < (♯‘𝐴)))))
74	73	3impia 1117	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀ ∧ 𝑁 ≤ (♯‘𝐴)) → (𝑘 < (𝑁 − 𝑀) → ((𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀) → (𝑘 + 𝑀) < (♯‘𝐴))))
75	74	com13 88	. . . . . . . . . . . . . . 15 ⊢ ((𝑘 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀) → (𝑘 < (𝑁 − 𝑀) → ((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀ ∧ 𝑁 ≤ (♯‘𝐴)) → (𝑘 + 𝑀) < (♯‘𝐴))))
76	75	impancom 452	. . . . . . . . . . . . . 14 ⊢ ((𝑘 ∈ ℕ₀ ∧ 𝑘 < (𝑁 − 𝑀)) → (𝑀 ∈ ℕ₀ → ((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀ ∧ 𝑁 ≤ (♯‘𝐴)) → (𝑘 + 𝑀) < (♯‘𝐴))))
77	76	3adant2 1131	. . . . . . . . . . . . 13 ⊢ ((𝑘 ∈ ℕ₀ ∧ (𝑁 − 𝑀) ∈ ℕ ∧ 𝑘 < (𝑁 − 𝑀)) → (𝑀 ∈ ℕ₀ → ((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀ ∧ 𝑁 ≤ (♯‘𝐴)) → (𝑘 + 𝑀) < (♯‘𝐴))))
78	77	com13 88	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ₀ ∧ 𝑁 ≤ (♯‘𝐴)) → (𝑀 ∈ ℕ₀ → ((𝑘 ∈ ℕ₀ ∧ (𝑁 − 𝑀) ∈ ℕ ∧ 𝑘 < (𝑁 − 𝑀)) → (𝑘 + 𝑀) < (♯‘𝐴))))
79	56, 78	sylbi 216	. . . . . . . . . . 11 ⊢ (𝑁 ∈ (0...(♯‘𝐴)) → (𝑀 ∈ ℕ₀ → ((𝑘 ∈ ℕ₀ ∧ (𝑁 − 𝑀) ∈ ℕ ∧ 𝑘 < (𝑁 − 𝑀)) → (𝑘 + 𝑀) < (♯‘𝐴))))
80	41, 79	mpan9 507	. . . . . . . . . 10 ⊢ ((𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))) → ((𝑘 ∈ ℕ₀ ∧ (𝑁 − 𝑀) ∈ ℕ ∧ 𝑘 < (𝑁 − 𝑀)) → (𝑘 + 𝑀) < (♯‘𝐴)))
81	80	adantl 482	. . . . . . . . 9 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) → ((𝑘 ∈ ℕ₀ ∧ (𝑁 − 𝑀) ∈ ℕ ∧ 𝑘 < (𝑁 − 𝑀)) → (𝑘 + 𝑀) < (♯‘𝐴)))
82	55, 81	biimtrid 241	. . . . . . . 8 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) → (𝑘 ∈ (0..^(𝑁 − 𝑀)) → (𝑘 + 𝑀) < (♯‘𝐴)))
83	82	imp 407	. . . . . . 7 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → (𝑘 + 𝑀) < (♯‘𝐴))
84		elfzo0 13672	. . . . . . 7 ⊢ ((𝑘 + 𝑀) ∈ (0..^(♯‘𝐴)) ↔ ((𝑘 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝑘 + 𝑀) < (♯‘𝐴)))
85	47, 54, 83, 84	syl3anbrc 1343	. . . . . 6 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → (𝑘 + 𝑀) ∈ (0..^(♯‘𝐴)))
86		ccatval1 14526	. . . . . 6 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉 ∧ (𝑘 + 𝑀) ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘(𝑘 + 𝑀)) = (𝐴‘(𝑘 + 𝑀)))
87	39, 40, 85, 86	syl3anc 1371	. . . . 5 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → ((𝐴 ++ 𝐵)‘(𝑘 + 𝑀)) = (𝐴‘(𝑘 + 𝑀)))
88	25	ad5ant12 754	. . . . . 6 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → (𝐴 ++ 𝐵) ∈ Word 𝑉)
89		simplrl 775	. . . . . 6 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → 𝑀 ∈ (0...𝑁))
90	30	adantr 481	. . . . . 6 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵))))
91		simpr 485	. . . . . 6 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → 𝑘 ∈ (0..^(𝑁 − 𝑀)))
92		swrdfv 14597	. . . . . 6 ⊢ ((((𝐴 ++ 𝐵) ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩)‘𝑘) = ((𝐴 ++ 𝐵)‘(𝑘 + 𝑀)))
93	88, 89, 90, 91, 92	syl31anc 1373	. . . . 5 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩)‘𝑘) = ((𝐴 ++ 𝐵)‘(𝑘 + 𝑀)))
94		swrdfv 14597	. . . . . 6 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → ((𝐴 substr ⟨𝑀, 𝑁⟩)‘𝑘) = (𝐴‘(𝑘 + 𝑀)))
95	36, 94	sylan 580	. . . . 5 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → ((𝐴 substr ⟨𝑀, 𝑁⟩)‘𝑘) = (𝐴‘(𝑘 + 𝑀)))
96	87, 93, 95	3eqtr4d 2782	. . . 4 ⊢ (((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩)‘𝑘) = ((𝐴 substr ⟨𝑀, 𝑁⟩)‘𝑘))
97	32, 38, 96	eqfnfvd 7035	. . 3 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴)))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 𝑁⟩))
98	97	ex 413	. 2 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (♯‘𝐴) ≠ 0) → ((𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 𝑁⟩)))
99	24, 98	pm2.61dane 3029	1 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → ((𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘𝐴))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐴 substr ⟨𝑀, 𝑁⟩)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 396 ∧ w3a 1087 = wceq 1541 ∈ wcel 2106 ≠ wne 2940 ∅c0 4322 ⟨cop 4634 class class class wbr 5148 Fn wfn 6538 ‘cfv 6543 (class class class)co 7408 ℝcr 11108 0cc0 11109 + caddc 11112 < clt 11247 ≤ cle 11248 − cmin 11443 ℕcn 12211 ℕ₀cn0 12471 ...cfz 13483 ..^cfzo 13626 ♯chash 14289 Word cword 14463 ++ cconcat 14519 substr csubstr 14589

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-rep 5285 ax-sep 5299 ax-nul 5306 ax-pow 5363 ax-pr 5427 ax-un 7724 ax-cnex 11165 ax-resscn 11166 ax-1cn 11167 ax-icn 11168 ax-addcl 11169 ax-addrcl 11170 ax-mulcl 11171 ax-mulrcl 11172 ax-mulcom 11173 ax-addass 11174 ax-mulass 11175 ax-distr 11176 ax-i2m1 11177 ax-1ne0 11178 ax-1rid 11179 ax-rnegex 11180 ax-rrecex 11181 ax-cnre 11182 ax-pre-lttri 11183 ax-pre-lttrn 11184 ax-pre-ltadd 11185 ax-pre-mulgt0 11186

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3778 df-csb 3894 df-dif 3951 df-un 3953 df-in 3955 df-ss 3965 df-pss 3967 df-nul 4323 df-if 4529 df-pw 4604 df-sn 4629 df-pr 4631 df-op 4635 df-uni 4909 df-int 4951 df-iun 4999 df-br 5149 df-opab 5211 df-mpt 5232 df-tr 5266 df-id 5574 df-eprel 5580 df-po 5588 df-so 5589 df-fr 5631 df-we 5633 df-xp 5682 df-rel 5683 df-cnv 5684 df-co 5685 df-dm 5686 df-rn 5687 df-res 5688 df-ima 5689 df-pred 6300 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6495 df-fun 6545 df-fn 6546 df-f 6547 df-f1 6548 df-fo 6549 df-f1o 6550 df-fv 6551 df-riota 7364 df-ov 7411 df-oprab 7412 df-mpo 7413 df-om 7855 df-1st 7974 df-2nd 7975 df-frecs 8265 df-wrecs 8296 df-recs 8370 df-rdg 8409 df-1o 8465 df-er 8702 df-en 8939 df-dom 8940 df-sdom 8941 df-fin 8942 df-card 9933 df-pnf 11249 df-mnf 11250 df-xr 11251 df-ltxr 11252 df-le 11253 df-sub 11445 df-neg 11446 df-nn 12212 df-n0 12472 df-z 12558 df-uz 12822 df-fz 13484 df-fzo 13627 df-hash 14290 df-word 14464 df-concat 14520 df-substr 14590

This theorem is referenced by: pfxccat3 14683 pfxccatpfx1 14685 swrdccatin1d 14692

W3C validator