sseqfv2 - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > sseqfv2		Structured version Visualization version GIF version

Theorem sseqfv2 33691

Description: Value of the strong sequence builder function. (Contributed by Thierry Arnoux, 21-Apr-2019.)

**Hypotheses**
Ref	Expression
sseqval.1	⊢ (𝜑 → 𝑆 ∈ V)
sseqval.2	⊢ (𝜑 → 𝑀 ∈ Word 𝑆)
sseqval.3	⊢ 𝑊 = (Word 𝑆 ∩ (^◡♯ “ (ℤ_≥‘(♯‘𝑀))))
sseqval.4	⊢ (𝜑 → 𝐹:𝑊⟶𝑆)
sseqfv2.4	⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘(♯‘𝑀)))

**Assertion**
Ref	Expression
sseqfv2	⊢ (𝜑 → ((𝑀seq_str𝐹)‘𝑁) = (lastS‘(seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)}))‘𝑁)))

Distinct variable groups: 𝑥,𝑦,𝐹 𝑥,𝑀,𝑦 𝜑,𝑥,𝑦 𝑥,𝑊,𝑦 Allowed substitution hints: 𝑆(𝑥,𝑦) 𝑁(𝑥,𝑦)

Proof of Theorem sseqfv2 Dummy variables 𝑎 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		sseqval.1	. . . 4 ⊢ (𝜑 → 𝑆 ∈ V)
2		sseqval.2	. . . 4 ⊢ (𝜑 → 𝑀 ∈ Word 𝑆)
3		sseqval.3	. . . 4 ⊢ 𝑊 = (Word 𝑆 ∩ (^◡♯ “ (ℤ_≥‘(♯‘𝑀))))
4		sseqval.4	. . . 4 ⊢ (𝜑 → 𝐹:𝑊⟶𝑆)
5	1, 2, 3, 4	sseqval 33685	. . 3 ⊢ (𝜑 → (𝑀seq_str𝐹) = (𝑀 ∪ (lastS ∘ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})))))
6	5	fveq1d 6892	. 2 ⊢ (𝜑 → ((𝑀seq_str𝐹)‘𝑁) = ((𝑀 ∪ (lastS ∘ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)}))))‘𝑁))
7		wrdfn 14482	. . . 4 ⊢ (𝑀 ∈ Word 𝑆 → 𝑀 Fn (0..^(♯‘𝑀)))
8	2, 7	syl 17	. . 3 ⊢ (𝜑 → 𝑀 Fn (0..^(♯‘𝑀)))
9		fvex 6903	. . . . . 6 ⊢ (𝑥‘((♯‘𝑥) − 1)) ∈ V
10		df-lsw 14517	. . . . . 6 ⊢ lastS = (𝑥 ∈ V ↦ (𝑥‘((♯‘𝑥) − 1)))
11	9, 10	fnmpti 6692	. . . . 5 ⊢ lastS Fn V
12	11	a1i 11	. . . 4 ⊢ (𝜑 → lastS Fn V)
13		lencl 14487	. . . . . . 7 ⊢ (𝑀 ∈ Word 𝑆 → (♯‘𝑀) ∈ ℕ₀)
14	2, 13	syl 17	. . . . . 6 ⊢ (𝜑 → (♯‘𝑀) ∈ ℕ₀)
15	14	nn0zd 12588	. . . . 5 ⊢ (𝜑 → (♯‘𝑀) ∈ ℤ)
16		seqfn 13982	. . . . 5 ⊢ ((♯‘𝑀) ∈ ℤ → seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})) Fn (ℤ_≥‘(♯‘𝑀)))
17	15, 16	syl 17	. . . 4 ⊢ (𝜑 → seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})) Fn (ℤ_≥‘(♯‘𝑀)))
18		ssv 4005	. . . . 5 ⊢ ran seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})) ⊆ V
19	18	a1i 11	. . . 4 ⊢ (𝜑 → ran seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})) ⊆ V)
20		fnco 6666	. . . 4 ⊢ ((lastS Fn V ∧ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})) Fn (ℤ_≥‘(♯‘𝑀)) ∧ ran seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})) ⊆ V) → (lastS ∘ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)}))) Fn (ℤ_≥‘(♯‘𝑀)))
21	12, 17, 19, 20	syl3anc 1369	. . 3 ⊢ (𝜑 → (lastS ∘ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)}))) Fn (ℤ_≥‘(♯‘𝑀)))
22		fzouzdisj 13672	. . . 4 ⊢ ((0..^(♯‘𝑀)) ∩ (ℤ_≥‘(♯‘𝑀))) = ∅
23	22	a1i 11	. . 3 ⊢ (𝜑 → ((0..^(♯‘𝑀)) ∩ (ℤ_≥‘(♯‘𝑀))) = ∅)
24		sseqfv2.4	. . 3 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘(♯‘𝑀)))
25		fvun2 6982	. . 3 ⊢ ((𝑀 Fn (0..^(♯‘𝑀)) ∧ (lastS ∘ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)}))) Fn (ℤ_≥‘(♯‘𝑀)) ∧ (((0..^(♯‘𝑀)) ∩ (ℤ_≥‘(♯‘𝑀))) = ∅ ∧ 𝑁 ∈ (ℤ_≥‘(♯‘𝑀)))) → ((𝑀 ∪ (lastS ∘ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)}))))‘𝑁) = ((lastS ∘ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})))‘𝑁))
26	8, 21, 23, 24, 25	syl112anc 1372	. 2 ⊢ (𝜑 → ((𝑀 ∪ (lastS ∘ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)}))))‘𝑁) = ((lastS ∘ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})))‘𝑁))
27		fnfun 6648	. . . 4 ⊢ (seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})) Fn (ℤ_≥‘(♯‘𝑀)) → Fun seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})))
28	17, 27	syl 17	. . 3 ⊢ (𝜑 → Fun seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})))
29		fvexd 6905	. . . . . 6 ⊢ (𝜑 → ((ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})‘(♯‘𝑀)) ∈ V)
30		ovexd 7446	. . . . . 6 ⊢ ((𝜑 ∧ (𝑎 ∈ V ∧ 𝑏 ∈ V)) → (𝑎(𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩))𝑏) ∈ V)
31		eqid 2730	. . . . . 6 ⊢ (ℤ_≥‘(♯‘𝑀)) = (ℤ_≥‘(♯‘𝑀))
32		fvexd 6905	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ (ℤ_≥‘((♯‘𝑀) + 1))) → ((ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})‘𝑎) ∈ V)
33	29, 30, 31, 15, 32	seqf2 13991	. . . . 5 ⊢ (𝜑 → seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})):(ℤ_≥‘(♯‘𝑀))⟶V)
34	33	fdmd 6727	. . . 4 ⊢ (𝜑 → dom seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})) = (ℤ_≥‘(♯‘𝑀)))
35	24, 34	eleqtrrd 2834	. . 3 ⊢ (𝜑 → 𝑁 ∈ dom seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})))
36		fvco 6988	. . 3 ⊢ ((Fun seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})) ∧ 𝑁 ∈ dom seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)}))) → ((lastS ∘ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})))‘𝑁) = (lastS‘(seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)}))‘𝑁)))
37	28, 35, 36	syl2anc 582	. 2 ⊢ (𝜑 → ((lastS ∘ seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)})))‘𝑁) = (lastS‘(seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)}))‘𝑁)))
38	6, 26, 37	3eqtrd 2774	1 ⊢ (𝜑 → ((𝑀seq_str𝐹)‘𝑁) = (lastS‘(seq(♯‘𝑀)((𝑥 ∈ V, 𝑦 ∈ V ↦ (𝑥 ++ ⟨“(𝐹‘𝑥)”⟩)), (ℕ₀ × {(𝑀 ++ ⟨“(𝐹‘𝑀)”⟩)}))‘𝑁)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 394 = wceq 1539 ∈ wcel 2104 Vcvv 3472 ∪ cun 3945 ∩ cin 3946 ⊆ wss 3947 ∅c0 4321 {csn 4627 × cxp 5673 ^◡ccnv 5674 dom cdm 5675 ran crn 5676 “ cima 5678 ∘ ccom 5679 Fun wfun 6536 Fn wfn 6537 ⟶wf 6538 ‘cfv 6542 (class class class)co 7411 ∈ cmpo 7413 0cc0 11112 1c1 11113 + caddc 11115 − cmin 11448 ℕ₀cn0 12476 ℤcz 12562 ℤ_≥cuz 12826 ..^cfzo 13631 seqcseq 13970 ♯chash 14294 Word cword 14468 lastSclsw 14516 ++ cconcat 14524 ⟨“cs1 14549 seq_strcsseq 33680

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 1911 ax-6 1969 ax-7 2009 ax-8 2106 ax-9 2114 ax-10 2135 ax-11 2152 ax-12 2169 ax-ext 2701 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7727 ax-inf2 9638 ax-cnex 11168 ax-resscn 11169 ax-1cn 11170 ax-icn 11171 ax-addcl 11172 ax-addrcl 11173 ax-mulcl 11174 ax-mulrcl 11175 ax-mulcom 11176 ax-addass 11177 ax-mulass 11178 ax-distr 11179 ax-i2m1 11180 ax-1ne0 11181 ax-1rid 11182 ax-rnegex 11183 ax-rrecex 11184 ax-cnre 11185 ax-pre-lttri 11186 ax-pre-lttrn 11187 ax-pre-ltadd 11188 ax-pre-mulgt0 11189

This theorem depends on definitions: df-bi 206 df-an 395 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2532 df-eu 2561 df-clab 2708 df-cleq 2722 df-clel 2808 df-nfc 2883 df-ne 2939 df-nel 3045 df-ral 3060 df-rex 3069 df-reu 3375 df-rab 3431 df-v 3474 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-op 4634 df-uni 4908 df-int 4950 df-iun 4998 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6299 df-ord 6366 df-on 6367 df-lim 6368 df-suc 6369 df-iota 6494 df-fun 6544 df-fn 6545 df-f 6546 df-f1 6547 df-fo 6548 df-f1o 6549 df-fv 6550 df-riota 7367 df-ov 7414 df-oprab 7415 df-mpo 7416 df-om 7858 df-1st 7977 df-2nd 7978 df-frecs 8268 df-wrecs 8299 df-recs 8373 df-rdg 8412 df-1o 8468 df-er 8705 df-map 8824 df-en 8942 df-dom 8943 df-sdom 8944 df-fin 8945 df-card 9936 df-pnf 11254 df-mnf 11255 df-xr 11256 df-ltxr 11257 df-le 11258 df-sub 11450 df-neg 11451 df-nn 12217 df-n0 12477 df-z 12563 df-uz 12827 df-fz 13489 df-fzo 13632 df-seq 13971 df-hash 14295 df-word 14469 df-lsw 14517 df-s1 14550 df-sseq 33681

This theorem is referenced by: sseqp1 33692

W3C validator