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

Theorem swrdccat3blem 13346
 Description: Lemma for swrdccat3b 13347. (Contributed by AV, 30-May-2018.)
Hypothesis
Ref Expression
swrdccatin12.l 𝐿 = (#‘𝐴)
Assertion
Ref Expression
swrdccat3blem ((((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) ∧ 𝑀 ∈ (0...(𝐿 + (#‘𝐵)))) ∧ (𝐿 + (#‘𝐵)) ≤ 𝐿) → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩))

Proof of Theorem swrdccat3blem
StepHypRef Expression
1 lencl 13179 . . . . . . . 8 (𝐵 ∈ Word 𝑉 → (#‘𝐵) ∈ ℕ0)
2 nn0le0eq0 11198 . . . . . . . . 9 ((#‘𝐵) ∈ ℕ0 → ((#‘𝐵) ≤ 0 ↔ (#‘𝐵) = 0))
32biimpd 218 . . . . . . . 8 ((#‘𝐵) ∈ ℕ0 → ((#‘𝐵) ≤ 0 → (#‘𝐵) = 0))
41, 3syl 17 . . . . . . 7 (𝐵 ∈ Word 𝑉 → ((#‘𝐵) ≤ 0 → (#‘𝐵) = 0))
54adantl 481 . . . . . 6 ((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) → ((#‘𝐵) ≤ 0 → (#‘𝐵) = 0))
6 hasheq0 13015 . . . . . . . . . . 11 (𝐵 ∈ Word 𝑉 → ((#‘𝐵) = 0 ↔ 𝐵 = ∅))
76biimpd 218 . . . . . . . . . 10 (𝐵 ∈ Word 𝑉 → ((#‘𝐵) = 0 → 𝐵 = ∅))
87adantl 481 . . . . . . . . 9 ((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) → ((#‘𝐵) = 0 → 𝐵 = ∅))
98imp 444 . . . . . . . 8 (((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) ∧ (#‘𝐵) = 0) → 𝐵 = ∅)
10 lencl 13179 . . . . . . . . . . . . . . . 16 (𝐴 ∈ Word 𝑉 → (#‘𝐴) ∈ ℕ0)
11 swrdccatin12.l . . . . . . . . . . . . . . . . . . 19 𝐿 = (#‘𝐴)
1211eqcomi 2619 . . . . . . . . . . . . . . . . . 18 (#‘𝐴) = 𝐿
1312eleq1i 2679 . . . . . . . . . . . . . . . . 17 ((#‘𝐴) ∈ ℕ0𝐿 ∈ ℕ0)
14 nn0re 11178 . . . . . . . . . . . . . . . . . 18 (𝐿 ∈ ℕ0𝐿 ∈ ℝ)
15 elfz2nn0 12300 . . . . . . . . . . . . . . . . . . 19 (𝑀 ∈ (0...(𝐿 + 0)) ↔ (𝑀 ∈ ℕ0 ∧ (𝐿 + 0) ∈ ℕ0𝑀 ≤ (𝐿 + 0)))
16 recn 9905 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝐿 ∈ ℝ → 𝐿 ∈ ℂ)
1716addid1d 10115 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐿 ∈ ℝ → (𝐿 + 0) = 𝐿)
1817breq2d 4595 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐿 ∈ ℝ → (𝑀 ≤ (𝐿 + 0) ↔ 𝑀𝐿))
19 nn0re 11178 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑀 ∈ ℕ0𝑀 ∈ ℝ)
2019anim1i 590 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑀 ∈ ℕ0𝐿 ∈ ℝ) → (𝑀 ∈ ℝ ∧ 𝐿 ∈ ℝ))
2120ancoms 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝐿 ∈ ℝ ∧ 𝑀 ∈ ℕ0) → (𝑀 ∈ ℝ ∧ 𝐿 ∈ ℝ))
22 letri3 10002 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑀 ∈ ℝ ∧ 𝐿 ∈ ℝ) → (𝑀 = 𝐿 ↔ (𝑀𝐿𝐿𝑀)))
2321, 22syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝐿 ∈ ℝ ∧ 𝑀 ∈ ℕ0) → (𝑀 = 𝐿 ↔ (𝑀𝐿𝐿𝑀)))
2423biimprd 237 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝐿 ∈ ℝ ∧ 𝑀 ∈ ℕ0) → ((𝑀𝐿𝐿𝑀) → 𝑀 = 𝐿))
2524exp4b 630 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐿 ∈ ℝ → (𝑀 ∈ ℕ0 → (𝑀𝐿 → (𝐿𝑀𝑀 = 𝐿))))
2625com23 84 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐿 ∈ ℝ → (𝑀𝐿 → (𝑀 ∈ ℕ0 → (𝐿𝑀𝑀 = 𝐿))))
2718, 26sylbid 229 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐿 ∈ ℝ → (𝑀 ≤ (𝐿 + 0) → (𝑀 ∈ ℕ0 → (𝐿𝑀𝑀 = 𝐿))))
2827com3l 87 . . . . . . . . . . . . . . . . . . . . . 22 (𝑀 ≤ (𝐿 + 0) → (𝑀 ∈ ℕ0 → (𝐿 ∈ ℝ → (𝐿𝑀𝑀 = 𝐿))))
2928impcom 445 . . . . . . . . . . . . . . . . . . . . 21 ((𝑀 ∈ ℕ0𝑀 ≤ (𝐿 + 0)) → (𝐿 ∈ ℝ → (𝐿𝑀𝑀 = 𝐿)))
30293adant2 1073 . . . . . . . . . . . . . . . . . . . 20 ((𝑀 ∈ ℕ0 ∧ (𝐿 + 0) ∈ ℕ0𝑀 ≤ (𝐿 + 0)) → (𝐿 ∈ ℝ → (𝐿𝑀𝑀 = 𝐿)))
3130com12 32 . . . . . . . . . . . . . . . . . . 19 (𝐿 ∈ ℝ → ((𝑀 ∈ ℕ0 ∧ (𝐿 + 0) ∈ ℕ0𝑀 ≤ (𝐿 + 0)) → (𝐿𝑀𝑀 = 𝐿)))
3215, 31syl5bi 231 . . . . . . . . . . . . . . . . . 18 (𝐿 ∈ ℝ → (𝑀 ∈ (0...(𝐿 + 0)) → (𝐿𝑀𝑀 = 𝐿)))
3314, 32syl 17 . . . . . . . . . . . . . . . . 17 (𝐿 ∈ ℕ0 → (𝑀 ∈ (0...(𝐿 + 0)) → (𝐿𝑀𝑀 = 𝐿)))
3413, 33sylbi 206 . . . . . . . . . . . . . . . 16 ((#‘𝐴) ∈ ℕ0 → (𝑀 ∈ (0...(𝐿 + 0)) → (𝐿𝑀𝑀 = 𝐿)))
3510, 34syl 17 . . . . . . . . . . . . . . 15 (𝐴 ∈ Word 𝑉 → (𝑀 ∈ (0...(𝐿 + 0)) → (𝐿𝑀𝑀 = 𝐿)))
3635imp 444 . . . . . . . . . . . . . 14 ((𝐴 ∈ Word 𝑉𝑀 ∈ (0...(𝐿 + 0))) → (𝐿𝑀𝑀 = 𝐿))
37 elfznn0 12302 . . . . . . . . . . . . . . . 16 (𝑀 ∈ (0...(𝐿 + 0)) → 𝑀 ∈ ℕ0)
38 swrd00 13270 . . . . . . . . . . . . . . . . . . . . . 22 (∅ substr ⟨0, 0⟩) = ∅
39 swrd00 13270 . . . . . . . . . . . . . . . . . . . . . 22 (𝐴 substr ⟨𝐿, 𝐿⟩) = ∅
4038, 39eqtr4i 2635 . . . . . . . . . . . . . . . . . . . . 21 (∅ substr ⟨0, 0⟩) = (𝐴 substr ⟨𝐿, 𝐿⟩)
41 nn0cn 11179 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐿 ∈ ℕ0𝐿 ∈ ℂ)
4241subidd 10259 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐿 ∈ ℕ0 → (𝐿𝐿) = 0)
4342opeq1d 4346 . . . . . . . . . . . . . . . . . . . . . 22 (𝐿 ∈ ℕ0 → ⟨(𝐿𝐿), 0⟩ = ⟨0, 0⟩)
4443oveq2d 6565 . . . . . . . . . . . . . . . . . . . . 21 (𝐿 ∈ ℕ0 → (∅ substr ⟨(𝐿𝐿), 0⟩) = (∅ substr ⟨0, 0⟩))
4541addid1d 10115 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐿 ∈ ℕ0 → (𝐿 + 0) = 𝐿)
4645opeq2d 4347 . . . . . . . . . . . . . . . . . . . . . 22 (𝐿 ∈ ℕ0 → ⟨𝐿, (𝐿 + 0)⟩ = ⟨𝐿, 𝐿⟩)
4746oveq2d 6565 . . . . . . . . . . . . . . . . . . . . 21 (𝐿 ∈ ℕ0 → (𝐴 substr ⟨𝐿, (𝐿 + 0)⟩) = (𝐴 substr ⟨𝐿, 𝐿⟩))
4840, 44, 473eqtr4a 2670 . . . . . . . . . . . . . . . . . . . 20 (𝐿 ∈ ℕ0 → (∅ substr ⟨(𝐿𝐿), 0⟩) = (𝐴 substr ⟨𝐿, (𝐿 + 0)⟩))
4948a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝑀 = 𝐿 → (𝐿 ∈ ℕ0 → (∅ substr ⟨(𝐿𝐿), 0⟩) = (𝐴 substr ⟨𝐿, (𝐿 + 0)⟩)))
50 eleq1 2676 . . . . . . . . . . . . . . . . . . 19 (𝑀 = 𝐿 → (𝑀 ∈ ℕ0𝐿 ∈ ℕ0))
51 oveq1 6556 . . . . . . . . . . . . . . . . . . . . . 22 (𝑀 = 𝐿 → (𝑀𝐿) = (𝐿𝐿))
5251opeq1d 4346 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 = 𝐿 → ⟨(𝑀𝐿), 0⟩ = ⟨(𝐿𝐿), 0⟩)
5352oveq2d 6565 . . . . . . . . . . . . . . . . . . . 20 (𝑀 = 𝐿 → (∅ substr ⟨(𝑀𝐿), 0⟩) = (∅ substr ⟨(𝐿𝐿), 0⟩))
54 opeq1 4340 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 = 𝐿 → ⟨𝑀, (𝐿 + 0)⟩ = ⟨𝐿, (𝐿 + 0)⟩)
5554oveq2d 6565 . . . . . . . . . . . . . . . . . . . 20 (𝑀 = 𝐿 → (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩) = (𝐴 substr ⟨𝐿, (𝐿 + 0)⟩))
5653, 55eqeq12d 2625 . . . . . . . . . . . . . . . . . . 19 (𝑀 = 𝐿 → ((∅ substr ⟨(𝑀𝐿), 0⟩) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩) ↔ (∅ substr ⟨(𝐿𝐿), 0⟩) = (𝐴 substr ⟨𝐿, (𝐿 + 0)⟩)))
5749, 50, 563imtr4d 282 . . . . . . . . . . . . . . . . . 18 (𝑀 = 𝐿 → (𝑀 ∈ ℕ0 → (∅ substr ⟨(𝑀𝐿), 0⟩) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩)))
5857com12 32 . . . . . . . . . . . . . . . . 17 (𝑀 ∈ ℕ0 → (𝑀 = 𝐿 → (∅ substr ⟨(𝑀𝐿), 0⟩) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩)))
5958a1d 25 . . . . . . . . . . . . . . . 16 (𝑀 ∈ ℕ0 → (𝐴 ∈ Word 𝑉 → (𝑀 = 𝐿 → (∅ substr ⟨(𝑀𝐿), 0⟩) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))))
6037, 59syl 17 . . . . . . . . . . . . . . 15 (𝑀 ∈ (0...(𝐿 + 0)) → (𝐴 ∈ Word 𝑉 → (𝑀 = 𝐿 → (∅ substr ⟨(𝑀𝐿), 0⟩) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))))
6160impcom 445 . . . . . . . . . . . . . 14 ((𝐴 ∈ Word 𝑉𝑀 ∈ (0...(𝐿 + 0))) → (𝑀 = 𝐿 → (∅ substr ⟨(𝑀𝐿), 0⟩) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩)))
6236, 61syld 46 . . . . . . . . . . . . 13 ((𝐴 ∈ Word 𝑉𝑀 ∈ (0...(𝐿 + 0))) → (𝐿𝑀 → (∅ substr ⟨(𝑀𝐿), 0⟩) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩)))
6362imp 444 . . . . . . . . . . . 12 (((𝐴 ∈ Word 𝑉𝑀 ∈ (0...(𝐿 + 0))) ∧ 𝐿𝑀) → (∅ substr ⟨(𝑀𝐿), 0⟩) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))
64 swrdcl 13271 . . . . . . . . . . . . . . . 16 (𝐴 ∈ Word 𝑉 → (𝐴 substr ⟨𝑀, 𝐿⟩) ∈ Word 𝑉)
65 ccatrid 13223 . . . . . . . . . . . . . . . 16 ((𝐴 substr ⟨𝑀, 𝐿⟩) ∈ Word 𝑉 → ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅) = (𝐴 substr ⟨𝑀, 𝐿⟩))
6664, 65syl 17 . . . . . . . . . . . . . . 15 (𝐴 ∈ Word 𝑉 → ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅) = (𝐴 substr ⟨𝑀, 𝐿⟩))
6713, 41sylbi 206 . . . . . . . . . . . . . . . . . . 19 ((#‘𝐴) ∈ ℕ0𝐿 ∈ ℂ)
6810, 67syl 17 . . . . . . . . . . . . . . . . . 18 (𝐴 ∈ Word 𝑉𝐿 ∈ ℂ)
69 addid1 10095 . . . . . . . . . . . . . . . . . . 19 (𝐿 ∈ ℂ → (𝐿 + 0) = 𝐿)
7069eqcomd 2616 . . . . . . . . . . . . . . . . . 18 (𝐿 ∈ ℂ → 𝐿 = (𝐿 + 0))
7168, 70syl 17 . . . . . . . . . . . . . . . . 17 (𝐴 ∈ Word 𝑉𝐿 = (𝐿 + 0))
7271opeq2d 4347 . . . . . . . . . . . . . . . 16 (𝐴 ∈ Word 𝑉 → ⟨𝑀, 𝐿⟩ = ⟨𝑀, (𝐿 + 0)⟩)
7372oveq2d 6565 . . . . . . . . . . . . . . 15 (𝐴 ∈ Word 𝑉 → (𝐴 substr ⟨𝑀, 𝐿⟩) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))
7466, 73eqtrd 2644 . . . . . . . . . . . . . 14 (𝐴 ∈ Word 𝑉 → ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))
7574adantr 480 . . . . . . . . . . . . 13 ((𝐴 ∈ Word 𝑉𝑀 ∈ (0...(𝐿 + 0))) → ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))
7675adantr 480 . . . . . . . . . . . 12 (((𝐴 ∈ Word 𝑉𝑀 ∈ (0...(𝐿 + 0))) ∧ ¬ 𝐿𝑀) → ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))
7763, 76ifeqda 4071 . . . . . . . . . . 11 ((𝐴 ∈ Word 𝑉𝑀 ∈ (0...(𝐿 + 0))) → if(𝐿𝑀, (∅ substr ⟨(𝑀𝐿), 0⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅)) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))
7877ex 449 . . . . . . . . . 10 (𝐴 ∈ Word 𝑉 → (𝑀 ∈ (0...(𝐿 + 0)) → if(𝐿𝑀, (∅ substr ⟨(𝑀𝐿), 0⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅)) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩)))
7978ad3antrrr 762 . . . . . . . . 9 ((((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) ∧ (#‘𝐵) = 0) ∧ 𝐵 = ∅) → (𝑀 ∈ (0...(𝐿 + 0)) → if(𝐿𝑀, (∅ substr ⟨(𝑀𝐿), 0⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅)) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩)))
80 oveq2 6557 . . . . . . . . . . . . . 14 ((#‘𝐵) = 0 → (𝐿 + (#‘𝐵)) = (𝐿 + 0))
8180oveq2d 6565 . . . . . . . . . . . . 13 ((#‘𝐵) = 0 → (0...(𝐿 + (#‘𝐵))) = (0...(𝐿 + 0)))
8281eleq2d 2673 . . . . . . . . . . . 12 ((#‘𝐵) = 0 → (𝑀 ∈ (0...(𝐿 + (#‘𝐵))) ↔ 𝑀 ∈ (0...(𝐿 + 0))))
8382adantr 480 . . . . . . . . . . 11 (((#‘𝐵) = 0 ∧ 𝐵 = ∅) → (𝑀 ∈ (0...(𝐿 + (#‘𝐵))) ↔ 𝑀 ∈ (0...(𝐿 + 0))))
84 simpr 476 . . . . . . . . . . . . . 14 (((#‘𝐵) = 0 ∧ 𝐵 = ∅) → 𝐵 = ∅)
85 opeq2 4341 . . . . . . . . . . . . . . 15 ((#‘𝐵) = 0 → ⟨(𝑀𝐿), (#‘𝐵)⟩ = ⟨(𝑀𝐿), 0⟩)
8685adantr 480 . . . . . . . . . . . . . 14 (((#‘𝐵) = 0 ∧ 𝐵 = ∅) → ⟨(𝑀𝐿), (#‘𝐵)⟩ = ⟨(𝑀𝐿), 0⟩)
8784, 86oveq12d 6567 . . . . . . . . . . . . 13 (((#‘𝐵) = 0 ∧ 𝐵 = ∅) → (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩) = (∅ substr ⟨(𝑀𝐿), 0⟩))
88 oveq2 6557 . . . . . . . . . . . . . 14 (𝐵 = ∅ → ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵) = ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅))
8988adantl 481 . . . . . . . . . . . . 13 (((#‘𝐵) = 0 ∧ 𝐵 = ∅) → ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵) = ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅))
9087, 89ifeq12d 4056 . . . . . . . . . . . 12 (((#‘𝐵) = 0 ∧ 𝐵 = ∅) → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = if(𝐿𝑀, (∅ substr ⟨(𝑀𝐿), 0⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅)))
9180opeq2d 4347 . . . . . . . . . . . . . 14 ((#‘𝐵) = 0 → ⟨𝑀, (𝐿 + (#‘𝐵))⟩ = ⟨𝑀, (𝐿 + 0)⟩)
9291oveq2d 6565 . . . . . . . . . . . . 13 ((#‘𝐵) = 0 → (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))
9392adantr 480 . . . . . . . . . . . 12 (((#‘𝐵) = 0 ∧ 𝐵 = ∅) → (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))
9490, 93eqeq12d 2625 . . . . . . . . . . 11 (((#‘𝐵) = 0 ∧ 𝐵 = ∅) → (if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩) ↔ if(𝐿𝑀, (∅ substr ⟨(𝑀𝐿), 0⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅)) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩)))
9583, 94imbi12d 333 . . . . . . . . . 10 (((#‘𝐵) = 0 ∧ 𝐵 = ∅) → ((𝑀 ∈ (0...(𝐿 + (#‘𝐵))) → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩)) ↔ (𝑀 ∈ (0...(𝐿 + 0)) → if(𝐿𝑀, (∅ substr ⟨(𝑀𝐿), 0⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅)) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))))
9695adantll 746 . . . . . . . . 9 ((((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) ∧ (#‘𝐵) = 0) ∧ 𝐵 = ∅) → ((𝑀 ∈ (0...(𝐿 + (#‘𝐵))) → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩)) ↔ (𝑀 ∈ (0...(𝐿 + 0)) → if(𝐿𝑀, (∅ substr ⟨(𝑀𝐿), 0⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ ∅)) = (𝐴 substr ⟨𝑀, (𝐿 + 0)⟩))))
9779, 96mpbird 246 . . . . . . . 8 ((((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) ∧ (#‘𝐵) = 0) ∧ 𝐵 = ∅) → (𝑀 ∈ (0...(𝐿 + (#‘𝐵))) → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩)))
989, 97mpdan 699 . . . . . . 7 (((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) ∧ (#‘𝐵) = 0) → (𝑀 ∈ (0...(𝐿 + (#‘𝐵))) → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩)))
9998ex 449 . . . . . 6 ((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) → ((#‘𝐵) = 0 → (𝑀 ∈ (0...(𝐿 + (#‘𝐵))) → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩))))
1005, 99syld 46 . . . . 5 ((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) → ((#‘𝐵) ≤ 0 → (𝑀 ∈ (0...(𝐿 + (#‘𝐵))) → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩))))
101100com23 84 . . . 4 ((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) → (𝑀 ∈ (0...(𝐿 + (#‘𝐵))) → ((#‘𝐵) ≤ 0 → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩))))
102101imp 444 . . 3 (((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) ∧ 𝑀 ∈ (0...(𝐿 + (#‘𝐵)))) → ((#‘𝐵) ≤ 0 → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩)))
103102adantr 480 . 2 ((((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) ∧ 𝑀 ∈ (0...(𝐿 + (#‘𝐵)))) ∧ (𝐿 + (#‘𝐵)) ≤ 𝐿) → ((#‘𝐵) ≤ 0 → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩)))
10411eleq1i 2679 . . . . . . . 8 (𝐿 ∈ ℕ0 ↔ (#‘𝐴) ∈ ℕ0)
105104, 14sylbir 224 . . . . . . 7 ((#‘𝐴) ∈ ℕ0𝐿 ∈ ℝ)
10610, 105syl 17 . . . . . 6 (𝐴 ∈ Word 𝑉𝐿 ∈ ℝ)
1071nn0red 11229 . . . . . 6 (𝐵 ∈ Word 𝑉 → (#‘𝐵) ∈ ℝ)
108 leaddle0 10422 . . . . . 6 ((𝐿 ∈ ℝ ∧ (#‘𝐵) ∈ ℝ) → ((𝐿 + (#‘𝐵)) ≤ 𝐿 ↔ (#‘𝐵) ≤ 0))
109106, 107, 108syl2an 493 . . . . 5 ((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) → ((𝐿 + (#‘𝐵)) ≤ 𝐿 ↔ (#‘𝐵) ≤ 0))
110 pm2.24 120 . . . . 5 ((#‘𝐵) ≤ 0 → (¬ (#‘𝐵) ≤ 0 → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩)))
111109, 110syl6bi 242 . . . 4 ((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) → ((𝐿 + (#‘𝐵)) ≤ 𝐿 → (¬ (#‘𝐵) ≤ 0 → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩))))
112111adantr 480 . . 3 (((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) ∧ 𝑀 ∈ (0...(𝐿 + (#‘𝐵)))) → ((𝐿 + (#‘𝐵)) ≤ 𝐿 → (¬ (#‘𝐵) ≤ 0 → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩))))
113112imp 444 . 2 ((((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) ∧ 𝑀 ∈ (0...(𝐿 + (#‘𝐵)))) ∧ (𝐿 + (#‘𝐵)) ≤ 𝐿) → (¬ (#‘𝐵) ≤ 0 → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩)))
114103, 113pm2.61d 169 1 ((((𝐴 ∈ Word 𝑉𝐵 ∈ Word 𝑉) ∧ 𝑀 ∈ (0...(𝐿 + (#‘𝐵)))) ∧ (𝐿 + (#‘𝐵)) ≤ 𝐿) → if(𝐿𝑀, (𝐵 substr ⟨(𝑀𝐿), (#‘𝐵)⟩), ((𝐴 substr ⟨𝑀, 𝐿⟩) ++ 𝐵)) = (𝐴 substr ⟨𝑀, (𝐿 + (#‘𝐵))⟩))
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 195   ∧ wa 383   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977  ∅c0 3874  ifcif 4036  ⟨cop 4131   class class class wbr 4583  ‘cfv 5804  (class class class)co 6549  ℂcc 9813  ℝcr 9814  0cc0 9815   + caddc 9818   ≤ cle 9954   − cmin 10145  ℕ0cn0 11169  ...cfz 12197  #chash 12979  Word cword 13146   ++ cconcat 13148   substr csubstr 13150 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891  ax-pre-mulgt0 9892 This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-om 6958  df-1st 7059  df-2nd 7060  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-oadd 7451  df-er 7629  df-en 7842  df-dom 7843  df-sdom 7844  df-fin 7845  df-card 8648  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-nn 10898  df-n0 11170  df-z 11255  df-uz 11564  df-fz 12198  df-fzo 12335  df-hash 12980  df-word 13154  df-concat 13156  df-substr 13158 This theorem is referenced by:  swrdccat3b  13347
 Copyright terms: Public domain W3C validator