swrdccatin2 - Metamath Proof Explorer

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

Theorem swrdccatin2 14739

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

**Hypothesis**
Ref	Expression
swrdccatin2.l	⊢ 𝐿 = (♯‘𝐴)

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

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

Step	Hyp	Ref	Expression
1		swrdccatin2.l	. . . . . . . 8 ⊢ 𝐿 = (♯‘𝐴)
2		oveq1 7399	. . . . . . . . . 10 ⊢ (𝐿 = (♯‘𝐴) → (𝐿...𝑁) = ((♯‘𝐴)...𝑁))
3	2	eleq2d 2847	. . . . . . . . 9 ⊢ (𝐿 = (♯‘𝐴) → (𝑀 ∈ (𝐿...𝑁) ↔ 𝑀 ∈ ((♯‘𝐴)...𝑁)))
4		id 22	. . . . . . . . . . 11 ⊢ (𝐿 = (♯‘𝐴) → 𝐿 = (♯‘𝐴))
5		oveq1 7399	. . . . . . . . . . 11 ⊢ (𝐿 = (♯‘𝐴) → (𝐿 + (♯‘𝐵)) = ((♯‘𝐴) + (♯‘𝐵)))
6	4, 5	oveq12d 7410	. . . . . . . . . 10 ⊢ (𝐿 = (♯‘𝐴) → (𝐿...(𝐿 + (♯‘𝐵))) = ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))))
7	6	eleq2d 2847	. . . . . . . . 9 ⊢ (𝐿 = (♯‘𝐴) → (𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))) ↔ 𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵)))))
8	3, 7	anbi12d 641	. . . . . . . 8 ⊢ (𝐿 = (♯‘𝐴) → ((𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) ↔ (𝑀 ∈ ((♯‘𝐴)...𝑁) ∧ 𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))))))
9	1, 8	ax-mp 5	. . . . . . 7 ⊢ ((𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) ↔ (𝑀 ∈ ((♯‘𝐴)...𝑁) ∧ 𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵)))))
10		lencl 14543	. . . . . . . . 9 ⊢ (𝐴 ∈ Word 𝑉 → (♯‘𝐴) ∈ ℕ₀)
11		elnn0uz 12877	. . . . . . . . . . . 12 ⊢ ((♯‘𝐴) ∈ ℕ₀ ↔ (♯‘𝐴) ∈ (ℤ_≥‘0))
12		fzss1 13565	. . . . . . . . . . . 12 ⊢ ((♯‘𝐴) ∈ (ℤ_≥‘0) → ((♯‘𝐴)...𝑁) ⊆ (0...𝑁))
13	11, 12	sylbi 219	. . . . . . . . . . 11 ⊢ ((♯‘𝐴) ∈ ℕ₀ → ((♯‘𝐴)...𝑁) ⊆ (0...𝑁))
14	13	sseld 3935	. . . . . . . . . 10 ⊢ ((♯‘𝐴) ∈ ℕ₀ → (𝑀 ∈ ((♯‘𝐴)...𝑁) → 𝑀 ∈ (0...𝑁)))
15		fzss1 13565	. . . . . . . . . . . 12 ⊢ ((♯‘𝐴) ∈ (ℤ_≥‘0) → ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))) ⊆ (0...((♯‘𝐴) + (♯‘𝐵))))
16	11, 15	sylbi 219	. . . . . . . . . . 11 ⊢ ((♯‘𝐴) ∈ ℕ₀ → ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))) ⊆ (0...((♯‘𝐴) + (♯‘𝐵))))
17	16	sseld 3935	. . . . . . . . . 10 ⊢ ((♯‘𝐴) ∈ ℕ₀ → (𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))) → 𝑁 ∈ (0...((♯‘𝐴) + (♯‘𝐵)))))
18	14, 17	anim12d 618	. . . . . . . . 9 ⊢ ((♯‘𝐴) ∈ ℕ₀ → ((𝑀 ∈ ((♯‘𝐴)...𝑁) ∧ 𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵)))) → (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...((♯‘𝐴) + (♯‘𝐵))))))
19	10, 18	syl 17	. . . . . . . 8 ⊢ (𝐴 ∈ Word 𝑉 → ((𝑀 ∈ ((♯‘𝐴)...𝑁) ∧ 𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵)))) → (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...((♯‘𝐴) + (♯‘𝐵))))))
20	19	adantr 484	. . . . . . 7 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → ((𝑀 ∈ ((♯‘𝐴)...𝑁) ∧ 𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵)))) → (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...((♯‘𝐴) + (♯‘𝐵))))))
21	9, 20	biimtrid 244	. . . . . 6 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → ((𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...((♯‘𝐴) + (♯‘𝐵))))))
22	21	imp 410	. . . . 5 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...((♯‘𝐴) + (♯‘𝐵)))))
23		swrdccatfn 14734	. . . . 5 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...((♯‘𝐴) + (♯‘𝐵))))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) Fn (0..^(𝑁 − 𝑀)))
24	22, 23	syldan 600	. . . 4 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) Fn (0..^(𝑁 − 𝑀)))
25		fzmmmeqm 13559	. . . . . . 7 ⊢ (𝑀 ∈ (𝐿...𝑁) → ((𝑁 − 𝐿) − (𝑀 − 𝐿)) = (𝑁 − 𝑀))
26	25	oveq2d 7408	. . . . . 6 ⊢ (𝑀 ∈ (𝐿...𝑁) → (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿))) = (0..^(𝑁 − 𝑀)))
27	26	fneq2d 6611	. . . . 5 ⊢ (𝑀 ∈ (𝐿...𝑁) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) Fn (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿))) ↔ ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) Fn (0..^(𝑁 − 𝑀))))
28	27	ad2antrl 738	. . . 4 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) Fn (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿))) ↔ ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) Fn (0..^(𝑁 − 𝑀))))
29	24, 28	mpbird 259	. . 3 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) Fn (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿))))
30		simplr 778	. . . 4 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → 𝐵 ∈ Word 𝑉)
31		elfzmlbm 13640	. . . . 5 ⊢ (𝑀 ∈ (𝐿...𝑁) → (𝑀 − 𝐿) ∈ (0...(𝑁 − 𝐿)))
32	31	ad2antrl 738	. . . 4 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (𝑀 − 𝐿) ∈ (0...(𝑁 − 𝐿)))
33		lencl 14543	. . . . . . . 8 ⊢ (𝐵 ∈ Word 𝑉 → (♯‘𝐵) ∈ ℕ₀)
34	33	nn0zd 12590	. . . . . . 7 ⊢ (𝐵 ∈ Word 𝑉 → (♯‘𝐵) ∈ ℤ)
35	34	adantl 485	. . . . . 6 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → (♯‘𝐵) ∈ ℤ)
36		elfzmlbp 13641	. . . . . 6 ⊢ (((♯‘𝐵) ∈ ℤ ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → (𝑁 − 𝐿) ∈ (0...(♯‘𝐵)))
37	35, 36	sylan 589	. . . . 5 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → (𝑁 − 𝐿) ∈ (0...(♯‘𝐵)))
38	37	adantrl 726	. . . 4 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (𝑁 − 𝐿) ∈ (0...(♯‘𝐵)))
39		swrdvalfn 14662	. . . 4 ⊢ ((𝐵 ∈ Word 𝑉 ∧ (𝑀 − 𝐿) ∈ (0...(𝑁 − 𝐿)) ∧ (𝑁 − 𝐿) ∈ (0...(♯‘𝐵))) → (𝐵 substr ⟨(𝑀 − 𝐿), (𝑁 − 𝐿)⟩) Fn (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿))))
40	30, 32, 38, 39	syl3anc 1389	. . 3 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (𝐵 substr ⟨(𝑀 − 𝐿), (𝑁 − 𝐿)⟩) Fn (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿))))
41		simpll 776	. . . . . . 7 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → (𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉))
42		elfzelz 13526	. . . . . . . . . 10 ⊢ (𝑀 ∈ (𝐿...𝑁) → 𝑀 ∈ ℤ)
43		zaddcl 12608	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (𝑘 + 𝑀) ∈ ℤ)
44	43	expcom 417	. . . . . . . . . 10 ⊢ (𝑀 ∈ ℤ → (𝑘 ∈ ℤ → (𝑘 + 𝑀) ∈ ℤ))
45	42, 44	syl 17	. . . . . . . . 9 ⊢ (𝑀 ∈ (𝐿...𝑁) → (𝑘 ∈ ℤ → (𝑘 + 𝑀) ∈ ℤ))
46	45	ad2antrl 738	. . . . . . . 8 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (𝑘 ∈ ℤ → (𝑘 + 𝑀) ∈ ℤ))
47		elfzoelz 13661	. . . . . . . 8 ⊢ (𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿))) → 𝑘 ∈ ℤ)
48	46, 47	impel 513	. . . . . . 7 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → (𝑘 + 𝑀) ∈ ℤ)
49		df-3an 1099	. . . . . . 7 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉 ∧ (𝑘 + 𝑀) ∈ ℤ) ↔ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑘 + 𝑀) ∈ ℤ))
50	41, 48, 49	sylanbrc 592	. . . . . 6 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → (𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉 ∧ (𝑘 + 𝑀) ∈ ℤ))
51		ccatsymb 14593	. . . . . 6 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉 ∧ (𝑘 + 𝑀) ∈ ℤ) → ((𝐴 ++ 𝐵)‘(𝑘 + 𝑀)) = if((𝑘 + 𝑀) < (♯‘𝐴), (𝐴‘(𝑘 + 𝑀)), (𝐵‘((𝑘 + 𝑀) − (♯‘𝐴)))))
52	50, 51	syl 17	. . . . 5 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → ((𝐴 ++ 𝐵)‘(𝑘 + 𝑀)) = if((𝑘 + 𝑀) < (♯‘𝐴), (𝐴‘(𝑘 + 𝑀)), (𝐵‘((𝑘 + 𝑀) − (♯‘𝐴)))))
53		elfz2 13516	. . . . . . . . 9 ⊢ (𝑀 ∈ (𝐿...𝑁) ↔ ((𝐿 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ (𝐿 ≤ 𝑀 ∧ 𝑀 ≤ 𝑁)))
54		zre 12569	. . . . . . . . . . . . . . . . 17 ⊢ (𝐿 ∈ ℤ → 𝐿 ∈ ℝ)
55		zre 12569	. . . . . . . . . . . . . . . . 17 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ ℝ)
56	54, 55	anim12i 622	. . . . . . . . . . . . . . . 16 ⊢ ((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ))
57		elnn0z 12578	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ₀ ↔ (𝑘 ∈ ℤ ∧ 0 ≤ 𝑘))
58		zre 12569	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ ℤ → 𝑘 ∈ ℝ)
59		0re 11180	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ 0 ∈ ℝ
60	59	jctl 531	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐿 ∈ ℝ → (0 ∈ ℝ ∧ 𝐿 ∈ ℝ))
61	60	ad2antrl 738	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → (0 ∈ ℝ ∧ 𝐿 ∈ ℝ))
62		id 22	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑘 ∈ ℝ ∧ 𝑀 ∈ ℝ) → (𝑘 ∈ ℝ ∧ 𝑀 ∈ ℝ))
63	62	adantrl 726	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → (𝑘 ∈ ℝ ∧ 𝑀 ∈ ℝ))
64		le2add 11666	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((0 ∈ ℝ ∧ 𝐿 ∈ ℝ) ∧ (𝑘 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → ((0 ≤ 𝑘 ∧ 𝐿 ≤ 𝑀) → (0 + 𝐿) ≤ (𝑘 + 𝑀)))
65	61, 63, 64	syl2anc 593	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → ((0 ≤ 𝑘 ∧ 𝐿 ≤ 𝑀) → (0 + 𝐿) ≤ (𝑘 + 𝑀)))
66		recn 11160	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝐿 ∈ ℝ → 𝐿 ∈ ℂ)
67	66	addlidd 11381	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐿 ∈ ℝ → (0 + 𝐿) = 𝐿)
68	67	ad2antrl 738	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → (0 + 𝐿) = 𝐿)
69	68	breq1d 5109	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → ((0 + 𝐿) ≤ (𝑘 + 𝑀) ↔ 𝐿 ≤ (𝑘 + 𝑀)))
70	65, 69	sylibd 241	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → ((0 ≤ 𝑘 ∧ 𝐿 ≤ 𝑀) → 𝐿 ≤ (𝑘 + 𝑀)))
71		simprl 780	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → 𝐿 ∈ ℝ)
72		readdcl 11153	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑘 ∈ ℝ ∧ 𝑀 ∈ ℝ) → (𝑘 + 𝑀) ∈ ℝ)
73	72	adantrl 726	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → (𝑘 + 𝑀) ∈ ℝ)
74	71, 73	lenltd 11326	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → (𝐿 ≤ (𝑘 + 𝑀) ↔ ¬ (𝑘 + 𝑀) < 𝐿))
75	70, 74	sylibd 241	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → ((0 ≤ 𝑘 ∧ 𝐿 ≤ 𝑀) → ¬ (𝑘 + 𝑀) < 𝐿))
76	75	expd 419	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → (0 ≤ 𝑘 → (𝐿 ≤ 𝑀 → ¬ (𝑘 + 𝑀) < 𝐿)))
77	76	com12 32	. . . . . . . . . . . . . . . . . . 19 ⊢ (0 ≤ 𝑘 → ((𝑘 ∈ ℝ ∧ (𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ)) → (𝐿 ≤ 𝑀 → ¬ (𝑘 + 𝑀) < 𝐿)))
78	77	expd 419	. . . . . . . . . . . . . . . . . 18 ⊢ (0 ≤ 𝑘 → (𝑘 ∈ ℝ → ((𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ) → (𝐿 ≤ 𝑀 → ¬ (𝑘 + 𝑀) < 𝐿))))
79	58, 78	mpan9 514	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑘 ∈ ℤ ∧ 0 ≤ 𝑘) → ((𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ) → (𝐿 ≤ 𝑀 → ¬ (𝑘 + 𝑀) < 𝐿)))
80	57, 79	sylbi 219	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ₀ → ((𝐿 ∈ ℝ ∧ 𝑀 ∈ ℝ) → (𝐿 ≤ 𝑀 → ¬ (𝑘 + 𝑀) < 𝐿)))
81	56, 80	mpan9 514	. . . . . . . . . . . . . . 15 ⊢ (((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ 𝑘 ∈ ℕ₀) → (𝐿 ≤ 𝑀 → ¬ (𝑘 + 𝑀) < 𝐿))
82	1	breq2i 5107	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 + 𝑀) < 𝐿 ↔ (𝑘 + 𝑀) < (♯‘𝐴))
83	82	notbii 322	. . . . . . . . . . . . . . 15 ⊢ (¬ (𝑘 + 𝑀) < 𝐿 ↔ ¬ (𝑘 + 𝑀) < (♯‘𝐴))
84	81, 83	imbitrdi 253	. . . . . . . . . . . . . 14 ⊢ (((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ 𝑘 ∈ ℕ₀) → (𝐿 ≤ 𝑀 → ¬ (𝑘 + 𝑀) < (♯‘𝐴)))
85	84	ex 416	. . . . . . . . . . . . 13 ⊢ ((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (𝑘 ∈ ℕ₀ → (𝐿 ≤ 𝑀 → ¬ (𝑘 + 𝑀) < (♯‘𝐴))))
86	85	com23 86	. . . . . . . . . . . 12 ⊢ ((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (𝐿 ≤ 𝑀 → (𝑘 ∈ ℕ₀ → ¬ (𝑘 + 𝑀) < (♯‘𝐴))))
87	86	3adant2 1143	. . . . . . . . . . 11 ⊢ ((𝐿 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (𝐿 ≤ 𝑀 → (𝑘 ∈ ℕ₀ → ¬ (𝑘 + 𝑀) < (♯‘𝐴))))
88	87	imp 410	. . . . . . . . . 10 ⊢ (((𝐿 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ 𝐿 ≤ 𝑀) → (𝑘 ∈ ℕ₀ → ¬ (𝑘 + 𝑀) < (♯‘𝐴)))
89	88	adantrr 727	. . . . . . . . 9 ⊢ (((𝐿 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ (𝐿 ≤ 𝑀 ∧ 𝑀 ≤ 𝑁)) → (𝑘 ∈ ℕ₀ → ¬ (𝑘 + 𝑀) < (♯‘𝐴)))
90	53, 89	sylbi 219	. . . . . . . 8 ⊢ (𝑀 ∈ (𝐿...𝑁) → (𝑘 ∈ ℕ₀ → ¬ (𝑘 + 𝑀) < (♯‘𝐴)))
91	90	ad2antrl 738	. . . . . . 7 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (𝑘 ∈ ℕ₀ → ¬ (𝑘 + 𝑀) < (♯‘𝐴)))
92		elfzonn0 13710	. . . . . . 7 ⊢ (𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿))) → 𝑘 ∈ ℕ₀)
93	91, 92	impel 513	. . . . . 6 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → ¬ (𝑘 + 𝑀) < (♯‘𝐴))
94	93	iffalsed 4490	. . . . 5 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → if((𝑘 + 𝑀) < (♯‘𝐴), (𝐴‘(𝑘 + 𝑀)), (𝐵‘((𝑘 + 𝑀) − (♯‘𝐴)))) = (𝐵‘((𝑘 + 𝑀) − (♯‘𝐴))))
95		zcn 12570	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℤ → 𝑘 ∈ ℂ)
96	95	adantl 485	. . . . . . . . . . . . . . 15 ⊢ (((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ 𝑘 ∈ ℤ) → 𝑘 ∈ ℂ)
97		zcn 12570	. . . . . . . . . . . . . . . 16 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ ℂ)
98	97	ad2antlr 737	. . . . . . . . . . . . . . 15 ⊢ (((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ 𝑘 ∈ ℤ) → 𝑀 ∈ ℂ)
99		zcn 12570	. . . . . . . . . . . . . . . 16 ⊢ (𝐿 ∈ ℤ → 𝐿 ∈ ℂ)
100	99	ad2antrr 736	. . . . . . . . . . . . . . 15 ⊢ (((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ 𝑘 ∈ ℤ) → 𝐿 ∈ ℂ)
101	96, 98, 100	addsubassd 11559	. . . . . . . . . . . . . 14 ⊢ (((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ 𝑘 ∈ ℤ) → ((𝑘 + 𝑀) − 𝐿) = (𝑘 + (𝑀 − 𝐿)))
102		oveq2 7400	. . . . . . . . . . . . . . 15 ⊢ (𝐿 = (♯‘𝐴) → ((𝑘 + 𝑀) − 𝐿) = ((𝑘 + 𝑀) − (♯‘𝐴)))
103	102	eqeq1d 2763	. . . . . . . . . . . . . 14 ⊢ (𝐿 = (♯‘𝐴) → (((𝑘 + 𝑀) − 𝐿) = (𝑘 + (𝑀 − 𝐿)) ↔ ((𝑘 + 𝑀) − (♯‘𝐴)) = (𝑘 + (𝑀 − 𝐿))))
104	101, 103	imbitrid 246	. . . . . . . . . . . . 13 ⊢ (𝐿 = (♯‘𝐴) → (((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ 𝑘 ∈ ℤ) → ((𝑘 + 𝑀) − (♯‘𝐴)) = (𝑘 + (𝑀 − 𝐿))))
105	1, 104	ax-mp 5	. . . . . . . . . . . 12 ⊢ (((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ 𝑘 ∈ ℤ) → ((𝑘 + 𝑀) − (♯‘𝐴)) = (𝑘 + (𝑀 − 𝐿)))
106	105	ex 416	. . . . . . . . . . 11 ⊢ ((𝐿 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (𝑘 ∈ ℤ → ((𝑘 + 𝑀) − (♯‘𝐴)) = (𝑘 + (𝑀 − 𝐿))))
107	106	3adant2 1143	. . . . . . . . . 10 ⊢ ((𝐿 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (𝑘 ∈ ℤ → ((𝑘 + 𝑀) − (♯‘𝐴)) = (𝑘 + (𝑀 − 𝐿))))
108	107	adantr 484	. . . . . . . . 9 ⊢ (((𝐿 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ (𝐿 ≤ 𝑀 ∧ 𝑀 ≤ 𝑁)) → (𝑘 ∈ ℤ → ((𝑘 + 𝑀) − (♯‘𝐴)) = (𝑘 + (𝑀 − 𝐿))))
109	53, 108	sylbi 219	. . . . . . . 8 ⊢ (𝑀 ∈ (𝐿...𝑁) → (𝑘 ∈ ℤ → ((𝑘 + 𝑀) − (♯‘𝐴)) = (𝑘 + (𝑀 − 𝐿))))
110	109	ad2antrl 738	. . . . . . 7 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (𝑘 ∈ ℤ → ((𝑘 + 𝑀) − (♯‘𝐴)) = (𝑘 + (𝑀 − 𝐿))))
111	110, 47	impel 513	. . . . . 6 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → ((𝑘 + 𝑀) − (♯‘𝐴)) = (𝑘 + (𝑀 − 𝐿)))
112	111	fveq2d 6867	. . . . 5 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → (𝐵‘((𝑘 + 𝑀) − (♯‘𝐴))) = (𝐵‘(𝑘 + (𝑀 − 𝐿))))
113	52, 94, 112	3eqtrd 2800	. . . 4 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → ((𝐴 ++ 𝐵)‘(𝑘 + 𝑀)) = (𝐵‘(𝑘 + (𝑀 − 𝐿))))
114		ccatcl 14584	. . . . . . 7 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → (𝐴 ++ 𝐵) ∈ Word 𝑉)
115	114	adantr 484	. . . . . 6 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (𝐴 ++ 𝐵) ∈ Word 𝑉)
116	11	biimpi 218	. . . . . . . . . 10 ⊢ ((♯‘𝐴) ∈ ℕ₀ → (♯‘𝐴) ∈ (ℤ_≥‘0))
117	1, 116	eqeltrid 2865	. . . . . . . . 9 ⊢ ((♯‘𝐴) ∈ ℕ₀ → 𝐿 ∈ (ℤ_≥‘0))
118		fzss1 13565	. . . . . . . . 9 ⊢ (𝐿 ∈ (ℤ_≥‘0) → (𝐿...𝑁) ⊆ (0...𝑁))
119	10, 117, 118	3syl 18	. . . . . . . 8 ⊢ (𝐴 ∈ Word 𝑉 → (𝐿...𝑁) ⊆ (0...𝑁))
120	119	sselda 3936	. . . . . . 7 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝑀 ∈ (𝐿...𝑁)) → 𝑀 ∈ (0...𝑁))
121	120	ad2ant2r 757	. . . . . 6 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → 𝑀 ∈ (0...𝑁))
122	1, 7	ax-mp 5	. . . . . . . . 9 ⊢ (𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))) ↔ 𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))))
123	10, 116, 15	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ Word 𝑉 → ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))) ⊆ (0...((♯‘𝐴) + (♯‘𝐵))))
124	123	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))) ⊆ (0...((♯‘𝐴) + (♯‘𝐵))))
125	124	sseld 3935	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → (𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))) → 𝑁 ∈ (0...((♯‘𝐴) + (♯‘𝐵)))))
126	125	impcom 411	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))) ∧ (𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉)) → 𝑁 ∈ (0...((♯‘𝐴) + (♯‘𝐵))))
127		ccatlen 14585	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → (♯‘(𝐴 ++ 𝐵)) = ((♯‘𝐴) + (♯‘𝐵)))
128	127	oveq2d 7408	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → (0...(♯‘(𝐴 ++ 𝐵))) = (0...((♯‘𝐴) + (♯‘𝐵))))
129	128	eleq2d 2847	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → (𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵))) ↔ 𝑁 ∈ (0...((♯‘𝐴) + (♯‘𝐵)))))
130	129	adantl 485	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))) ∧ (𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉)) → (𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵))) ↔ 𝑁 ∈ (0...((♯‘𝐴) + (♯‘𝐵)))))
131	126, 130	mpbird 259	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))) ∧ (𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉)) → 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵))))
132	131	ex 416	. . . . . . . . 9 ⊢ (𝑁 ∈ ((♯‘𝐴)...((♯‘𝐴) + (♯‘𝐵))) → ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵)))))
133	122, 132	sylbi 219	. . . . . . . 8 ⊢ (𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))) → ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵)))))
134	133	impcom 411	. . . . . . 7 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵))))
135	134	adantrl 726	. . . . . 6 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵))))
136	115, 121, 135	3jca 1140	. . . . 5 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → ((𝐴 ++ 𝐵) ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵)))))
137	26	eleq2d 2847	. . . . . . 7 ⊢ (𝑀 ∈ (𝐿...𝑁) → (𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿))) ↔ 𝑘 ∈ (0..^(𝑁 − 𝑀))))
138	137	ad2antrl 738	. . . . . 6 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿))) ↔ 𝑘 ∈ (0..^(𝑁 − 𝑀))))
139	138	biimpa 480	. . . . 5 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → 𝑘 ∈ (0..^(𝑁 − 𝑀)))
140		swrdfv 14659	. . . . 5 ⊢ ((((𝐴 ++ 𝐵) ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑘 ∈ (0..^(𝑁 − 𝑀))) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩)‘𝑘) = ((𝐴 ++ 𝐵)‘(𝑘 + 𝑀)))
141	136, 139, 140	syl2an2r 695	. . . 4 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩)‘𝑘) = ((𝐴 ++ 𝐵)‘(𝑘 + 𝑀)))
142	34, 36	sylan 589	. . . . . . 7 ⊢ ((𝐵 ∈ Word 𝑉 ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → (𝑁 − 𝐿) ∈ (0...(♯‘𝐵)))
143	142	ad2ant2l 756	. . . . . 6 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (𝑁 − 𝐿) ∈ (0...(♯‘𝐵)))
144	30, 32, 143	3jca 1140	. . . . 5 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → (𝐵 ∈ Word 𝑉 ∧ (𝑀 − 𝐿) ∈ (0...(𝑁 − 𝐿)) ∧ (𝑁 − 𝐿) ∈ (0...(♯‘𝐵))))
145		swrdfv 14659	. . . . 5 ⊢ (((𝐵 ∈ Word 𝑉 ∧ (𝑀 − 𝐿) ∈ (0...(𝑁 − 𝐿)) ∧ (𝑁 − 𝐿) ∈ (0...(♯‘𝐵))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → ((𝐵 substr ⟨(𝑀 − 𝐿), (𝑁 − 𝐿)⟩)‘𝑘) = (𝐵‘(𝑘 + (𝑀 − 𝐿))))
146	144, 145	sylan 589	. . . 4 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → ((𝐵 substr ⟨(𝑀 − 𝐿), (𝑁 − 𝐿)⟩)‘𝑘) = (𝐵‘(𝑘 + (𝑀 − 𝐿))))
147	113, 141, 146	3eqtr4d 2806	. . 3 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ 𝑘 ∈ (0..^((𝑁 − 𝐿) − (𝑀 − 𝐿)))) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩)‘𝑘) = ((𝐵 substr ⟨(𝑀 − 𝐿), (𝑁 − 𝐿)⟩)‘𝑘))
148	29, 40, 147	eqfnfvd 7010	. 2 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐵 substr ⟨(𝑀 − 𝐿), (𝑁 − 𝐿)⟩))
149	148	ex 416	1 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → ((𝑀 ∈ (𝐿...𝑁) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → ((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩) = (𝐵 substr ⟨(𝑀 − 𝐿), (𝑁 − 𝐿)⟩)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 208 ∧ wa 399 ∧ w3a 1097 = wceq 1559 ∈ wcel 2141 ⊆ wss 3904 ifcif 4479 ⟨cop 4587 class class class wbr 5099 Fn wfn 6512 ‘cfv 6517 (class class class)co 7392 ℂcc 11068 ℝcr 11069 0cc0 11070 + caddc 11073 < clt 11213 ≤ cle 11214 − cmin 11411 ℕ₀cn0 12478 ℤcz 12565 ℤ_≥cuz 12836 ...cfz 13509 ..^cfzo 13656 ♯chash 14340 Word cword 14523 ++ cconcat 14580 substr csubstr 14651

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1814 ax-4 1828 ax-5 1929 ax-6 1986 ax-7 2027 ax-8 2143 ax-9 2151 ax-10 2174 ax-11 2190 ax-12 2211 ax-ext 2733 ax-rep 5226 ax-sep 5245 ax-nul 5255 ax-pow 5321 ax-pr 5389 ax-un 7714 ax-cnex 11126 ax-resscn 11127 ax-1cn 11128 ax-icn 11129 ax-addcl 11130 ax-addrcl 11131 ax-mulcl 11132 ax-mulrcl 11133 ax-mulcom 11134 ax-addass 11135 ax-mulass 11136 ax-distr 11137 ax-i2m1 11138 ax-1ne0 11139 ax-1rid 11140 ax-rnegex 11141 ax-rrecex 11142 ax-cnre 11143 ax-pre-lttri 11144 ax-pre-lttrn 11145 ax-pre-ltadd 11146 ax-pre-mulgt0 11147

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1098 df-3an 1099 df-tru 1562 df-fal 1572 df-ex 1799 df-nf 1803 df-sb 2090 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3061 df-ral 3076 df-rex 3086 df-reu 3367 df-rab 3414 df-v 3455 df-sbc 3745 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-pss 3924 df-nul 4286 df-if 4480 df-pw 4556 df-sn 4582 df-pr 4584 df-op 4588 df-uni 4865 df-int 4905 df-iun 4950 df-br 5100 df-opab 5162 df-mpt 5181 df-tr 5207 df-id 5540 df-eprel 5545 df-po 5553 df-so 5554 df-fr 5598 df-we 5600 df-xp 5651 df-rel 5652 df-cnv 5653 df-co 5654 df-dm 5655 df-rn 5656 df-res 5657 df-ima 5658 df-pred 6284 df-ord 6345 df-on 6346 df-lim 6347 df-suc 6348 df-iota 6473 df-fun 6519 df-fn 6520 df-f 6521 df-f1 6522 df-fo 6523 df-f1o 6524 df-fv 6525 df-riota 7349 df-ov 7395 df-oprab 7396 df-mpo 7397 df-om 7843 df-1st 7966 df-2nd 7967 df-frecs 8257 df-wrecs 8288 df-recs 8337 df-rdg 8376 df-1o 8432 df-er 8673 df-en 8924 df-dom 8925 df-sdom 8926 df-fin 8927 df-card 9894 df-pnf 11215 df-mnf 11216 df-xr 11217 df-ltxr 11218 df-le 11219 df-sub 11413 df-neg 11414 df-nn 12208 df-n0 12479 df-z 12566 df-uz 12837 df-fz 13510 df-fzo 13657 df-hash 14341 df-word 14524 df-concat 14581 df-substr 14652

This theorem is referenced by: pfxccat3 14744 swrdccatin2d 14754

W3C validator