signsvfn - Mathbox for Thierry Arnoux

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

Theorem signsvfn 35036

Description: Number of changes in a word compared to a shorter word. (Contributed by Thierry Arnoux, 12-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
signsvfn	⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → (𝑉‘(𝐹 ++ ⟨“𝐾”⟩)) = ((𝑉‘𝐹) + if((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · 𝐾) < 0, 1, 0)))

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

**Proof of Theorem signsvfn**
Step	Hyp	Ref	Expression
1		eldifi 4085	. . . . . 6 ⊢ (𝐹 ∈ (Word ℝ ∖ {∅}) → 𝐹 ∈ Word ℝ)
2		s1cl 14661	. . . . . 6 ⊢ (𝐾 ∈ ℝ → ⟨“𝐾”⟩ ∈ Word ℝ)
3		ccatcl 14631	. . . . . 6 ⊢ ((𝐹 ∈ Word ℝ ∧ ⟨“𝐾”⟩ ∈ Word ℝ) → (𝐹 ++ ⟨“𝐾”⟩) ∈ Word ℝ)
4	1, 2, 3	syl2an 608	. . . . 5 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → (𝐹 ++ ⟨“𝐾”⟩) ∈ Word ℝ)
5		signsv.p	. . . . . 6 ⊢ ⨣ = (𝑎 ∈ {-1, 0, 1}, 𝑏 ∈ {-1, 0, 1} ↦ if(𝑏 = 0, 𝑎, 𝑏))
6		signsv.w	. . . . . 6 ⊢ 𝑊 = {⟨(Base‘ndx), {-1, 0, 1}⟩, ⟨(+_g‘ndx), ⨣ ⟩}
7		signsv.t	. . . . . 6 ⊢ 𝑇 = (𝑓 ∈ Word ℝ ↦ (𝑛 ∈ (0..^(♯‘𝑓)) ↦ (𝑊 Σ_g (𝑖 ∈ (0...𝑛) ↦ (sgn‘(𝑓‘𝑖))))))
8		signsv.v	. . . . . 6 ⊢ 𝑉 = (𝑓 ∈ Word ℝ ↦ Σ𝑗 ∈ (1..^(♯‘𝑓))if(((𝑇‘𝑓)‘𝑗) ≠ ((𝑇‘𝑓)‘(𝑗 − 1)), 1, 0))
9	5, 6, 7, 8	signsvvfval 35032	. . . . 5 ⊢ ((𝐹 ++ ⟨“𝐾”⟩) ∈ Word ℝ → (𝑉‘(𝐹 ++ ⟨“𝐾”⟩)) = Σ𝑗 ∈ (1..^(♯‘(𝐹 ++ ⟨“𝐾”⟩)))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0))
10	4, 9	syl 18	. . . 4 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → (𝑉‘(𝐹 ++ ⟨“𝐾”⟩)) = Σ𝑗 ∈ (1..^(♯‘(𝐹 ++ ⟨“𝐾”⟩)))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0))
11		ccatlen 14632	. . . . . . . 8 ⊢ ((𝐹 ∈ Word ℝ ∧ ⟨“𝐾”⟩ ∈ Word ℝ) → (♯‘(𝐹 ++ ⟨“𝐾”⟩)) = ((♯‘𝐹) + (♯‘⟨“𝐾”⟩)))
12	1, 2, 11	syl2an 608	. . . . . . 7 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → (♯‘(𝐹 ++ ⟨“𝐾”⟩)) = ((♯‘𝐹) + (♯‘⟨“𝐾”⟩)))
13		s1len 14665	. . . . . . . 8 ⊢ (♯‘⟨“𝐾”⟩) = 1
14	13	oveq2i 7430	. . . . . . 7 ⊢ ((♯‘𝐹) + (♯‘⟨“𝐾”⟩)) = ((♯‘𝐹) + 1)
15	12, 14	eqtrdi 2816	. . . . . 6 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → (♯‘(𝐹 ++ ⟨“𝐾”⟩)) = ((♯‘𝐹) + 1))
16	15	oveq2d 7435	. . . . 5 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → (1..^(♯‘(𝐹 ++ ⟨“𝐾”⟩))) = (1..^((♯‘𝐹) + 1)))
17	16	sumeq1d 15777	. . . 4 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → Σ𝑗 ∈ (1..^(♯‘(𝐹 ++ ⟨“𝐾”⟩)))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) = Σ𝑗 ∈ (1..^((♯‘𝐹) + 1))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0))
18		eldifsn 4755	. . . . . . . 8 ⊢ (𝐹 ∈ (Word ℝ ∖ {∅}) ↔ (𝐹 ∈ Word ℝ ∧ 𝐹 ≠ ∅))
19		lennncl 14591	. . . . . . . 8 ⊢ ((𝐹 ∈ Word ℝ ∧ 𝐹 ≠ ∅) → (♯‘𝐹) ∈ ℕ)
20	18, 19	sylbi 220	. . . . . . 7 ⊢ (𝐹 ∈ (Word ℝ ∖ {∅}) → (♯‘𝐹) ∈ ℕ)
21		nnuz 12919	. . . . . . 7 ⊢ ℕ = (ℤ_≥‘1)
22	20, 21	eleqtrdi 2875	. . . . . 6 ⊢ (𝐹 ∈ (Word ℝ ∖ {∅}) → (♯‘𝐹) ∈ (ℤ_≥‘1))
23	22	adantr 486	. . . . 5 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → (♯‘𝐹) ∈ (ℤ_≥‘1))
24		1cnd 11219	. . . . . 6 ⊢ ((((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1...(♯‘𝐹))) ∧ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1))) → 1 ∈ ℂ)
25		0cnd 11216	. . . . . 6 ⊢ ((((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1...(♯‘𝐹))) ∧ ¬ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1))) → 0 ∈ ℂ)
26	24, 25	ifclda 4525	. . . . 5 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1...(♯‘𝐹))) → if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) ∈ ℂ)
27		fveq2 6885	. . . . . . 7 ⊢ (𝑗 = (♯‘𝐹) → ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) = ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)))
28		fvoveq1 7442	. . . . . . 7 ⊢ (𝑗 = (♯‘𝐹) → ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)) = ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1)))
29	27, 28	neeq12d 3021	. . . . . 6 ⊢ (𝑗 = (♯‘𝐹) → (((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)) ↔ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1))))
30	29	ifbid 4513	. . . . 5 ⊢ (𝑗 = (♯‘𝐹) → if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) = if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1)), 1, 0))
31	23, 26, 30	fzosump1 15828	. . . 4 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → Σ𝑗 ∈ (1..^((♯‘𝐹) + 1))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) = (Σ𝑗 ∈ (1..^(♯‘𝐹))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) + if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1)), 1, 0)))
32	10, 17, 31	3eqtrd 2804	. . 3 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → (𝑉‘(𝐹 ++ ⟨“𝐾”⟩)) = (Σ𝑗 ∈ (1..^(♯‘𝐹))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) + if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1)), 1, 0)))
33	32	adantlr 728	. 2 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → (𝑉‘(𝐹 ++ ⟨“𝐾”⟩)) = (Σ𝑗 ∈ (1..^(♯‘𝐹))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) + if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1)), 1, 0)))
34		simpl 488	. . . . . . . . . . 11 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → 𝐹 ∈ (Word ℝ ∖ {∅}))
35	34	eldifad 3918	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → 𝐹 ∈ Word ℝ)
36	35	adantr 486	. . . . . . . . 9 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → 𝐹 ∈ Word ℝ)
37		simplr 781	. . . . . . . . 9 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → 𝐾 ∈ ℝ)
38		fzo0ss1 13737	. . . . . . . . . . 11 ⊢ (1..^(♯‘𝐹)) ⊆ (0..^(♯‘𝐹))
39	38	a1i 11	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → (1..^(♯‘𝐹)) ⊆ (0..^(♯‘𝐹)))
40	39	sselda 3938	. . . . . . . . 9 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → 𝑗 ∈ (0..^(♯‘𝐹)))
41	5, 6, 7, 8	signstfvp 35025	. . . . . . . . 9 ⊢ ((𝐹 ∈ Word ℝ ∧ 𝐾 ∈ ℝ ∧ 𝑗 ∈ (0..^(♯‘𝐹))) → ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) = ((𝑇‘𝐹)‘𝑗))
42	36, 37, 40, 41	syl3anc 1398	. . . . . . . 8 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) = ((𝑇‘𝐹)‘𝑗))
43		elfzoel2 13705	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ (1..^(♯‘𝐹)) → (♯‘𝐹) ∈ ℤ)
44	43	adantl 487	. . . . . . . . . . . 12 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → (♯‘𝐹) ∈ ℤ)
45		1nn0 12537	. . . . . . . . . . . 12 ⊢ 1 ∈ ℕ₀
46		eluzmn 12887	. . . . . . . . . . . 12 ⊢ (((♯‘𝐹) ∈ ℤ ∧ 1 ∈ ℕ₀) → (♯‘𝐹) ∈ (ℤ_≥‘((♯‘𝐹) − 1)))
47	44, 45, 46	sylancl 598	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → (♯‘𝐹) ∈ (ℤ_≥‘((♯‘𝐹) − 1)))
48		fzoss2 13735	. . . . . . . . . . 11 ⊢ ((♯‘𝐹) ∈ (ℤ_≥‘((♯‘𝐹) − 1)) → (0..^((♯‘𝐹) − 1)) ⊆ (0..^(♯‘𝐹)))
49	47, 48	syl 18	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → (0..^((♯‘𝐹) − 1)) ⊆ (0..^(♯‘𝐹)))
50		elfzo1elm1fzo0 13816	. . . . . . . . . . 11 ⊢ (𝑗 ∈ (1..^(♯‘𝐹)) → (𝑗 − 1) ∈ (0..^((♯‘𝐹) − 1)))
51	50	adantl 487	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → (𝑗 − 1) ∈ (0..^((♯‘𝐹) − 1)))
52	49, 51	sseldd 3939	. . . . . . . . 9 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → (𝑗 − 1) ∈ (0..^(♯‘𝐹)))
53	5, 6, 7, 8	signstfvp 35025	. . . . . . . . 9 ⊢ ((𝐹 ∈ Word ℝ ∧ 𝐾 ∈ ℝ ∧ (𝑗 − 1) ∈ (0..^(♯‘𝐹))) → ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)) = ((𝑇‘𝐹)‘(𝑗 − 1)))
54	36, 37, 52, 53	syl3anc 1398	. . . . . . . 8 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)) = ((𝑇‘𝐹)‘(𝑗 − 1)))
55	42, 54	neeq12d 3021	. . . . . . 7 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → (((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)) ↔ ((𝑇‘𝐹)‘𝑗) ≠ ((𝑇‘𝐹)‘(𝑗 − 1))))
56	55	ifbid 4513	. . . . . 6 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) ∧ 𝑗 ∈ (1..^(♯‘𝐹))) → if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) = if(((𝑇‘𝐹)‘𝑗) ≠ ((𝑇‘𝐹)‘(𝑗 − 1)), 1, 0))
57	56	sumeq2dv 15779	. . . . 5 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → Σ𝑗 ∈ (1..^(♯‘𝐹))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) = Σ𝑗 ∈ (1..^(♯‘𝐹))if(((𝑇‘𝐹)‘𝑗) ≠ ((𝑇‘𝐹)‘(𝑗 − 1)), 1, 0))
58	5, 6, 7, 8	signsvvfval 35032	. . . . . 6 ⊢ (𝐹 ∈ Word ℝ → (𝑉‘𝐹) = Σ𝑗 ∈ (1..^(♯‘𝐹))if(((𝑇‘𝐹)‘𝑗) ≠ ((𝑇‘𝐹)‘(𝑗 − 1)), 1, 0))
59	35, 58	syl 18	. . . . 5 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → (𝑉‘𝐹) = Σ𝑗 ∈ (1..^(♯‘𝐹))if(((𝑇‘𝐹)‘𝑗) ≠ ((𝑇‘𝐹)‘(𝑗 − 1)), 1, 0))
60	57, 59	eqtr4d 2803	. . . 4 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → Σ𝑗 ∈ (1..^(♯‘𝐹))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) = (𝑉‘𝐹))
61	60	adantlr 728	. . 3 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → Σ𝑗 ∈ (1..^(♯‘𝐹))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) = (𝑉‘𝐹))
62	5, 6, 7, 8	signstfvn 35023	. . . . . . 7 ⊢ ((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ 𝐾 ∈ ℝ) → ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)) = (((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ⨣ (sgn‘𝐾)))
63	62	adantlr 728	. . . . . 6 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)) = (((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ⨣ (sgn‘𝐾)))
64	35	adantlr 728	. . . . . . 7 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → 𝐹 ∈ Word ℝ)
65		simpr 490	. . . . . . 7 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → 𝐾 ∈ ℝ)
66		fzo0end 13806	. . . . . . . . 9 ⊢ ((♯‘𝐹) ∈ ℕ → ((♯‘𝐹) − 1) ∈ (0..^(♯‘𝐹)))
67	20, 66	syl 18	. . . . . . . 8 ⊢ (𝐹 ∈ (Word ℝ ∖ {∅}) → ((♯‘𝐹) − 1) ∈ (0..^(♯‘𝐹)))
68	67	ad2antrr 739	. . . . . . 7 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → ((♯‘𝐹) − 1) ∈ (0..^(♯‘𝐹)))
69	5, 6, 7, 8	signstfvp 35025	. . . . . . 7 ⊢ ((𝐹 ∈ Word ℝ ∧ 𝐾 ∈ ℝ ∧ ((♯‘𝐹) − 1) ∈ (0..^(♯‘𝐹))) → ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1)) = ((𝑇‘𝐹)‘((♯‘𝐹) − 1)))
70	64, 65, 68, 69	syl3anc 1398	. . . . . 6 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1)) = ((𝑇‘𝐹)‘((♯‘𝐹) − 1)))
71	63, 70	neeq12d 3021	. . . . 5 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → (((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1)) ↔ (((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ⨣ (sgn‘𝐾)) ≠ ((𝑇‘𝐹)‘((♯‘𝐹) − 1))))
72	5, 6, 7, 8	signstfvcl 35027	. . . . . . 7 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ ((♯‘𝐹) − 1) ∈ (0..^(♯‘𝐹))) → ((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ∈ {-1, 1})
73	68, 72	syldan 603	. . . . . 6 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → ((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ∈ {-1, 1})
74		rexr 11272	. . . . . . . 8 ⊢ (𝐾 ∈ ℝ → 𝐾 ∈ ℝ^*)
75		sgncl 15160	. . . . . . . 8 ⊢ (𝐾 ∈ ℝ^* → (sgn‘𝐾) ∈ {-1, 0, 1})
76	74, 75	syl 18	. . . . . . 7 ⊢ (𝐾 ∈ ℝ → (sgn‘𝐾) ∈ {-1, 0, 1})
77	76	adantl 487	. . . . . 6 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → (sgn‘𝐾) ∈ {-1, 0, 1})
78	5, 6	signswch 35015	. . . . . 6 ⊢ ((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ∈ {-1, 1} ∧ (sgn‘𝐾) ∈ {-1, 0, 1}) → ((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ⨣ (sgn‘𝐾)) ≠ ((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ↔ (((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · (sgn‘𝐾)) < 0))
79	73, 77, 78	syl2anc 596	. . . . 5 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → ((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ⨣ (sgn‘𝐾)) ≠ ((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ↔ (((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · (sgn‘𝐾)) < 0))
80	65	rexrd 11276	. . . . . . . . 9 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → 𝐾 ∈ ℝ^*)
81		sgnsgn 33247	. . . . . . . . 9 ⊢ (𝐾 ∈ ℝ^* → (sgn‘(sgn‘𝐾)) = (sgn‘𝐾))
82	80, 81	syl 18	. . . . . . . 8 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → (sgn‘(sgn‘𝐾)) = (sgn‘𝐾))
83	82	oveq2d 7435	. . . . . . 7 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → ((sgn‘((𝑇‘𝐹)‘((♯‘𝐹) − 1))) · (sgn‘(sgn‘𝐾))) = ((sgn‘((𝑇‘𝐹)‘((♯‘𝐹) − 1))) · (sgn‘𝐾)))
84	83	breq1d 5121	. . . . . 6 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → (((sgn‘((𝑇‘𝐹)‘((♯‘𝐹) − 1))) · (sgn‘(sgn‘𝐾))) < 0 ↔ ((sgn‘((𝑇‘𝐹)‘((♯‘𝐹) − 1))) · (sgn‘𝐾)) < 0))
85		neg1rr 12221	. . . . . . . . 9 ⊢ -1 ∈ ℝ
86		1re 11225	. . . . . . . . 9 ⊢ 1 ∈ ℝ
87		prssi 4789	. . . . . . . . 9 ⊢ ((-1 ∈ ℝ ∧ 1 ∈ ℝ) → {-1, 1} ⊆ ℝ)
88	85, 86, 87	mp2an 705	. . . . . . . 8 ⊢ {-1, 1} ⊆ ℝ
89	88, 73	sselid 3936	. . . . . . 7 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → ((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ∈ ℝ)
90		sgnclre 15165	. . . . . . . 8 ⊢ (𝐾 ∈ ℝ → (sgn‘𝐾) ∈ ℝ)
91	90	adantl 487	. . . . . . 7 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → (sgn‘𝐾) ∈ ℝ)
92		sgnmulsgn 15172	. . . . . . 7 ⊢ ((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ∈ ℝ ∧ (sgn‘𝐾) ∈ ℝ) → ((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · (sgn‘𝐾)) < 0 ↔ ((sgn‘((𝑇‘𝐹)‘((♯‘𝐹) − 1))) · (sgn‘(sgn‘𝐾))) < 0))
93	89, 91, 92	syl2anc 596	. . . . . 6 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → ((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · (sgn‘𝐾)) < 0 ↔ ((sgn‘((𝑇‘𝐹)‘((♯‘𝐹) − 1))) · (sgn‘(sgn‘𝐾))) < 0))
94		sgnmulsgn 15172	. . . . . . 7 ⊢ ((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) ∈ ℝ ∧ 𝐾 ∈ ℝ) → ((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · 𝐾) < 0 ↔ ((sgn‘((𝑇‘𝐹)‘((♯‘𝐹) − 1))) · (sgn‘𝐾)) < 0))
95	89, 94	sylancom 600	. . . . . 6 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → ((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · 𝐾) < 0 ↔ ((sgn‘((𝑇‘𝐹)‘((♯‘𝐹) − 1))) · (sgn‘𝐾)) < 0))
96	84, 93, 95	3bitr4d 314	. . . . 5 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → ((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · (sgn‘𝐾)) < 0 ↔ (((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · 𝐾) < 0))
97	71, 79, 96	3bitrd 308	. . . 4 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → (((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1)) ↔ (((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · 𝐾) < 0))
98	97	ifbid 4513	. . 3 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1)), 1, 0) = if((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · 𝐾) < 0, 1, 0))
99	61, 98	oveq12d 7437	. 2 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → (Σ𝑗 ∈ (1..^(♯‘𝐹))if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘𝑗) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(𝑗 − 1)), 1, 0) + if(((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘(♯‘𝐹)) ≠ ((𝑇‘(𝐹 ++ ⟨“𝐾”⟩))‘((♯‘𝐹) − 1)), 1, 0)) = ((𝑉‘𝐹) + if((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · 𝐾) < 0, 1, 0)))
100	33, 99	eqtrd 2800	1 ⊢ (((𝐹 ∈ (Word ℝ ∖ {∅}) ∧ (𝐹‘0) ≠ 0) ∧ 𝐾 ∈ ℝ) → (𝑉‘(𝐹 ++ ⟨“𝐾”⟩)) = ((𝑉‘𝐹) + if((((𝑇‘𝐹)‘((♯‘𝐹) − 1)) · 𝐾) < 0, 1, 0)))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2146 ≠ wne 2960 ∖ cdif 3903 ⊆ wss 3906 ∅c0 4286 ifcif 4489 {csn 4591 {cpr 4593 {ctp 4595 ⟨cop 4597 class class class wbr 5111 ↦ cmpt 5194 ‘cfv 6540 (class class class)co 7419 ∈ cmpo 7421 ℂcc 11115 ℝcr 11116 0cc0 11117 1c1 11118 + caddc 11120 · cmul 11122 ℝ^*cxr 11259 < clt 11260 − cmin 11458 -cneg 11459 ℕcn 12250 ℕ₀cn0 12521 ℤcz 12608 ℤ_≥cuz 12880 ...cfz 13553 ..^cfzo 13701 ♯chash 14386 Word cword 14570 ++ cconcat 14627 ⟨“cs1 14654 sgncsgn 15149 Σcsu 15763 ndxcnx 17277 Basecbs 17293 +_gcplusg 17334 Σ_g cgsu 17517

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2195 ax-12 2216 ax-ext 2737 ax-rep 5240 ax-sep 5259 ax-nul 5271 ax-pow 5338 ax-pr 5406 ax-un 7742 ax-inf2 9617 ax-cnex 11173 ax-resscn 11174 ax-1cn 11175 ax-icn 11176 ax-addcl 11177 ax-addrcl 11178 ax-mulcl 11179 ax-mulrcl 11180 ax-mulcom 11181 ax-addass 11182 ax-mulass 11183 ax-distr 11184 ax-i2m1 11185 ax-1ne0 11186 ax-1rid 11187 ax-rnegex 11188 ax-rrecex 11189 ax-cnre 11190 ax-pre-lttri 11191 ax-pre-lttrn 11192 ax-pre-ltadd 11193 ax-pre-mulgt0 11194 ax-pre-sup 11195

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2569 df-eu 2599 df-clab 2744 df-cleq 2757 df-clel 2840 df-nfc 2914 df-ne 2961 df-nel 3067 df-ral 3082 df-rex 3092 df-rmo 3371 df-reu 3372 df-rab 3419 df-v 3459 df-sbc 3747 df-csb 3855 df-dif 3909 df-un 3911 df-in 3913 df-ss 3923 df-pss 3926 df-nul 4287 df-if 4490 df-pw 4566 df-sn 4592 df-pr 4594 df-tp 4596 df-op 4598 df-uni 4875 df-int 4915 df-iun 4960 df-br 5112 df-opab 5176 df-mpt 5195 df-tr 5221 df-id 5558 df-eprel 5563 df-po 5571 df-so 5572 df-fr 5616 df-se 5617 df-we 5618 df-xp 5669 df-rel 5670 df-cnv 5671 df-co 5672 df-dm 5673 df-rn 5674 df-res 5675 df-ima 5676 df-pred 6306 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6496 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-isom 6549 df-riota 7376 df-ov 7422 df-oprab 7423 df-mpo 7424 df-om 7869 df-1st 7992 df-2nd 7993 df-supp 8163 df-frecs 8284 df-wrecs 8315 df-recs 8364 df-rdg 8403 df-1o 8459 df-er 8700 df-en 8950 df-dom 8951 df-sdom 8952 df-fin 8953 df-sup 9409 df-oi 9479 df-card 9941 df-pnf 11262 df-mnf 11263 df-xr 11264 df-ltxr 11265 df-le 11266 df-sub 11460 df-neg 11461 df-div 11889 df-nn 12251 df-2 12320 df-3 12321 df-n0 12522 df-xnn0 12595 df-z 12609 df-uz 12881 df-rp 13035 df-fz 13554 df-fzo 13702 df-seq 14058 df-exp 14118 df-hash 14387 df-word 14571 df-lsw 14620 df-concat 14628 df-s1 14655 df-substr 14701 df-pfx 14733 df-sgn 15150 df-cj 15176 df-re 15177 df-im 15178 df-sqrt 15312 df-abs 15313 df-clim 15565 df-sum 15764 df-struct 17231 df-slot 17266 df-ndx 17278 df-base 17294 df-plusg 17347 df-0g 17518 df-gsum 17519 df-mgm 18722 df-sgrp 18811 df-mnd 18827 df-mulg 19180 df-cntz 19433

This theorem is used by: signsvtp 35037 signsvtn 35038 signlem0 35041

W3C validator