Theorem signstf 31836

Description: The zero skipping sign word is a word. (Contributed by Thierry Arnoux, 8-Oct-2018.)

Hypotheses

Ref	Expression
signsv.p	⊢ ⨣ = (𝑎 ∈ {-1, 0, 1}, 𝑏 ∈ {-1, 0, 1} ↦ if(𝑏 = 0, 𝑎, 𝑏))
signsv.w	⊢ 𝑊 = {⟨(Base‘ndx), {-1, 0, 1}⟩, ⟨(+g‘ndx), ⨣ ⟩}
signsv.t	⊢ 𝑇 = (𝑓 ∈ Word ℝ ↦ (𝑛 ∈ (0..^(♯‘𝑓)) ↦ (𝑊 Σg (𝑖 ∈ (0...𝑛) ↦ (sgn‘(𝑓‘𝑖))))))
signsv.v	⊢ 𝑉 = (𝑓 ∈ Word ℝ ↦ Σ𝑗 ∈ (1..^(♯‘𝑓))if(((𝑇‘𝑓)‘𝑗) ≠ ((𝑇‘𝑓)‘(𝑗 − 1)), 1, 0))

Assertion

Ref	Expression
signstf	⊢ (𝐹 ∈ Word ℝ → (𝑇‘𝐹) ∈ Word ℝ)

Distinct variable groups:   𝑎,𝑏, ⨣   𝑓,𝑖,𝑛,𝐹   𝑓,𝑊,𝑖,𝑛

Allowed substitution hints:   ⨣ (𝑓,𝑖,𝑗,𝑛)   𝑇(𝑓,𝑖,𝑗,𝑛,𝑎,𝑏)   𝐹(𝑗,𝑎,𝑏)   𝑉(𝑓,𝑖,𝑗,𝑛,𝑎,𝑏)   𝑊(𝑗,𝑎,𝑏)

Proof of Theorem signstf

Step	Hyp	Ref	Expression
1		signsv.p	. . . 4 ⊢ ⨣ = (𝑎 ∈ {-1, 0, 1}, 𝑏 ∈ {-1, 0, 1} ↦ if(𝑏 = 0, 𝑎, 𝑏))
2		signsv.w	. . . 4 ⊢ 𝑊 = {⟨(Base‘ndx), {-1, 0, 1}⟩, ⟨(+g‘ndx), ⨣ ⟩}
3		signsv.t	. . . 4 ⊢ 𝑇 = (𝑓 ∈ Word ℝ ↦ (𝑛 ∈ (0..^(♯‘𝑓)) ↦ (𝑊 Σg (𝑖 ∈ (0...𝑛) ↦ (sgn‘(𝑓‘𝑖))))))
4		signsv.v	. . . 4 ⊢ 𝑉 = (𝑓 ∈ Word ℝ ↦ Σ𝑗 ∈ (1..^(♯‘𝑓))if(((𝑇‘𝑓)‘𝑗) ≠ ((𝑇‘𝑓)‘(𝑗 − 1)), 1, 0))
5	1, 2, 3, 4	signstfv 31833	. . 3 ⊢ (𝐹 ∈ Word ℝ → (𝑇‘𝐹) = (𝑛 ∈ (0..^(♯‘𝐹)) ↦ (𝑊 Σg (𝑖 ∈ (0...𝑛) ↦ (sgn‘(𝐹‘𝑖))))))
6		neg1rr 11753	. . . . 5 ⊢ -1 ∈ ℝ
7		0re 10643	. . . . 5 ⊢ 0 ∈ ℝ
8		1re 10641	. . . . 5 ⊢ 1 ∈ ℝ
9		tpssi 4769	. . . . 5 ⊢ ((-1 ∈ ℝ ∧ 0 ∈ ℝ ∧ 1 ∈ ℝ) → {-1, 0, 1} ⊆ ℝ)
10	6, 7, 8, 9	mp3an 1457	. . . 4 ⊢ {-1, 0, 1} ⊆ ℝ
11	1, 2	signswbase 31824	. . . . 5 ⊢ {-1, 0, 1} = (Base‘𝑊)
12	1, 2	signswmnd 31827	. . . . . 6 ⊢ 𝑊 ∈ Mnd
13	12	a1i 11	. . . . 5 ⊢ ((𝐹 ∈ Word ℝ ∧ 𝑛 ∈ (0..^(♯‘𝐹))) → 𝑊 ∈ Mnd)
14		fzo0ssnn0 13119	. . . . . . . 8 ⊢ (0..^(♯‘𝐹)) ⊆ ℕ0
15		nn0uz 12281	. . . . . . . 8 ⊢ ℕ0 = (ℤ≥‘0)
16	14, 15	sseqtri 4003	. . . . . . 7 ⊢ (0..^(♯‘𝐹)) ⊆ (ℤ≥‘0)
17	16	a1i 11	. . . . . 6 ⊢ (𝐹 ∈ Word ℝ → (0..^(♯‘𝐹)) ⊆ (ℤ≥‘0))
18	17	sselda 3967	. . . . 5 ⊢ ((𝐹 ∈ Word ℝ ∧ 𝑛 ∈ (0..^(♯‘𝐹))) → 𝑛 ∈ (ℤ≥‘0))
19		wrdf 13867	. . . . . . . . 9 ⊢ (𝐹 ∈ Word ℝ → 𝐹:(0..^(♯‘𝐹))⟶ℝ)
20	19	ad2antrr 724	. . . . . . . 8 ⊢ (((𝐹 ∈ Word ℝ ∧ 𝑛 ∈ (0..^(♯‘𝐹))) ∧ 𝑖 ∈ (0...𝑛)) → 𝐹:(0..^(♯‘𝐹))⟶ℝ)
21		fzssfzo 31809	. . . . . . . . . 10 ⊢ (𝑛 ∈ (0..^(♯‘𝐹)) → (0...𝑛) ⊆ (0..^(♯‘𝐹)))
22	21	adantl 484	. . . . . . . . 9 ⊢ ((𝐹 ∈ Word ℝ ∧ 𝑛 ∈ (0..^(♯‘𝐹))) → (0...𝑛) ⊆ (0..^(♯‘𝐹)))
23	22	sselda 3967	. . . . . . . 8 ⊢ (((𝐹 ∈ Word ℝ ∧ 𝑛 ∈ (0..^(♯‘𝐹))) ∧ 𝑖 ∈ (0...𝑛)) → 𝑖 ∈ (0..^(♯‘𝐹)))
24	20, 23	ffvelrnd 6852	. . . . . . 7 ⊢ (((𝐹 ∈ Word ℝ ∧ 𝑛 ∈ (0..^(♯‘𝐹))) ∧ 𝑖 ∈ (0...𝑛)) → (𝐹‘𝑖) ∈ ℝ)
25	24	rexrd 10691	. . . . . 6 ⊢ (((𝐹 ∈ Word ℝ ∧ 𝑛 ∈ (0..^(♯‘𝐹))) ∧ 𝑖 ∈ (0...𝑛)) → (𝐹‘𝑖) ∈ ℝ*)
26		sgncl 31796	. . . . . 6 ⊢ ((𝐹‘𝑖) ∈ ℝ* → (sgn‘(𝐹‘𝑖)) ∈ {-1, 0, 1})
27	25, 26	syl 17	. . . . 5 ⊢ (((𝐹 ∈ Word ℝ ∧ 𝑛 ∈ (0..^(♯‘𝐹))) ∧ 𝑖 ∈ (0...𝑛)) → (sgn‘(𝐹‘𝑖)) ∈ {-1, 0, 1})
28	11, 13, 18, 27	gsumncl 31810	. . . 4 ⊢ ((𝐹 ∈ Word ℝ ∧ 𝑛 ∈ (0..^(♯‘𝐹))) → (𝑊 Σg (𝑖 ∈ (0...𝑛) ↦ (sgn‘(𝐹‘𝑖)))) ∈ {-1, 0, 1})
29	10, 28	sseldi 3965	. . 3 ⊢ ((𝐹 ∈ Word ℝ ∧ 𝑛 ∈ (0..^(♯‘𝐹))) → (𝑊 Σg (𝑖 ∈ (0...𝑛) ↦ (sgn‘(𝐹‘𝑖)))) ∈ ℝ)
30	5, 29	fmpt3d 6880	. 2 ⊢ (𝐹 ∈ Word ℝ → (𝑇‘𝐹):(0..^(♯‘𝐹))⟶ℝ)
31		iswrdi 13866	. 2 ⊢ ((𝑇‘𝐹):(0..^(♯‘𝐹))⟶ℝ → (𝑇‘𝐹) ∈ Word ℝ)
32	30, 31	syl 17	1 ⊢ (𝐹 ∈ Word ℝ → (𝑇‘𝐹) ∈ Word ℝ)

Syntax hints:   → wi 4   ∧ wa 398   = wceq 1537   ∈ wcel 2114   ≠ wne 3016   ⊆ wss 3936  ifcif 4467  {cpr 4569  {ctp 4571  ⟨cop 4573   ↦ cmpt 5146  ⟶wf 6351  ‘cfv 6355  (class class class)co 7156   ∈ cmpo 7158  ℝcr 10536  0cc0 10537  1c1 10538  ℝ^*cxr 10674   − cmin 10870  -cneg 10871  ℕ₀cn0 11898  ℤ_≥cuz 12244  ...cfz 12893  ..^cfzo 13034  ♯chash 13691  Word cword 13862  sgncsgn 14445  Σcsu 15042  ndxcnx 16480  Basecbs 16483  +_gcplusg 16565   Σ_g cgsu 16714  Mndcmnd 17911

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5190  ax-sep 5203  ax-nul 5210  ax-pow 5266  ax-pr 5330  ax-un 7461  ax-cnex 10593  ax-resscn 10594  ax-1cn 10595  ax-icn 10596  ax-addcl 10597  ax-addrcl 10598  ax-mulcl 10599  ax-mulrcl 10600  ax-mulcom 10601  ax-addass 10602  ax-mulass 10603  ax-distr 10604  ax-i2m1 10605  ax-1ne0 10606  ax-1rid 10607  ax-rnegex 10608  ax-rrecex 10609  ax-cnre 10610  ax-pre-lttri 10611  ax-pre-lttrn 10612  ax-pre-ltadd 10613  ax-pre-mulgt0 10614

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-pss 3954  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4568  df-pr 4570  df-tp 4572  df-op 4574  df-uni 4839  df-int 4877  df-iun 4921  df-br 5067  df-opab 5129  df-mpt 5147  df-tr 5173  df-id 5460  df-eprel 5465  df-po 5474  df-so 5475  df-fr 5514  df-we 5516  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-pred 6148  df-ord 6194  df-on 6195  df-lim 6196  df-suc 6197  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-riota 7114  df-ov 7159  df-oprab 7160  df-mpo 7161  df-om 7581  df-1st 7689  df-2nd 7690  df-wrecs 7947  df-recs 8008  df-rdg 8046  df-1o 8102  df-oadd 8106  df-er 8289  df-en 8510  df-dom 8511  df-sdom 8512  df-fin 8513  df-card 9368  df-pnf 10677  df-mnf 10678  df-xr 10679  df-ltxr 10680  df-le 10681  df-sub 10872  df-neg 10873  df-nn 11639  df-2 11701  df-n0 11899  df-z 11983  df-uz 12245  df-fz 12894  df-fzo 13035  df-seq 13371  df-hash 13692  df-word 13863  df-sgn 14446  df-struct 16485  df-ndx 16486  df-slot 16487  df-base 16489  df-plusg 16578  df-0g 16715  df-gsum 16716  df-mgm 17852  df-sgrp 17901  df-mnd 17912

This theorem is referenced by:  signstres  31845  signsvtp  31853  signsvtn  31854