pfxccatin12lem3 - Metamath Proof Explorer

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

Theorem pfxccatin12lem3 14697

Description: Lemma 3 for pfxccatin12 14698. (Contributed by AV, 30-Mar-2018.) (Revised by AV, 27-May-2018.)

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

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

**Proof of Theorem pfxccatin12lem3**
Step	Hyp	Ref	Expression
1		simpll 766	. . . . 5 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → (𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉))
2		elfzo0 13661	. . . . . . . . 9 ⊢ (𝐾 ∈ (0..^(𝐿 − 𝑀)) ↔ (𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)))
3		swrdccatin2.l	. . . . . . . . . . . . 13 ⊢ 𝐿 = (♯‘𝐴)
4		lencl 14498	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ Word 𝑉 → (♯‘𝐴) ∈ ℕ₀)
5		elfz2nn0 13579	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑀 ∈ (0...𝐿) ↔ (𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿))
6		nn0addcl 12477	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝐾 ∈ ℕ₀ ∧ 𝑀 ∈ ℕ₀) → (𝐾 + 𝑀) ∈ ℕ₀)
7	6	ex 412	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐾 ∈ ℕ₀ → (𝑀 ∈ ℕ₀ → (𝐾 + 𝑀) ∈ ℕ₀))
8	7	3ad2ant1 1133	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → (𝑀 ∈ ℕ₀ → (𝐾 + 𝑀) ∈ ℕ₀))
9	8	com12 32	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑀 ∈ ℕ₀ → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → (𝐾 + 𝑀) ∈ ℕ₀))
10	9	3ad2ant1 1133	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → (𝐾 + 𝑀) ∈ ℕ₀))
11	10	imp 406	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) ∧ (𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀))) → (𝐾 + 𝑀) ∈ ℕ₀)
12		elnnz 12539	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝐿 − 𝑀) ∈ ℕ ↔ ((𝐿 − 𝑀) ∈ ℤ ∧ 0 < (𝐿 − 𝑀)))
13		nn0re 12451	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑀 ∈ ℕ₀ → 𝑀 ∈ ℝ)
14		nn0re 12451	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝐿 ∈ ℕ₀ → 𝐿 ∈ ℝ)
15		posdif 11671	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑀 ∈ ℝ ∧ 𝐿 ∈ ℝ) → (𝑀 < 𝐿 ↔ 0 < (𝐿 − 𝑀)))
16	13, 14, 15	syl2an 596	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀) → (𝑀 < 𝐿 ↔ 0 < (𝐿 − 𝑀)))
17		elnn0z 12542	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑀 ∈ ℕ₀ ↔ (𝑀 ∈ ℤ ∧ 0 ≤ 𝑀))
18		0re 11176	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ 0 ∈ ℝ
19		zre 12533	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ ℝ)
20		lelttr 11264	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((0 ∈ ℝ ∧ 𝑀 ∈ ℝ ∧ 𝐿 ∈ ℝ) → ((0 ≤ 𝑀 ∧ 𝑀 < 𝐿) → 0 < 𝐿))
21	18, 19, 14, 20	mp3an3an 1469	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝑀 ∈ ℤ ∧ 𝐿 ∈ ℕ₀) → ((0 ≤ 𝑀 ∧ 𝑀 < 𝐿) → 0 < 𝐿))
22		nn0z 12554	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝐿 ∈ ℕ₀ → 𝐿 ∈ ℤ)
23	22	anim1i 615	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝐿 ∈ ℕ₀ ∧ 0 < 𝐿) → (𝐿 ∈ ℤ ∧ 0 < 𝐿))
24		elnnz 12539	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝐿 ∈ ℕ ↔ (𝐿 ∈ ℤ ∧ 0 < 𝐿))
25	23, 24	sylibr 234	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((𝐿 ∈ ℕ₀ ∧ 0 < 𝐿) → 𝐿 ∈ ℕ)
26	25	ex 412	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝐿 ∈ ℕ₀ → (0 < 𝐿 → 𝐿 ∈ ℕ))
27	26	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝑀 ∈ ℤ ∧ 𝐿 ∈ ℕ₀) → (0 < 𝐿 → 𝐿 ∈ ℕ))
28	21, 27	syld 47	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝑀 ∈ ℤ ∧ 𝐿 ∈ ℕ₀) → ((0 ≤ 𝑀 ∧ 𝑀 < 𝐿) → 𝐿 ∈ ℕ))
29	28	expd 415	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝑀 ∈ ℤ ∧ 𝐿 ∈ ℕ₀) → (0 ≤ 𝑀 → (𝑀 < 𝐿 → 𝐿 ∈ ℕ)))
30	29	impancom 451	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑀 ∈ ℤ ∧ 0 ≤ 𝑀) → (𝐿 ∈ ℕ₀ → (𝑀 < 𝐿 → 𝐿 ∈ ℕ)))
31	17, 30	sylbi 217	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑀 ∈ ℕ₀ → (𝐿 ∈ ℕ₀ → (𝑀 < 𝐿 → 𝐿 ∈ ℕ)))
32	31	imp 406	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀) → (𝑀 < 𝐿 → 𝐿 ∈ ℕ))
33	16, 32	sylbird 260	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀) → (0 < (𝐿 − 𝑀) → 𝐿 ∈ ℕ))
34	33	com12 32	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (0 < (𝐿 − 𝑀) → ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀) → 𝐿 ∈ ℕ))
35	12, 34	simplbiim 504	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝐿 − 𝑀) ∈ ℕ → ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀) → 𝐿 ∈ ℕ))
36	35	3ad2ant2 1134	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀) → 𝐿 ∈ ℕ))
37	36	com12 32	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → 𝐿 ∈ ℕ))
38	37	3adant3 1132	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → 𝐿 ∈ ℕ))
39	38	imp 406	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) ∧ (𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀))) → 𝐿 ∈ ℕ)
40		nn0re 12451	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝐾 ∈ ℕ₀ → 𝐾 ∈ ℝ)
41	40	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝐾 ∈ ℕ₀ ∧ (𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿)) → 𝐾 ∈ ℝ)
42	13	3ad2ant1 1133	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) → 𝑀 ∈ ℝ)
43	42	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝐾 ∈ ℕ₀ ∧ (𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿)) → 𝑀 ∈ ℝ)
44	14	3ad2ant2 1134	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) → 𝐿 ∈ ℝ)
45	44	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝐾 ∈ ℕ₀ ∧ (𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿)) → 𝐿 ∈ ℝ)
46	41, 43, 45	ltaddsubd 11778	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝐾 ∈ ℕ₀ ∧ (𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿)) → ((𝐾 + 𝑀) < 𝐿 ↔ 𝐾 < (𝐿 − 𝑀)))
47	46	exbiri 810	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐾 ∈ ℕ₀ → ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) → (𝐾 < (𝐿 − 𝑀) → (𝐾 + 𝑀) < 𝐿)))
48	47	com23 86	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝐾 ∈ ℕ₀ → (𝐾 < (𝐿 − 𝑀) → ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) → (𝐾 + 𝑀) < 𝐿)))
49	48	imp 406	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝐾 ∈ ℕ₀ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) → (𝐾 + 𝑀) < 𝐿))
50	49	3adant2 1131	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) → (𝐾 + 𝑀) < 𝐿))
51	50	impcom 407	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) ∧ (𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀))) → (𝐾 + 𝑀) < 𝐿)
52	11, 39, 51	3jca 1128	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) ∧ (𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀))) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ 𝐿 ∈ ℕ ∧ (𝐾 + 𝑀) < 𝐿))
53	52	ex 412	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ 𝐿 ∈ ℕ ∧ (𝐾 + 𝑀) < 𝐿)))
54	53	a1d 25	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑀 ∈ ℕ₀ ∧ 𝐿 ∈ ℕ₀ ∧ 𝑀 ≤ 𝐿) → (𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ 𝐿 ∈ ℕ ∧ (𝐾 + 𝑀) < 𝐿))))
55	5, 54	sylbi 217	. . . . . . . . . . . . . . . . 17 ⊢ (𝑀 ∈ (0...𝐿) → (𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ 𝐿 ∈ ℕ ∧ (𝐾 + 𝑀) < 𝐿))))
56	55	imp 406	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ 𝐿 ∈ ℕ ∧ (𝐾 + 𝑀) < 𝐿)))
57	56	2a1i 12	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝐴) = 𝐿 → (𝐿 ∈ ℕ₀ → ((𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ 𝐿 ∈ ℕ ∧ (𝐾 + 𝑀) < 𝐿)))))
58		eleq1 2816	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝐴) = 𝐿 → ((♯‘𝐴) ∈ ℕ₀ ↔ 𝐿 ∈ ℕ₀))
59		eleq1 2816	. . . . . . . . . . . . . . . . . 18 ⊢ ((♯‘𝐴) = 𝐿 → ((♯‘𝐴) ∈ ℕ ↔ 𝐿 ∈ ℕ))
60		breq2 5111	. . . . . . . . . . . . . . . . . 18 ⊢ ((♯‘𝐴) = 𝐿 → ((𝐾 + 𝑀) < (♯‘𝐴) ↔ (𝐾 + 𝑀) < 𝐿))
61	59, 60	3anbi23d 1441	. . . . . . . . . . . . . . . . 17 ⊢ ((♯‘𝐴) = 𝐿 → (((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴)) ↔ ((𝐾 + 𝑀) ∈ ℕ₀ ∧ 𝐿 ∈ ℕ ∧ (𝐾 + 𝑀) < 𝐿)))
62	61	imbi2d 340	. . . . . . . . . . . . . . . 16 ⊢ ((♯‘𝐴) = 𝐿 → (((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴))) ↔ ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ 𝐿 ∈ ℕ ∧ (𝐾 + 𝑀) < 𝐿))))
63	62	imbi2d 340	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝐴) = 𝐿 → (((𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴)))) ↔ ((𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ 𝐿 ∈ ℕ ∧ (𝐾 + 𝑀) < 𝐿)))))
64	57, 58, 63	3imtr4d 294	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝐴) = 𝐿 → ((♯‘𝐴) ∈ ℕ₀ → ((𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴))))))
65	64	eqcoms 2737	. . . . . . . . . . . . 13 ⊢ (𝐿 = (♯‘𝐴) → ((♯‘𝐴) ∈ ℕ₀ → ((𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴))))))
66	3, 4, 65	mpsyl 68	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ Word 𝑉 → ((𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴)))))
67	66	adantr 480	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) → ((𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵)))) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴)))))
68	67	imp 406	. . . . . . . . . 10 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴))))
69	68	com12 32	. . . . . . . . 9 ⊢ ((𝐾 ∈ ℕ₀ ∧ (𝐿 − 𝑀) ∈ ℕ ∧ 𝐾 < (𝐿 − 𝑀)) → (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴))))
70	2, 69	sylbi 217	. . . . . . . 8 ⊢ (𝐾 ∈ (0..^(𝐿 − 𝑀)) → (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴))))
71	70	adantl 481	. . . . . . 7 ⊢ ((𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀))) → (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴))))
72	71	impcom 407	. . . . . 6 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴)))
73		elfzo0 13661	. . . . . 6 ⊢ ((𝐾 + 𝑀) ∈ (0..^(♯‘𝐴)) ↔ ((𝐾 + 𝑀) ∈ ℕ₀ ∧ (♯‘𝐴) ∈ ℕ ∧ (𝐾 + 𝑀) < (♯‘𝐴)))
74	72, 73	sylibr 234	. . . . 5 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → (𝐾 + 𝑀) ∈ (0..^(♯‘𝐴)))
75		df-3an 1088	. . . . 5 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉 ∧ (𝐾 + 𝑀) ∈ (0..^(♯‘𝐴))) ↔ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝐾 + 𝑀) ∈ (0..^(♯‘𝐴))))
76	1, 74, 75	sylanbrc 583	. . . 4 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → (𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉 ∧ (𝐾 + 𝑀) ∈ (0..^(♯‘𝐴))))
77		ccatval1 14542	. . . 4 ⊢ ((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉 ∧ (𝐾 + 𝑀) ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘(𝐾 + 𝑀)) = (𝐴‘(𝐾 + 𝑀)))
78	76, 77	syl 17	. . 3 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → ((𝐴 ++ 𝐵)‘(𝐾 + 𝑀)) = (𝐴‘(𝐾 + 𝑀)))
79	3	pfxccatin12lem2c 14695	. . . 4 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → ((𝐴 ++ 𝐵) ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵)))))
80		simpl 482	. . . 4 ⊢ ((𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀))) → 𝐾 ∈ (0..^(𝑁 − 𝑀)))
81		swrdfv 14613	. . . 4 ⊢ ((((𝐴 ++ 𝐵) ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...(♯‘(𝐴 ++ 𝐵)))) ∧ 𝐾 ∈ (0..^(𝑁 − 𝑀))) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩)‘𝐾) = ((𝐴 ++ 𝐵)‘(𝐾 + 𝑀)))
82	79, 80, 81	syl2an 596	. . 3 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩)‘𝐾) = ((𝐴 ++ 𝐵)‘(𝐾 + 𝑀)))
83		simplll 774	. . . 4 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → 𝐴 ∈ Word 𝑉)
84		simplrl 776	. . . 4 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → 𝑀 ∈ (0...𝐿))
85	3	eleq1i 2819	. . . . . . 7 ⊢ (𝐿 ∈ ℕ₀ ↔ (♯‘𝐴) ∈ ℕ₀)
86		elnn0uz 12838	. . . . . . . . 9 ⊢ (𝐿 ∈ ℕ₀ ↔ 𝐿 ∈ (ℤ_≥‘0))
87		eluzfz2 13493	. . . . . . . . 9 ⊢ (𝐿 ∈ (ℤ_≥‘0) → 𝐿 ∈ (0...𝐿))
88	86, 87	sylbi 217	. . . . . . . 8 ⊢ (𝐿 ∈ ℕ₀ → 𝐿 ∈ (0...𝐿))
89	3	oveq2i 7398	. . . . . . . 8 ⊢ (0...𝐿) = (0...(♯‘𝐴))
90	88, 89	eleqtrdi 2838	. . . . . . 7 ⊢ (𝐿 ∈ ℕ₀ → 𝐿 ∈ (0...(♯‘𝐴)))
91	85, 90	sylbir 235	. . . . . 6 ⊢ ((♯‘𝐴) ∈ ℕ₀ → 𝐿 ∈ (0...(♯‘𝐴)))
92	4, 91	syl 17	. . . . 5 ⊢ (𝐴 ∈ Word 𝑉 → 𝐿 ∈ (0...(♯‘𝐴)))
93	92	ad3antrrr 730	. . . 4 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → 𝐿 ∈ (0...(♯‘𝐴)))
94		simprr 772	. . . 4 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → 𝐾 ∈ (0..^(𝐿 − 𝑀)))
95		swrdfv 14613	. . . 4 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝑀 ∈ (0...𝐿) ∧ 𝐿 ∈ (0...(♯‘𝐴))) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀))) → ((𝐴 substr ⟨𝑀, 𝐿⟩)‘𝐾) = (𝐴‘(𝐾 + 𝑀)))
96	83, 84, 93, 94, 95	syl31anc 1375	. . 3 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → ((𝐴 substr ⟨𝑀, 𝐿⟩)‘𝐾) = (𝐴‘(𝐾 + 𝑀)))
97	78, 82, 96	3eqtr4d 2774	. 2 ⊢ ((((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) ∧ (𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀)))) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩)‘𝐾) = ((𝐴 substr ⟨𝑀, 𝐿⟩)‘𝐾))
98	97	ex 412	1 ⊢ (((𝐴 ∈ Word 𝑉 ∧ 𝐵 ∈ Word 𝑉) ∧ (𝑀 ∈ (0...𝐿) ∧ 𝑁 ∈ (𝐿...(𝐿 + (♯‘𝐵))))) → ((𝐾 ∈ (0..^(𝑁 − 𝑀)) ∧ 𝐾 ∈ (0..^(𝐿 − 𝑀))) → (((𝐴 ++ 𝐵) substr ⟨𝑀, 𝑁⟩)‘𝐾) = ((𝐴 substr ⟨𝑀, 𝐿⟩)‘𝐾)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2109 ⟨cop 4595 class class class wbr 5107 ‘cfv 6511 (class class class)co 7387 ℝcr 11067 0cc0 11068 + caddc 11071 < clt 11208 ≤ cle 11209 − cmin 11405 ℕcn 12186 ℕ₀cn0 12442 ℤcz 12529 ℤ_≥cuz 12793 ...cfz 13468 ..^cfzo 13615 ♯chash 14295 Word cword 14478 ++ cconcat 14535 substr csubstr 14605

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5234 ax-sep 5251 ax-nul 5261 ax-pow 5320 ax-pr 5387 ax-un 7711 ax-cnex 11124 ax-resscn 11125 ax-1cn 11126 ax-icn 11127 ax-addcl 11128 ax-addrcl 11129 ax-mulcl 11130 ax-mulrcl 11131 ax-mulcom 11132 ax-addass 11133 ax-mulass 11134 ax-distr 11135 ax-i2m1 11136 ax-1ne0 11137 ax-1rid 11138 ax-rnegex 11139 ax-rrecex 11140 ax-cnre 11141 ax-pre-lttri 11142 ax-pre-lttrn 11143 ax-pre-ltadd 11144 ax-pre-mulgt0 11145

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-reu 3355 df-rab 3406 df-v 3449 df-sbc 3754 df-csb 3863 df-dif 3917 df-un 3919 df-in 3921 df-ss 3931 df-pss 3934 df-nul 4297 df-if 4489 df-pw 4565 df-sn 4590 df-pr 4592 df-op 4596 df-uni 4872 df-int 4911 df-iun 4957 df-br 5108 df-opab 5170 df-mpt 5189 df-tr 5215 df-id 5533 df-eprel 5538 df-po 5546 df-so 5547 df-fr 5591 df-we 5593 df-xp 5644 df-rel 5645 df-cnv 5646 df-co 5647 df-dm 5648 df-rn 5649 df-res 5650 df-ima 5651 df-pred 6274 df-ord 6335 df-on 6336 df-lim 6337 df-suc 6338 df-iota 6464 df-fun 6513 df-fn 6514 df-f 6515 df-f1 6516 df-fo 6517 df-f1o 6518 df-fv 6519 df-riota 7344 df-ov 7390 df-oprab 7391 df-mpo 7392 df-om 7843 df-1st 7968 df-2nd 7969 df-frecs 8260 df-wrecs 8291 df-recs 8340 df-rdg 8378 df-1o 8434 df-er 8671 df-en 8919 df-dom 8920 df-sdom 8921 df-fin 8922 df-card 9892 df-pnf 11210 df-mnf 11211 df-xr 11212 df-ltxr 11213 df-le 11214 df-sub 11407 df-neg 11408 df-nn 12187 df-n0 12443 df-z 12530 df-uz 12794 df-fz 13469 df-fzo 13616 df-hash 14296 df-word 14479 df-concat 14536 df-substr 14606

This theorem is referenced by: pfxccatin12 14698

W3C validator