Metamath Proof Explorer


Theorem signstfvn

Description: Zero-skipping sign in a word compared to a shorter word. (Contributed by Thierry Arnoux, 8-Oct-2018)

Ref Expression
Hypotheses signsv.p ⊢ ⨣ ˙ = a ∈ − 1 0 1 , b ∈ − 1 0 1 ⟼ if b = 0 a b
signsv.w ⊢ W = Base ndx − 1 0 1 + ndx ⨣ ˙
signsv.t ⊢ T = f ∈ Word ℝ ⟼ n ∈ 0 ..^ f ⟼ ∑ W i = 0 n sgn ⁡ f ⁡ i
signsv.v ⊢ V = f ∈ Word ℝ ⟼ ∑ j ∈ 1 ..^ f if T ⁡ f ⁡ j ≠ T ⁡ f ⁡ j − 1 1 0
Assertion signstfvn ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → T ⁡ F ++ ⟨“ K ”⟩ ⁡ F = T ⁡ F ⁡ F − 1 ⨣ ˙ sgn ⁡ K

Proof

Step Hyp Ref Expression
1 signsv.p ⊢ ⨣ ˙ = a ∈ − 1 0 1 , b ∈ − 1 0 1 ⟼ if b = 0 a b
2 signsv.w ⊢ W = Base ndx − 1 0 1 + ndx ⨣ ˙
3 signsv.t ⊢ T = f ∈ Word ℝ ⟼ n ∈ 0 ..^ f ⟼ ∑ W i = 0 n sgn ⁡ f ⁡ i
4 signsv.v ⊢ V = f ∈ Word ℝ ⟼ ∑ j ∈ 1 ..^ f if T ⁡ f ⁡ j ≠ T ⁡ f ⁡ j − 1 1 0
5 1 2 signswbase ⊢ − 1 0 1 = Base W
6 1 2 signswmnd ⊢ W ∈ Mnd
7 6 a1i ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → W ∈ Mnd
8 eldifi ⊢ F ∈ Word ℝ ∖ ∅ → F ∈ Word ℝ
9 lencl ⊢ F ∈ Word ℝ → F ∈ ℕ 0
10 8 9 syl ⊢ F ∈ Word ℝ ∖ ∅ → F ∈ ℕ 0
11 eldifsn ⊢ F ∈ Word ℝ ∖ ∅ ↔ F ∈ Word ℝ ∧ F ≠ ∅
12 hasheq0 ⊢ F ∈ Word ℝ → F = 0 ↔ F = ∅
13 12 necon3bid ⊢ F ∈ Word ℝ → F ≠ 0 ↔ F ≠ ∅
14 13 biimpar ⊢ F ∈ Word ℝ ∧ F ≠ ∅ → F ≠ 0
15 11 14 sylbi ⊢ F ∈ Word ℝ ∖ ∅ → F ≠ 0
16 elnnne0 ⊢ F ∈ ℕ ↔ F ∈ ℕ 0 ∧ F ≠ 0
17 10 15 16 sylanbrc ⊢ F ∈ Word ℝ ∖ ∅ → F ∈ ℕ
18 17 adantr ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → F ∈ ℕ
19 nnm1nn0 ⊢ F ∈ ℕ → F − 1 ∈ ℕ 0
20 18 19 syl ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → F − 1 ∈ ℕ 0
21 nn0uz ⊢ ℕ 0 = ℤ ≥ 0
22 20 21 eleqtrdi ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → F − 1 ∈ ℤ ≥ 0
23 ccatws1cl ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → F ++ ⟨“ K ”⟩ ∈ Word ℝ
24 23 adantr ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → F ++ ⟨“ K ”⟩ ∈ Word ℝ
25 wrdf ⊢ F ++ ⟨“ K ”⟩ ∈ Word ℝ → F ++ ⟨“ K ”⟩ : 0 ..^ F ++ ⟨“ K ”⟩ ⟶ ℝ
26 24 25 syl ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → F ++ ⟨“ K ”⟩ : 0 ..^ F ++ ⟨“ K ”⟩ ⟶ ℝ
27 9 nn0zd ⊢ F ∈ Word ℝ → F ∈ ℤ
28 fzoval ⊢ F ∈ ℤ → 0 ..^ F = 0 … F − 1
29 27 28 syl ⊢ F ∈ Word ℝ → 0 ..^ F = 0 … F − 1
30 29 adantr ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → 0 ..^ F = 0 … F − 1
31 fzossfz ⊢ 0 ..^ F ⊆ 0 … F
32 30 31 eqsstrrdi ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → 0 … F − 1 ⊆ 0 … F
33 s1cl ⊢ K ∈ ℝ → ⟨“ K ”⟩ ∈ Word ℝ
34 ccatlen ⊢ F ∈ Word ℝ ∧ ⟨“ K ”⟩ ∈ Word ℝ → F ++ ⟨“ K ”⟩ = F + ⟨“ K ”⟩
35 33 34 sylan2 ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → F ++ ⟨“ K ”⟩ = F + ⟨“ K ”⟩
36 s1len ⊢ ⟨“ K ”⟩ = 1
37 36 oveq2i ⊢ F + ⟨“ K ”⟩ = F + 1
38 35 37 eqtrdi ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → F ++ ⟨“ K ”⟩ = F + 1
39 38 oveq2d ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → 0 ..^ F ++ ⟨“ K ”⟩ = 0 ..^ F + 1
40 27 adantr ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → F ∈ ℤ
41 40 peano2zd ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → F + 1 ∈ ℤ
42 fzoval ⊢ F + 1 ∈ ℤ → 0 ..^ F + 1 = 0 … F + 1 - 1
43 41 42 syl ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → 0 ..^ F + 1 = 0 … F + 1 - 1
44 9 nn0cnd ⊢ F ∈ Word ℝ → F ∈ ℂ
45 1cnd ⊢ F ∈ Word ℝ → 1 ∈ ℂ
46 44 45 pncand ⊢ F ∈ Word ℝ → F + 1 - 1 = F
47 46 adantr ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → F + 1 - 1 = F
48 47 oveq2d ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → 0 … F + 1 - 1 = 0 … F
49 39 43 48 3eqtrd ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → 0 ..^ F ++ ⟨“ K ”⟩ = 0 … F
50 32 49 sseqtrrd ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → 0 … F − 1 ⊆ 0 ..^ F ++ ⟨“ K ”⟩
51 50 sselda ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → i ∈ 0 ..^ F ++ ⟨“ K ”⟩
52 26 51 ffvelcdmd ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → F ++ ⟨“ K ”⟩ ⁡ i ∈ ℝ
53 8 52 sylanl1 ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → F ++ ⟨“ K ”⟩ ⁡ i ∈ ℝ
54 53 rexrd ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → F ++ ⟨“ K ”⟩ ⁡ i ∈ ℝ *
55 sgncl ⊢ F ++ ⟨“ K ”⟩ ⁡ i ∈ ℝ * → sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i ∈ − 1 0 1
56 54 55 syl ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i ∈ − 1 0 1
57 1 2 signswplusg ⊢ ⨣ ˙ = + W
58 rexr ⊢ K ∈ ℝ → K ∈ ℝ *
59 sgncl ⊢ K ∈ ℝ * → sgn ⁡ K ∈ − 1 0 1
60 58 59 syl ⊢ K ∈ ℝ → sgn ⁡ K ∈ − 1 0 1
61 60 adantl ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → sgn ⁡ K ∈ − 1 0 1
62 id ⊢ i = F - 1 + 1 → i = F - 1 + 1
63 44 45 npcand ⊢ F ∈ Word ℝ → F - 1 + 1 = F
64 63 adantr ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → F - 1 + 1 = F
65 62 64 sylan9eqr ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i = F - 1 + 1 → i = F
66 65 fveq2d ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i = F - 1 + 1 → F ++ ⟨“ K ”⟩ ⁡ i = F ++ ⟨“ K ”⟩ ⁡ F
67 ccatws1ls ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → F ++ ⟨“ K ”⟩ ⁡ F = K
68 67 adantr ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i = F - 1 + 1 → F ++ ⟨“ K ”⟩ ⁡ F = K
69 66 68 eqtrd ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i = F - 1 + 1 → F ++ ⟨“ K ”⟩ ⁡ i = K
70 8 69 sylanl1 ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ ∧ i = F - 1 + 1 → F ++ ⟨“ K ”⟩ ⁡ i = K
71 70 fveq2d ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ ∧ i = F - 1 + 1 → sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i = sgn ⁡ K
72 5 7 22 56 57 61 71 gsumnunsn ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → ∑ W i = 0 F - 1 + 1 sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i = ∑ W i = 0 F − 1 sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i ⨣ ˙ sgn ⁡ K
73 8 63 syl ⊢ F ∈ Word ℝ ∖ ∅ → F - 1 + 1 = F
74 73 adantr ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → F - 1 + 1 = F
75 74 oveq2d ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → 0 … F - 1 + 1 = 0 … F
76 75 mpteq1d ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → i ∈ 0 … F - 1 + 1 ⟼ sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i = i ∈ 0 … F ⟼ sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i
77 76 oveq2d ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → ∑ W i = 0 F - 1 + 1 sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i = ∑ W i = 0 F sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i
78 simpll ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → F ∈ Word ℝ
79 33 ad2antlr ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → ⟨“ K ”⟩ ∈ Word ℝ
80 30 eleq2d ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → i ∈ 0 ..^ F ↔ i ∈ 0 … F − 1
81 80 biimpar ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → i ∈ 0 ..^ F
82 ccatval1 ⊢ F ∈ Word ℝ ∧ ⟨“ K ”⟩ ∈ Word ℝ ∧ i ∈ 0 ..^ F → F ++ ⟨“ K ”⟩ ⁡ i = F ⁡ i
83 78 79 81 82 syl3anc ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → F ++ ⟨“ K ”⟩ ⁡ i = F ⁡ i
84 83 fveq2d ⊢ F ∈ Word ℝ ∧ K ∈ ℝ ∧ i ∈ 0 … F − 1 → sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i = sgn ⁡ F ⁡ i
85 84 mpteq2dva ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → i ∈ 0 … F − 1 ⟼ sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i = i ∈ 0 … F − 1 ⟼ sgn ⁡ F ⁡ i
86 8 85 sylan ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → i ∈ 0 … F − 1 ⟼ sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i = i ∈ 0 … F − 1 ⟼ sgn ⁡ F ⁡ i
87 86 oveq2d ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → ∑ W i = 0 F − 1 sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i = ∑ W i = 0 F − 1 sgn ⁡ F ⁡ i
88 87 oveq1d ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → ∑ W i = 0 F − 1 sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i ⨣ ˙ sgn ⁡ K = ∑ W i = 0 F − 1 sgn ⁡ F ⁡ i ⨣ ˙ sgn ⁡ K
89 72 77 88 3eqtr3d ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → ∑ W i = 0 F sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i = ∑ W i = 0 F − 1 sgn ⁡ F ⁡ i ⨣ ˙ sgn ⁡ K
90 eqid ⊢ F = F
91 90 olci ⊢ F ∈ 0 ..^ F ∨ F = F
92 9 21 eleqtrdi ⊢ F ∈ Word ℝ → F ∈ ℤ ≥ 0
93 fzosplitsni ⊢ F ∈ ℤ ≥ 0 → F ∈ 0 ..^ F + 1 ↔ F ∈ 0 ..^ F ∨ F = F
94 92 93 syl ⊢ F ∈ Word ℝ → F ∈ 0 ..^ F + 1 ↔ F ∈ 0 ..^ F ∨ F = F
95 91 94 mpbiri ⊢ F ∈ Word ℝ → F ∈ 0 ..^ F + 1
96 95 adantr ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → F ∈ 0 ..^ F + 1
97 96 39 eleqtrrd ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → F ∈ 0 ..^ F ++ ⟨“ K ”⟩
98 1 2 3 4 signstfval ⊢ F ++ ⟨“ K ”⟩ ∈ Word ℝ ∧ F ∈ 0 ..^ F ++ ⟨“ K ”⟩ → T ⁡ F ++ ⟨“ K ”⟩ ⁡ F = ∑ W i = 0 F sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i
99 23 97 98 syl2anc ⊢ F ∈ Word ℝ ∧ K ∈ ℝ → T ⁡ F ++ ⟨“ K ”⟩ ⁡ F = ∑ W i = 0 F sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i
100 8 99 sylan ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → T ⁡ F ++ ⟨“ K ”⟩ ⁡ F = ∑ W i = 0 F sgn ⁡ F ++ ⟨“ K ”⟩ ⁡ i
101 fzo0end ⊢ F ∈ ℕ → F − 1 ∈ 0 ..^ F
102 17 101 syl ⊢ F ∈ Word ℝ ∖ ∅ → F − 1 ∈ 0 ..^ F
103 1 2 3 4 signstfval ⊢ F ∈ Word ℝ ∧ F − 1 ∈ 0 ..^ F → T ⁡ F ⁡ F − 1 = ∑ W i = 0 F − 1 sgn ⁡ F ⁡ i
104 8 102 103 syl2anc ⊢ F ∈ Word ℝ ∖ ∅ → T ⁡ F ⁡ F − 1 = ∑ W i = 0 F − 1 sgn ⁡ F ⁡ i
105 104 adantr ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → T ⁡ F ⁡ F − 1 = ∑ W i = 0 F − 1 sgn ⁡ F ⁡ i
106 105 oveq1d ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → T ⁡ F ⁡ F − 1 ⨣ ˙ sgn ⁡ K = ∑ W i = 0 F − 1 sgn ⁡ F ⁡ i ⨣ ˙ sgn ⁡ K
107 89 100 106 3eqtr4d ⊢ F ∈ Word ℝ ∖ ∅ ∧ K ∈ ℝ → T ⁡ F ++ ⟨“ K ”⟩ ⁡ F = T ⁡ F ⁡ F − 1 ⨣ ˙ sgn ⁡ K