Users' Mathboxes Mathbox for Steven Nguyen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  frlmvscadiccat Structured version   Visualization version   GIF version

Theorem frlmvscadiccat 42516
Description: Scalar multiplication distributes over concatenation. (Contributed by SN, 6-Sep-2023.)
Hypotheses
Ref Expression
frlmfzoccat.w 𝑊 = (𝐾 freeLMod (0..^𝐿))
frlmfzoccat.x 𝑋 = (𝐾 freeLMod (0..^𝑀))
frlmfzoccat.y 𝑌 = (𝐾 freeLMod (0..^𝑁))
frlmfzoccat.b 𝐵 = (Base‘𝑊)
frlmfzoccat.c 𝐶 = (Base‘𝑋)
frlmfzoccat.d 𝐷 = (Base‘𝑌)
frlmfzoccat.k (𝜑𝐾𝑍)
frlmfzoccat.l (𝜑 → (𝑀 + 𝑁) = 𝐿)
frlmfzoccat.m (𝜑𝑀 ∈ ℕ0)
frlmfzoccat.n (𝜑𝑁 ∈ ℕ0)
frlmfzoccat.u (𝜑𝑈𝐶)
frlmfzoccat.v (𝜑𝑉𝐷)
frlmvscadiccat.o 𝑂 = ( ·𝑠𝑊)
frlmvscadiccat.p = ( ·𝑠𝑋)
frlmvscadiccat.q · = ( ·𝑠𝑌)
frlmvscadiccat.s 𝑆 = (Base‘𝐾)
frlmvscadiccat.a (𝜑𝐴𝑆)
Assertion
Ref Expression
frlmvscadiccat (𝜑 → (𝐴𝑂(𝑈 ++ 𝑉)) = ((𝐴 𝑈) ++ (𝐴 · 𝑉)))

Proof of Theorem frlmvscadiccat
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 frlmvscadiccat.a . . . . . . 7 (𝜑𝐴𝑆)
2 fconstg 6795 . . . . . . 7 (𝐴𝑆 → ((0..^𝐿) × {𝐴}):(0..^𝐿)⟶{𝐴})
31, 2syl 17 . . . . . 6 (𝜑 → ((0..^𝐿) × {𝐴}):(0..^𝐿)⟶{𝐴})
43ffnd 6737 . . . . 5 (𝜑 → ((0..^𝐿) × {𝐴}) Fn (0..^𝐿))
5 fconstg 6795 . . . . . . . 8 (𝐴𝑆 → ((0..^𝑀) × {𝐴}):(0..^𝑀)⟶{𝐴})
6 iswrdi 14556 . . . . . . . 8 (((0..^𝑀) × {𝐴}):(0..^𝑀)⟶{𝐴} → ((0..^𝑀) × {𝐴}) ∈ Word {𝐴})
71, 5, 63syl 18 . . . . . . 7 (𝜑 → ((0..^𝑀) × {𝐴}) ∈ Word {𝐴})
8 fconstg 6795 . . . . . . . 8 (𝐴𝑆 → ((0..^𝑁) × {𝐴}):(0..^𝑁)⟶{𝐴})
9 iswrdi 14556 . . . . . . . 8 (((0..^𝑁) × {𝐴}):(0..^𝑁)⟶{𝐴} → ((0..^𝑁) × {𝐴}) ∈ Word {𝐴})
101, 8, 93syl 18 . . . . . . 7 (𝜑 → ((0..^𝑁) × {𝐴}) ∈ Word {𝐴})
11 ccatvalfn 14619 . . . . . . 7 ((((0..^𝑀) × {𝐴}) ∈ Word {𝐴} ∧ ((0..^𝑁) × {𝐴}) ∈ Word {𝐴}) → (((0..^𝑀) × {𝐴}) ++ ((0..^𝑁) × {𝐴})) Fn (0..^((♯‘((0..^𝑀) × {𝐴})) + (♯‘((0..^𝑁) × {𝐴})))))
127, 10, 11syl2anc 584 . . . . . 6 (𝜑 → (((0..^𝑀) × {𝐴}) ++ ((0..^𝑁) × {𝐴})) Fn (0..^((♯‘((0..^𝑀) × {𝐴})) + (♯‘((0..^𝑁) × {𝐴})))))
13 fzofi 14015 . . . . . . . . . . . 12 (0..^𝑀) ∈ Fin
14 snfi 9083 . . . . . . . . . . . 12 {𝐴} ∈ Fin
15 hashxp 14473 . . . . . . . . . . . 12 (((0..^𝑀) ∈ Fin ∧ {𝐴} ∈ Fin) → (♯‘((0..^𝑀) × {𝐴})) = ((♯‘(0..^𝑀)) · (♯‘{𝐴})))
1613, 14, 15mp2an 692 . . . . . . . . . . 11 (♯‘((0..^𝑀) × {𝐴})) = ((♯‘(0..^𝑀)) · (♯‘{𝐴}))
17 hashsng 14408 . . . . . . . . . . . . . 14 (𝐴𝑆 → (♯‘{𝐴}) = 1)
181, 17syl 17 . . . . . . . . . . . . 13 (𝜑 → (♯‘{𝐴}) = 1)
1918oveq2d 7447 . . . . . . . . . . . 12 (𝜑 → ((♯‘(0..^𝑀)) · (♯‘{𝐴})) = ((♯‘(0..^𝑀)) · 1))
20 hashcl 14395 . . . . . . . . . . . . . . 15 ((0..^𝑀) ∈ Fin → (♯‘(0..^𝑀)) ∈ ℕ0)
2113, 20mp1i 13 . . . . . . . . . . . . . 14 (𝜑 → (♯‘(0..^𝑀)) ∈ ℕ0)
2221nn0cnd 12589 . . . . . . . . . . . . 13 (𝜑 → (♯‘(0..^𝑀)) ∈ ℂ)
2322mulridd 11278 . . . . . . . . . . . 12 (𝜑 → ((♯‘(0..^𝑀)) · 1) = (♯‘(0..^𝑀)))
24 frlmfzoccat.m . . . . . . . . . . . . 13 (𝜑𝑀 ∈ ℕ0)
25 hashfzo0 14469 . . . . . . . . . . . . 13 (𝑀 ∈ ℕ0 → (♯‘(0..^𝑀)) = 𝑀)
2624, 25syl 17 . . . . . . . . . . . 12 (𝜑 → (♯‘(0..^𝑀)) = 𝑀)
2719, 23, 263eqtrd 2781 . . . . . . . . . . 11 (𝜑 → ((♯‘(0..^𝑀)) · (♯‘{𝐴})) = 𝑀)
2816, 27eqtrid 2789 . . . . . . . . . 10 (𝜑 → (♯‘((0..^𝑀) × {𝐴})) = 𝑀)
29 fzofi 14015 . . . . . . . . . . . 12 (0..^𝑁) ∈ Fin
30 hashxp 14473 . . . . . . . . . . . 12 (((0..^𝑁) ∈ Fin ∧ {𝐴} ∈ Fin) → (♯‘((0..^𝑁) × {𝐴})) = ((♯‘(0..^𝑁)) · (♯‘{𝐴})))
3129, 14, 30mp2an 692 . . . . . . . . . . 11 (♯‘((0..^𝑁) × {𝐴})) = ((♯‘(0..^𝑁)) · (♯‘{𝐴}))
3218oveq2d 7447 . . . . . . . . . . . 12 (𝜑 → ((♯‘(0..^𝑁)) · (♯‘{𝐴})) = ((♯‘(0..^𝑁)) · 1))
33 hashcl 14395 . . . . . . . . . . . . . . 15 ((0..^𝑁) ∈ Fin → (♯‘(0..^𝑁)) ∈ ℕ0)
3429, 33mp1i 13 . . . . . . . . . . . . . 14 (𝜑 → (♯‘(0..^𝑁)) ∈ ℕ0)
3534nn0cnd 12589 . . . . . . . . . . . . 13 (𝜑 → (♯‘(0..^𝑁)) ∈ ℂ)
3635mulridd 11278 . . . . . . . . . . . 12 (𝜑 → ((♯‘(0..^𝑁)) · 1) = (♯‘(0..^𝑁)))
37 frlmfzoccat.n . . . . . . . . . . . . 13 (𝜑𝑁 ∈ ℕ0)
38 hashfzo0 14469 . . . . . . . . . . . . 13 (𝑁 ∈ ℕ0 → (♯‘(0..^𝑁)) = 𝑁)
3937, 38syl 17 . . . . . . . . . . . 12 (𝜑 → (♯‘(0..^𝑁)) = 𝑁)
4032, 36, 393eqtrd 2781 . . . . . . . . . . 11 (𝜑 → ((♯‘(0..^𝑁)) · (♯‘{𝐴})) = 𝑁)
4131, 40eqtrid 2789 . . . . . . . . . 10 (𝜑 → (♯‘((0..^𝑁) × {𝐴})) = 𝑁)
4228, 41oveq12d 7449 . . . . . . . . 9 (𝜑 → ((♯‘((0..^𝑀) × {𝐴})) + (♯‘((0..^𝑁) × {𝐴}))) = (𝑀 + 𝑁))
43 frlmfzoccat.l . . . . . . . . 9 (𝜑 → (𝑀 + 𝑁) = 𝐿)
4442, 43eqtrd 2777 . . . . . . . 8 (𝜑 → ((♯‘((0..^𝑀) × {𝐴})) + (♯‘((0..^𝑁) × {𝐴}))) = 𝐿)
4544oveq2d 7447 . . . . . . 7 (𝜑 → (0..^((♯‘((0..^𝑀) × {𝐴})) + (♯‘((0..^𝑁) × {𝐴})))) = (0..^𝐿))
4645fneq2d 6662 . . . . . 6 (𝜑 → ((((0..^𝑀) × {𝐴}) ++ ((0..^𝑁) × {𝐴})) Fn (0..^((♯‘((0..^𝑀) × {𝐴})) + (♯‘((0..^𝑁) × {𝐴})))) ↔ (((0..^𝑀) × {𝐴}) ++ ((0..^𝑁) × {𝐴})) Fn (0..^𝐿)))
4712, 46mpbid 232 . . . . 5 (𝜑 → (((0..^𝑀) × {𝐴}) ++ ((0..^𝑁) × {𝐴})) Fn (0..^𝐿))
4828adantr 480 . . . . . . . . 9 ((𝜑𝑥 ∈ (0..^𝐿)) → (♯‘((0..^𝑀) × {𝐴})) = 𝑀)
4948breq2d 5155 . . . . . . . 8 ((𝜑𝑥 ∈ (0..^𝐿)) → (𝑥 < (♯‘((0..^𝑀) × {𝐴})) ↔ 𝑥 < 𝑀))
5049ifbid 4549 . . . . . . 7 ((𝜑𝑥 ∈ (0..^𝐿)) → if(𝑥 < (♯‘((0..^𝑀) × {𝐴})), (((0..^𝑀) × {𝐴})‘𝑥), (((0..^𝑁) × {𝐴})‘(𝑥 − (♯‘((0..^𝑀) × {𝐴}))))) = if(𝑥 < 𝑀, (((0..^𝑀) × {𝐴})‘𝑥), (((0..^𝑁) × {𝐴})‘(𝑥 − (♯‘((0..^𝑀) × {𝐴}))))))
511adantr 480 . . . . . . . . 9 ((𝜑𝑥 ∈ (0..^𝐿)) → 𝐴𝑆)
52 elfzouz 13703 . . . . . . . . . . 11 (𝑥 ∈ (0..^𝐿) → 𝑥 ∈ (ℤ‘0))
5352ad2antlr 727 . . . . . . . . . 10 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ 𝑥 < 𝑀) → 𝑥 ∈ (ℤ‘0))
5424ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ 𝑥 < 𝑀) → 𝑀 ∈ ℕ0)
5554nn0zd 12639 . . . . . . . . . 10 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ 𝑥 < 𝑀) → 𝑀 ∈ ℤ)
56 simpr 484 . . . . . . . . . 10 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ 𝑥 < 𝑀) → 𝑥 < 𝑀)
57 elfzo2 13702 . . . . . . . . . 10 (𝑥 ∈ (0..^𝑀) ↔ (𝑥 ∈ (ℤ‘0) ∧ 𝑀 ∈ ℤ ∧ 𝑥 < 𝑀))
5853, 55, 56, 57syl3anbrc 1344 . . . . . . . . 9 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ 𝑥 < 𝑀) → 𝑥 ∈ (0..^𝑀))
59 fvconst2g 7222 . . . . . . . . 9 ((𝐴𝑆𝑥 ∈ (0..^𝑀)) → (((0..^𝑀) × {𝐴})‘𝑥) = 𝐴)
6051, 58, 59syl2an2r 685 . . . . . . . 8 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ 𝑥 < 𝑀) → (((0..^𝑀) × {𝐴})‘𝑥) = 𝐴)
6128ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → (♯‘((0..^𝑀) × {𝐴})) = 𝑀)
6261oveq2d 7447 . . . . . . . . . 10 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → (𝑥 − (♯‘((0..^𝑀) × {𝐴}))) = (𝑥𝑀))
6324ad2antrr 726 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → 𝑀 ∈ ℕ0)
64 elfzonn0 13747 . . . . . . . . . . . . . 14 (𝑥 ∈ (0..^𝐿) → 𝑥 ∈ ℕ0)
6564ad2antlr 727 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → 𝑥 ∈ ℕ0)
6624adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (0..^𝐿)) → 𝑀 ∈ ℕ0)
6766nn0red 12588 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (0..^𝐿)) → 𝑀 ∈ ℝ)
68 elfzoelz 13699 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ (0..^𝐿) → 𝑥 ∈ ℤ)
6968adantl 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (0..^𝐿)) → 𝑥 ∈ ℤ)
7069zred 12722 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (0..^𝐿)) → 𝑥 ∈ ℝ)
7167, 70lenltd 11407 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (0..^𝐿)) → (𝑀𝑥 ↔ ¬ 𝑥 < 𝑀))
7271biimpar 477 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → 𝑀𝑥)
73 nn0sub2 12679 . . . . . . . . . . . . 13 ((𝑀 ∈ ℕ0𝑥 ∈ ℕ0𝑀𝑥) → (𝑥𝑀) ∈ ℕ0)
7463, 65, 72, 73syl3anc 1373 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → (𝑥𝑀) ∈ ℕ0)
75 elnn0uz 12923 . . . . . . . . . . . 12 ((𝑥𝑀) ∈ ℕ0 ↔ (𝑥𝑀) ∈ (ℤ‘0))
7674, 75sylib 218 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → (𝑥𝑀) ∈ (ℤ‘0))
7737ad2antrr 726 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → 𝑁 ∈ ℕ0)
7877nn0zd 12639 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → 𝑁 ∈ ℤ)
79 elfzolt2 13708 . . . . . . . . . . . . . . 15 (𝑥 ∈ (0..^𝐿) → 𝑥 < 𝐿)
8079adantl 481 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (0..^𝐿)) → 𝑥 < 𝐿)
8167recnd 11289 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (0..^𝐿)) → 𝑀 ∈ ℂ)
8270recnd 11289 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (0..^𝐿)) → 𝑥 ∈ ℂ)
8381, 82pncan3d 11623 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (0..^𝐿)) → (𝑀 + (𝑥𝑀)) = 𝑥)
8443adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (0..^𝐿)) → (𝑀 + 𝑁) = 𝐿)
8580, 83, 843brtr4d 5175 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (0..^𝐿)) → (𝑀 + (𝑥𝑀)) < (𝑀 + 𝑁))
8670, 67resubcld 11691 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (0..^𝐿)) → (𝑥𝑀) ∈ ℝ)
8737adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (0..^𝐿)) → 𝑁 ∈ ℕ0)
8887nn0red 12588 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (0..^𝐿)) → 𝑁 ∈ ℝ)
8986, 88, 67ltadd2d 11417 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (0..^𝐿)) → ((𝑥𝑀) < 𝑁 ↔ (𝑀 + (𝑥𝑀)) < (𝑀 + 𝑁)))
9085, 89mpbird 257 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (0..^𝐿)) → (𝑥𝑀) < 𝑁)
9190adantr 480 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → (𝑥𝑀) < 𝑁)
92 elfzo2 13702 . . . . . . . . . . 11 ((𝑥𝑀) ∈ (0..^𝑁) ↔ ((𝑥𝑀) ∈ (ℤ‘0) ∧ 𝑁 ∈ ℤ ∧ (𝑥𝑀) < 𝑁))
9376, 78, 91, 92syl3anbrc 1344 . . . . . . . . . 10 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → (𝑥𝑀) ∈ (0..^𝑁))
9462, 93eqeltrd 2841 . . . . . . . . 9 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → (𝑥 − (♯‘((0..^𝑀) × {𝐴}))) ∈ (0..^𝑁))
95 fvconst2g 7222 . . . . . . . . 9 ((𝐴𝑆 ∧ (𝑥 − (♯‘((0..^𝑀) × {𝐴}))) ∈ (0..^𝑁)) → (((0..^𝑁) × {𝐴})‘(𝑥 − (♯‘((0..^𝑀) × {𝐴})))) = 𝐴)
9651, 94, 95syl2an2r 685 . . . . . . . 8 (((𝜑𝑥 ∈ (0..^𝐿)) ∧ ¬ 𝑥 < 𝑀) → (((0..^𝑁) × {𝐴})‘(𝑥 − (♯‘((0..^𝑀) × {𝐴})))) = 𝐴)
9760, 96ifeqda 4562 . . . . . . 7 ((𝜑𝑥 ∈ (0..^𝐿)) → if(𝑥 < 𝑀, (((0..^𝑀) × {𝐴})‘𝑥), (((0..^𝑁) × {𝐴})‘(𝑥 − (♯‘((0..^𝑀) × {𝐴}))))) = 𝐴)
9850, 97eqtr2d 2778 . . . . . 6 ((𝜑𝑥 ∈ (0..^𝐿)) → 𝐴 = if(𝑥 < (♯‘((0..^𝑀) × {𝐴})), (((0..^𝑀) × {𝐴})‘𝑥), (((0..^𝑁) × {𝐴})‘(𝑥 − (♯‘((0..^𝑀) × {𝐴}))))))
99 fvconst2g 7222 . . . . . . 7 ((𝐴𝑆𝑥 ∈ (0..^𝐿)) → (((0..^𝐿) × {𝐴})‘𝑥) = 𝐴)
1001, 99sylan 580 . . . . . 6 ((𝜑𝑥 ∈ (0..^𝐿)) → (((0..^𝐿) × {𝐴})‘𝑥) = 𝐴)
10151, 5, 63syl 18 . . . . . . 7 ((𝜑𝑥 ∈ (0..^𝐿)) → ((0..^𝑀) × {𝐴}) ∈ Word {𝐴})
10251, 8, 93syl 18 . . . . . . 7 ((𝜑𝑥 ∈ (0..^𝐿)) → ((0..^𝑁) × {𝐴}) ∈ Word {𝐴})
103 ccatsymb 14620 . . . . . . 7 ((((0..^𝑀) × {𝐴}) ∈ Word {𝐴} ∧ ((0..^𝑁) × {𝐴}) ∈ Word {𝐴} ∧ 𝑥 ∈ ℤ) → ((((0..^𝑀) × {𝐴}) ++ ((0..^𝑁) × {𝐴}))‘𝑥) = if(𝑥 < (♯‘((0..^𝑀) × {𝐴})), (((0..^𝑀) × {𝐴})‘𝑥), (((0..^𝑁) × {𝐴})‘(𝑥 − (♯‘((0..^𝑀) × {𝐴}))))))
104101, 102, 69, 103syl3anc 1373 . . . . . 6 ((𝜑𝑥 ∈ (0..^𝐿)) → ((((0..^𝑀) × {𝐴}) ++ ((0..^𝑁) × {𝐴}))‘𝑥) = if(𝑥 < (♯‘((0..^𝑀) × {𝐴})), (((0..^𝑀) × {𝐴})‘𝑥), (((0..^𝑁) × {𝐴})‘(𝑥 − (♯‘((0..^𝑀) × {𝐴}))))))
10598, 100, 1043eqtr4d 2787 . . . . 5 ((𝜑𝑥 ∈ (0..^𝐿)) → (((0..^𝐿) × {𝐴})‘𝑥) = ((((0..^𝑀) × {𝐴}) ++ ((0..^𝑁) × {𝐴}))‘𝑥))
1064, 47, 105eqfnfvd 7054 . . . 4 (𝜑 → ((0..^𝐿) × {𝐴}) = (((0..^𝑀) × {𝐴}) ++ ((0..^𝑁) × {𝐴})))
107106oveq1d 7446 . . 3 (𝜑 → (((0..^𝐿) × {𝐴}) ∘f (.r𝐾)(𝑈 ++ 𝑉)) = ((((0..^𝑀) × {𝐴}) ++ ((0..^𝑁) × {𝐴})) ∘f (.r𝐾)(𝑈 ++ 𝑉)))
108 frlmfzoccat.u . . . . 5 (𝜑𝑈𝐶)
109 frlmfzoccat.x . . . . . 6 𝑋 = (𝐾 freeLMod (0..^𝑀))
110 frlmfzoccat.c . . . . . 6 𝐶 = (Base‘𝑋)
111 frlmvscadiccat.s . . . . . 6 𝑆 = (Base‘𝐾)
112109, 110, 111frlmfzowrd 42512 . . . . 5 (𝑈𝐶𝑈 ∈ Word 𝑆)
113108, 112syl 17 . . . 4 (𝜑𝑈 ∈ Word 𝑆)
114 frlmfzoccat.v . . . . 5 (𝜑𝑉𝐷)
115 frlmfzoccat.y . . . . . 6 𝑌 = (𝐾 freeLMod (0..^𝑁))
116 frlmfzoccat.d . . . . . 6 𝐷 = (Base‘𝑌)
117115, 116, 111frlmfzowrd 42512 . . . . 5 (𝑉𝐷𝑉 ∈ Word 𝑆)
118114, 117syl 17 . . . 4 (𝜑𝑉 ∈ Word 𝑆)
11916, 19eqtrid 2789 . . . . 5 (𝜑 → (♯‘((0..^𝑀) × {𝐴})) = ((♯‘(0..^𝑀)) · 1))
120 ovexd 7466 . . . . . . . 8 (𝜑 → (0..^𝑀) ∈ V)
121109, 111, 110frlmbasf 21780 . . . . . . . 8 (((0..^𝑀) ∈ V ∧ 𝑈𝐶) → 𝑈:(0..^𝑀)⟶𝑆)
122120, 108, 121syl2anc 584 . . . . . . 7 (𝜑𝑈:(0..^𝑀)⟶𝑆)
123122ffnd 6737 . . . . . 6 (𝜑𝑈 Fn (0..^𝑀))
124 hashfn 14414 . . . . . 6 (𝑈 Fn (0..^𝑀) → (♯‘𝑈) = (♯‘(0..^𝑀)))
125123, 124syl 17 . . . . 5 (𝜑 → (♯‘𝑈) = (♯‘(0..^𝑀)))
12623, 119, 1253eqtr4d 2787 . . . 4 (𝜑 → (♯‘((0..^𝑀) × {𝐴})) = (♯‘𝑈))
12732, 36eqtrd 2777 . . . . . 6 (𝜑 → ((♯‘(0..^𝑁)) · (♯‘{𝐴})) = (♯‘(0..^𝑁)))
12831, 127eqtrid 2789 . . . . 5 (𝜑 → (♯‘((0..^𝑁) × {𝐴})) = (♯‘(0..^𝑁)))
129 ovexd 7466 . . . . . . . 8 (𝜑 → (0..^𝑁) ∈ V)
130115, 111, 116frlmbasf 21780 . . . . . . . 8 (((0..^𝑁) ∈ V ∧ 𝑉𝐷) → 𝑉:(0..^𝑁)⟶𝑆)
131129, 114, 130syl2anc 584 . . . . . . 7 (𝜑𝑉:(0..^𝑁)⟶𝑆)
132131ffnd 6737 . . . . . 6 (𝜑𝑉 Fn (0..^𝑁))
133 hashfn 14414 . . . . . 6 (𝑉 Fn (0..^𝑁) → (♯‘𝑉) = (♯‘(0..^𝑁)))
134132, 133syl 17 . . . . 5 (𝜑 → (♯‘𝑉) = (♯‘(0..^𝑁)))
135128, 134eqtr4d 2780 . . . 4 (𝜑 → (♯‘((0..^𝑁) × {𝐴})) = (♯‘𝑉))
1367, 10, 113, 118, 126, 135ofccat 15008 . . 3 (𝜑 → ((((0..^𝑀) × {𝐴}) ++ ((0..^𝑁) × {𝐴})) ∘f (.r𝐾)(𝑈 ++ 𝑉)) = ((((0..^𝑀) × {𝐴}) ∘f (.r𝐾)𝑈) ++ (((0..^𝑁) × {𝐴}) ∘f (.r𝐾)𝑉)))
137107, 136eqtrd 2777 . 2 (𝜑 → (((0..^𝐿) × {𝐴}) ∘f (.r𝐾)(𝑈 ++ 𝑉)) = ((((0..^𝑀) × {𝐴}) ∘f (.r𝐾)𝑈) ++ (((0..^𝑁) × {𝐴}) ∘f (.r𝐾)𝑉)))
138 frlmfzoccat.w . . 3 𝑊 = (𝐾 freeLMod (0..^𝐿))
139 frlmfzoccat.b . . 3 𝐵 = (Base‘𝑊)
140 ovexd 7466 . . 3 (𝜑 → (0..^𝐿) ∈ V)
141 frlmfzoccat.k . . . 4 (𝜑𝐾𝑍)
142138, 109, 115, 139, 110, 116, 141, 43, 24, 37, 108, 114frlmfzoccat 42515 . . 3 (𝜑 → (𝑈 ++ 𝑉) ∈ 𝐵)
143 frlmvscadiccat.o . . 3 𝑂 = ( ·𝑠𝑊)
144 eqid 2737 . . 3 (.r𝐾) = (.r𝐾)
145138, 139, 111, 140, 1, 142, 143, 144frlmvscafval 21786 . 2 (𝜑 → (𝐴𝑂(𝑈 ++ 𝑉)) = (((0..^𝐿) × {𝐴}) ∘f (.r𝐾)(𝑈 ++ 𝑉)))
146 frlmvscadiccat.p . . . 4 = ( ·𝑠𝑋)
147109, 110, 111, 120, 1, 108, 146, 144frlmvscafval 21786 . . 3 (𝜑 → (𝐴 𝑈) = (((0..^𝑀) × {𝐴}) ∘f (.r𝐾)𝑈))
148 frlmvscadiccat.q . . . 4 · = ( ·𝑠𝑌)
149115, 116, 111, 129, 1, 114, 148, 144frlmvscafval 21786 . . 3 (𝜑 → (𝐴 · 𝑉) = (((0..^𝑁) × {𝐴}) ∘f (.r𝐾)𝑉))
150147, 149oveq12d 7449 . 2 (𝜑 → ((𝐴 𝑈) ++ (𝐴 · 𝑉)) = ((((0..^𝑀) × {𝐴}) ∘f (.r𝐾)𝑈) ++ (((0..^𝑁) × {𝐴}) ∘f (.r𝐾)𝑉)))
151137, 145, 1503eqtr4d 2787 1 (𝜑 → (𝐴𝑂(𝑈 ++ 𝑉)) = ((𝐴 𝑈) ++ (𝐴 · 𝑉)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395   = wceq 1540  wcel 2108  Vcvv 3480  ifcif 4525  {csn 4626   class class class wbr 5143   × cxp 5683   Fn wfn 6556  wf 6557  cfv 6561  (class class class)co 7431  f cof 7695  Fincfn 8985  0cc0 11155  1c1 11156   + caddc 11158   · cmul 11160   < clt 11295  cle 11296  cmin 11492  0cn0 12526  cz 12613  cuz 12878  ..^cfzo 13694  chash 14369  Word cword 14552   ++ cconcat 14608  Basecbs 17247  .rcmulr 17298   ·𝑠 cvsca 17301   freeLMod cfrlm 21766
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 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-rep 5279  ax-sep 5296  ax-nul 5306  ax-pow 5365  ax-pr 5432  ax-un 7755  ax-cnex 11211  ax-resscn 11212  ax-1cn 11213  ax-icn 11214  ax-addcl 11215  ax-addrcl 11216  ax-mulcl 11217  ax-mulrcl 11218  ax-mulcom 11219  ax-addass 11220  ax-mulass 11221  ax-distr 11222  ax-i2m1 11223  ax-1ne0 11224  ax-1rid 11225  ax-rnegex 11226  ax-rrecex 11227  ax-cnre 11228  ax-pre-lttri 11229  ax-pre-lttrn 11230  ax-pre-ltadd 11231  ax-pre-mulgt0 11232
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-reu 3381  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-tp 4631  df-op 4633  df-uni 4908  df-int 4947  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-we 5639  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-pred 6321  df-ord 6387  df-on 6388  df-lim 6389  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-of 7697  df-om 7888  df-1st 8014  df-2nd 8015  df-supp 8186  df-frecs 8306  df-wrecs 8337  df-recs 8411  df-rdg 8450  df-1o 8506  df-oadd 8510  df-er 8745  df-map 8868  df-ixp 8938  df-en 8986  df-dom 8987  df-sdom 8988  df-fin 8989  df-fsupp 9402  df-sup 9482  df-dju 9941  df-card 9979  df-pnf 11297  df-mnf 11298  df-xr 11299  df-ltxr 11300  df-le 11301  df-sub 11494  df-neg 11495  df-nn 12267  df-2 12329  df-3 12330  df-4 12331  df-5 12332  df-6 12333  df-7 12334  df-8 12335  df-9 12336  df-n0 12527  df-z 12614  df-dec 12734  df-uz 12879  df-fz 13548  df-fzo 13695  df-hash 14370  df-word 14553  df-concat 14609  df-struct 17184  df-sets 17201  df-slot 17219  df-ndx 17231  df-base 17248  df-ress 17275  df-plusg 17310  df-mulr 17311  df-sca 17313  df-vsca 17314  df-ip 17315  df-tset 17316  df-ple 17317  df-ds 17319  df-hom 17321  df-cco 17322  df-0g 17486  df-prds 17492  df-pws 17494  df-sra 21172  df-rgmod 21173  df-dsmm 21752  df-frlm 21767
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator