Metamath Proof Explorer


Theorem signshf

Description: H , corresponding to the word F multiplied by ( x - C ) , as a function. (Contributed by Thierry Arnoux, 29-Sep-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
signs.h ⊢ H = ⟨“ 0 ”⟩ ++ F − f F ++ ⟨“ 0 ”⟩ ∘ fc ⁡ × C
Assertion signshf ⊢ F ∈ Word ℝ ∧ C ∈ ℝ + → H : 0 ..^ F + 1 ⟶ ℝ

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 signs.h ⊢ H = ⟨“ 0 ”⟩ ++ F − f F ++ ⟨“ 0 ”⟩ ∘ fc ⁡ × C
6 resubcl ⊢ x ∈ ℝ ∧ y ∈ ℝ → x − y ∈ ℝ
7 6 adantl ⊢ F ∈ Word ℝ ∧ C ∈ ℝ + ∧ x ∈ ℝ ∧ y ∈ ℝ → x − y ∈ ℝ
8 0re ⊢ 0 ∈ ℝ
9 s1cl ⊢ 0 ∈ ℝ → ⟨“ 0 ”⟩ ∈ Word ℝ
10 8 9 ax-mp ⊢ ⟨“ 0 ”⟩ ∈ Word ℝ
11 ccatcl ⊢ ⟨“ 0 ”⟩ ∈ Word ℝ ∧ F ∈ Word ℝ → ⟨“ 0 ”⟩ ++ F ∈ Word ℝ
12 10 11 mpan ⊢ F ∈ Word ℝ → ⟨“ 0 ”⟩ ++ F ∈ Word ℝ
13 wrdf ⊢ ⟨“ 0 ”⟩ ++ F ∈ Word ℝ → ⟨“ 0 ”⟩ ++ F : 0 ..^ ⟨“ 0 ”⟩ ++ F ⟶ ℝ
14 12 13 syl ⊢ F ∈ Word ℝ → ⟨“ 0 ”⟩ ++ F : 0 ..^ ⟨“ 0 ”⟩ ++ F ⟶ ℝ
15 1cnd ⊢ F ∈ Word ℝ → 1 ∈ ℂ
16 lencl ⊢ F ∈ Word ℝ → F ∈ ℕ 0
17 16 nn0cnd ⊢ F ∈ Word ℝ → F ∈ ℂ
18 ccatlen ⊢ ⟨“ 0 ”⟩ ∈ Word ℝ ∧ F ∈ Word ℝ → ⟨“ 0 ”⟩ ++ F = ⟨“ 0 ”⟩ + F
19 10 18 mpan ⊢ F ∈ Word ℝ → ⟨“ 0 ”⟩ ++ F = ⟨“ 0 ”⟩ + F
20 s1len ⊢ ⟨“ 0 ”⟩ = 1
21 20 oveq1i ⊢ ⟨“ 0 ”⟩ + F = 1 + F
22 19 21 eqtrdi ⊢ F ∈ Word ℝ → ⟨“ 0 ”⟩ ++ F = 1 + F
23 15 17 22 comraddd ⊢ F ∈ Word ℝ → ⟨“ 0 ”⟩ ++ F = F + 1
24 23 oveq2d ⊢ F ∈ Word ℝ → 0 ..^ ⟨“ 0 ”⟩ ++ F = 0 ..^ F + 1
25 24 feq2d ⊢ F ∈ Word ℝ → ⟨“ 0 ”⟩ ++ F : 0 ..^ ⟨“ 0 ”⟩ ++ F ⟶ ℝ ↔ ⟨“ 0 ”⟩ ++ F : 0 ..^ F + 1 ⟶ ℝ
26 14 25 mpbid ⊢ F ∈ Word ℝ → ⟨“ 0 ”⟩ ++ F : 0 ..^ F + 1 ⟶ ℝ
27 26 adantr ⊢ F ∈ Word ℝ ∧ C ∈ ℝ + → ⟨“ 0 ”⟩ ++ F : 0 ..^ F + 1 ⟶ ℝ
28 remulcl ⊢ x ∈ ℝ ∧ y ∈ ℝ → x ⁢ y ∈ ℝ
29 28 adantl ⊢ F ∈ Word ℝ ∧ C ∈ ℝ + ∧ x ∈ ℝ ∧ y ∈ ℝ → x ⁢ y ∈ ℝ
30 ccatcl ⊢ F ∈ Word ℝ ∧ ⟨“ 0 ”⟩ ∈ Word ℝ → F ++ ⟨“ 0 ”⟩ ∈ Word ℝ
31 10 30 mpan2 ⊢ F ∈ Word ℝ → F ++ ⟨“ 0 ”⟩ ∈ Word ℝ
32 wrdf ⊢ F ++ ⟨“ 0 ”⟩ ∈ Word ℝ → F ++ ⟨“ 0 ”⟩ : 0 ..^ F ++ ⟨“ 0 ”⟩ ⟶ ℝ
33 31 32 syl ⊢ F ∈ Word ℝ → F ++ ⟨“ 0 ”⟩ : 0 ..^ F ++ ⟨“ 0 ”⟩ ⟶ ℝ
34 ccatws1len ⊢ F ∈ Word ℝ → F ++ ⟨“ 0 ”⟩ = F + 1
35 34 oveq2d ⊢ F ∈ Word ℝ → 0 ..^ F ++ ⟨“ 0 ”⟩ = 0 ..^ F + 1
36 35 feq2d ⊢ F ∈ Word ℝ → F ++ ⟨“ 0 ”⟩ : 0 ..^ F ++ ⟨“ 0 ”⟩ ⟶ ℝ ↔ F ++ ⟨“ 0 ”⟩ : 0 ..^ F + 1 ⟶ ℝ
37 33 36 mpbid ⊢ F ∈ Word ℝ → F ++ ⟨“ 0 ”⟩ : 0 ..^ F + 1 ⟶ ℝ
38 37 adantr ⊢ F ∈ Word ℝ ∧ C ∈ ℝ + → F ++ ⟨“ 0 ”⟩ : 0 ..^ F + 1 ⟶ ℝ
39 ovexd ⊢ F ∈ Word ℝ ∧ C ∈ ℝ + → 0 ..^ F + 1 ∈ V
40 rpre ⊢ C ∈ ℝ + → C ∈ ℝ
41 40 adantl ⊢ F ∈ Word ℝ ∧ C ∈ ℝ + → C ∈ ℝ
42 29 38 39 41 ofcf ⊢ F ∈ Word ℝ ∧ C ∈ ℝ + → F ++ ⟨“ 0 ”⟩ ∘ fc ⁡ × C : 0 ..^ F + 1 ⟶ ℝ
43 inidm ⊢ 0 ..^ F + 1 ∩ 0 ..^ F + 1 = 0 ..^ F + 1
44 7 27 42 39 39 43 off ⊢ F ∈ Word ℝ ∧ C ∈ ℝ + → ⟨“ 0 ”⟩ ++ F − f F ++ ⟨“ 0 ”⟩ ∘ fc ⁡ × C : 0 ..^ F + 1 ⟶ ℝ
45 5 feq1i ⊢ H : 0 ..^ F + 1 ⟶ ℝ ↔ ⟨“ 0 ”⟩ ++ F − f F ++ ⟨“ 0 ”⟩ ∘ fc ⁡ × C : 0 ..^ F + 1 ⟶ ℝ
46 44 45 sylibr ⊢ F ∈ Word ℝ ∧ C ∈ ℝ + → H : 0 ..^ F + 1 ⟶ ℝ