Theorem ccatlen 11283

Description: The length of a concatenated word. (Contributed by Stefan O'Rear, 15-Aug-2015.) (Revised by JJ, 1-Jan-2024.)

Assertion

Ref	Expression
ccatlen	|- ( ( S e. Word A /\ T e. Word B ) -> (♯ ` ( S ++ T ) ) = ( (♯ ` S ) + (♯ ` T ) ) )

Proof of Theorem ccatlen

Dummy variable x is distinct from all other variables.

Step	Hyp	Ref	Expression
1		wrdfin 11243	. . . 4 |- ( S e. Word A -> S e. Fin )
2		wrdfin 11243	. . . 4 |- ( T e. Word B -> T e. Fin )
3		ccatfvalfi 11280	. . . 4 |- ( ( S e. Fin /\ T e. Fin ) -> ( S ++ T ) = ( x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) |-> if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) ) )
4	1, 2, 3	syl2an 289	. . 3 |- ( ( S e. Word A /\ T e. Word B ) -> ( S ++ T ) = ( x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) |-> if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) ) )
5	4	fveq2d 5674	. 2 |- ( ( S e. Word A /\ T e. Word B ) -> (♯ ` ( S ++ T ) ) = (♯ ` ( x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) |-> if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) ) ) )
6		fvexg 5689	. . . . . . 7 |- ( ( S e. Word A /\ x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) -> ( S ` x ) e. _V )
7	6	adantlr 477	. . . . . 6 |- ( ( ( S e. Word A /\ T e. Word B ) /\ x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) -> ( S ` x ) e. _V )
8		simplr 529	. . . . . . 7 |- ( ( ( S e. Word A /\ T e. Word B ) /\ x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) -> T e. Word B )
9		elfzoelz 10481	. . . . . . . . 9 |- ( x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) -> x e. ZZ )
10	9	adantl 277	. . . . . . . 8 |- ( ( ( S e. Word A /\ T e. Word B ) /\ x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) -> x e. ZZ )
11		lencl 11228	. . . . . . . . . 10 |- ( S e. Word A -> (♯ ` S ) e. NN0 )
12	11	ad2antrr 488	. . . . . . . . 9 |- ( ( ( S e. Word A /\ T e. Word B ) /\ x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) -> (♯ ` S ) e. NN0 )
13	12	nn0zd 9698	. . . . . . . 8 |- ( ( ( S e. Word A /\ T e. Word B ) /\ x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) -> (♯ ` S ) e. ZZ )
14	10, 13	zsubcld 9705	. . . . . . 7 |- ( ( ( S e. Word A /\ T e. Word B ) /\ x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) -> ( x - (♯ ` S ) ) e. ZZ )
15		fvexg 5689	. . . . . . 7 |- ( ( T e. Word B /\ ( x - (♯ ` S ) ) e. ZZ ) -> ( T ` ( x - (♯ ` S ) ) ) e. _V )
16	8, 14, 15	syl2anc 411	. . . . . 6 |- ( ( ( S e. Word A /\ T e. Word B ) /\ x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) -> ( T ` ( x - (♯ ` S ) ) ) e. _V )
17	7, 16	ifexd 4605	. . . . 5 |- ( ( ( S e. Word A /\ T e. Word B ) /\ x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) -> if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) e. _V )
18	17	ralrimiva 2615	. . . 4 |- ( ( S e. Word A /\ T e. Word B ) -> A. x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) e. _V )
19		eqid 2232	. . . . 5 |- ( x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) |-> if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) ) = ( x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) |-> if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) )
20	19	fnmpt 5485	. . . 4 |- ( A. x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) e. _V -> ( x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) |-> if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) ) Fn ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) )
21	18, 20	syl 14	. . 3 |- ( ( S e. Word A /\ T e. Word B ) -> ( x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) |-> if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) ) Fn ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) )
22		0zd 9589	. . . 4 |- ( ( S e. Word A /\ T e. Word B ) -> 0 e. ZZ )
23	11	adantr 276	. . . . . 6 |- ( ( S e. Word A /\ T e. Word B ) -> (♯ ` S ) e. NN0 )
24	23	nn0zd 9698	. . . . 5 |- ( ( S e. Word A /\ T e. Word B ) -> (♯ ` S ) e. ZZ )
25		lencl 11228	. . . . . . 7 |- ( T e. Word B -> (♯ ` T ) e. NN0 )
26	25	nn0zd 9698	. . . . . 6 |- ( T e. Word B -> (♯ ` T ) e. ZZ )
27	26	adantl 277	. . . . 5 |- ( ( S e. Word A /\ T e. Word B ) -> (♯ ` T ) e. ZZ )
28	24, 27	zaddcld 9704	. . . 4 |- ( ( S e. Word A /\ T e. Word B ) -> ( (♯ ` S ) + (♯ ` T ) ) e. ZZ )
29		fzofig 10794	. . . 4 |- ( ( 0 e. ZZ /\ ( (♯ ` S ) + (♯ ` T ) ) e. ZZ ) -> ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) e. Fin )
30	22, 28, 29	syl2anc 411	. . 3 |- ( ( S e. Word A /\ T e. Word B ) -> ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) e. Fin )
31		fihashfn 11164	. . 3 |- ( ( ( x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) |-> if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) ) Fn ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) /\ ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) e. Fin ) -> (♯ ` ( x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) |-> if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) ) ) = (♯ ` ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) )
32	21, 30, 31	syl2anc 411	. 2 |- ( ( S e. Word A /\ T e. Word B ) -> (♯ ` ( x e. ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) |-> if ( x e. ( 0..^ (♯ ` S ) ) , ( S ` x ) , ( T ` ( x - (♯ ` S ) ) ) ) ) ) = (♯ ` ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) )
33		nn0addcl 9531	. . . 4 |- ( ( (♯ ` S ) e. NN0 /\ (♯ ` T ) e. NN0 ) -> ( (♯ ` S ) + (♯ ` T ) ) e. NN0 )
34	11, 25, 33	syl2an 289	. . 3 |- ( ( S e. Word A /\ T e. Word B ) -> ( (♯ ` S ) + (♯ ` T ) ) e. NN0 )
35		hashfzo0 11188	. . 3 |- ( ( (♯ ` S ) + (♯ ` T ) ) e. NN0 -> (♯ ` ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) = ( (♯ ` S ) + (♯ ` T ) ) )
36	34, 35	syl 14	. 2 |- ( ( S e. Word A /\ T e. Word B ) -> (♯ ` ( 0..^ ( (♯ ` S ) + (♯ ` T ) ) ) ) = ( (♯ ` S ) + (♯ ` T ) ) )
37	5, 32, 36	3eqtrd 2269	1 |- ( ( S e. Word A /\ T e. Word B ) -> (♯ ` ( S ++ T ) ) = ( (♯ ` S ) + (♯ ` T ) ) )

Syntax hints:   -> wi 4   /\ wa 104   = wceq 1398   e. wcel 2203   A.wral 2520   _Vcvv 2813   ifcif 3620   |-> cmpt 4171   Fn wfn 5347   ` cfv 5352  (class class class)co 6050   Fincfn 6975   0cc0 8127   + caddc 8130   - cmin 8444   NN0cn0 9496   ZZcz 9577  ..^cfzo 10476  ♯chash 11138  Word cword 11224   ++ cconcat 11278

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-coll 4225  ax-sep 4228  ax-nul 4236  ax-pow 4287  ax-pr 4322  ax-un 4554  ax-setind 4659  ax-iinf 4710  ax-cnex 8218  ax-resscn 8219  ax-1cn 8220  ax-1re 8221  ax-icn 8222  ax-addcl 8223  ax-addrcl 8224  ax-mulcl 8225  ax-addcom 8227  ax-addass 8229  ax-distr 8231  ax-i2m1 8232  ax-0lt1 8233  ax-0id 8235  ax-rnegex 8236  ax-cnre 8238  ax-pre-ltirr 8239  ax-pre-ltwlin 8240  ax-pre-lttrn 8241  ax-pre-apti 8242  ax-pre-ltadd 8243

This theorem depends on definitions:  df-bi 117  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-nel 2508  df-ral 2525  df-rex 2526  df-reu 2527  df-rab 2529  df-v 2815  df-sbc 3043  df-csb 3139  df-dif 3213  df-un 3215  df-in 3217  df-ss 3224  df-nul 3509  df-if 3621  df-pw 3671  df-sn 3695  df-pr 3696  df-op 3698  df-uni 3915  df-int 3950  df-iun 3993  df-br 4110  df-opab 4172  df-mpt 4173  df-tr 4209  df-id 4414  df-iord 4487  df-on 4489  df-ilim 4490  df-suc 4492  df-iom 4713  df-xp 4755  df-rel 4756  df-cnv 4757  df-co 4758  df-dm 4759  df-rn 4760  df-res 4761  df-ima 4762  df-iota 5312  df-fun 5354  df-fn 5355  df-f 5356  df-f1 5357  df-fo 5358  df-f1o 5359  df-fv 5360  df-riota 6003  df-ov 6053  df-oprab 6054  df-mpo 6055  df-1st 6334  df-2nd 6335  df-recs 6536  df-frec 6622  df-1o 6647  df-er 6767  df-en 6976  df-dom 6977  df-fin 6978  df-pnf 8310  df-mnf 8311  df-xr 8312  df-ltxr 8313  df-le 8314  df-sub 8446  df-neg 8447  df-inn 9238  df-n0 9497  df-z 9578  df-uz 9854  df-fz 10343  df-fzo 10477  df-ihash 11139  df-word 11225  df-concat 11279

This theorem is referenced by:  ccat0  11284  elfzelfzccat  11288  ccatsymb  11290  ccatass  11296  lswccatn0lsw  11299  ccatws1leng  11322  ccatswrd  11362  swrdccat2  11363  ccatpfx  11393  pfxccat1  11394  lenrevpfxcctswrd  11404  ccatopth  11408  ccatopth2  11409  swrdccatfn  11416  swrdccatin2  11421  pfxccatin12lem2c  11422  cats1lend  11459  clwwlkccatlem  16395  clwwlknccat  16418