| Step | Hyp | Ref
| Expression |
| 1 | | veroquad.k |
. . . . . . 7
⊢ (𝜑 → 𝐾:(1...6)⟶ℝ) |
| 2 | 1 | ffnd 6707 |
. . . . . 6
⊢ (𝜑 → 𝐾 Fn (1...6)) |
| 3 | | veroquad.a |
. . . . . . . . . . . 12
⊢ 𝑉 = (𝑖 ∈ (1...6), 𝑗 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑗)) |
| 4 | | 2fveq3 6887 |
. . . . . . . . . . . . . 14
⊢ (𝑖 = 𝑢 → (veronese‘(𝐴‘𝑖)) = (veronese‘(𝐴‘𝑢))) |
| 5 | 4 | fveq1d 6884 |
. . . . . . . . . . . . 13
⊢ (𝑖 = 𝑢 → ((veronese‘(𝐴‘𝑖))‘𝑗) = ((veronese‘(𝐴‘𝑢))‘𝑗)) |
| 6 | | fveq2 6882 |
. . . . . . . . . . . . 13
⊢ (𝑗 = 𝑣 → ((veronese‘(𝐴‘𝑢))‘𝑗) = ((veronese‘(𝐴‘𝑢))‘𝑣)) |
| 7 | 5, 6 | cbvmpov 7511 |
. . . . . . . . . . . 12
⊢ (𝑖 ∈ (1...6), 𝑗 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑗)) = (𝑢 ∈ (1...6), 𝑣 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑢))‘𝑣)) |
| 8 | 3, 7 | eqtri 2785 |
. . . . . . . . . . 11
⊢ 𝑉 = (𝑢 ∈ (1...6), 𝑣 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑢))‘𝑣)) |
| 9 | 8 | tposmpo 8264 |
. . . . . . . . . 10
⊢ tpos
𝑉 = (𝑣 ∈ (1...6), 𝑢 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑢))‘𝑣)) |
| 10 | 9 | a1i 11 |
. . . . . . . . 9
⊢ (𝜑 → tpos 𝑉 = (𝑣 ∈ (1...6), 𝑢 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑢))‘𝑣))) |
| 11 | | veroquad.f |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐴:(1...6)⟶(ℝ ↑m
(1...3))) |
| 12 | 11 | adantr 486 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ (𝑣 ∈ (1...6) ∧ 𝑢 ∈ (1...6))) → 𝐴:(1...6)⟶(ℝ ↑m
(1...3))) |
| 13 | | simprr 785 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ (𝑣 ∈ (1...6) ∧ 𝑢 ∈ (1...6))) → 𝑢 ∈ (1...6)) |
| 14 | 12, 13 | ffvelcdmd 7081 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ (𝑣 ∈ (1...6) ∧ 𝑢 ∈ (1...6))) → (𝐴‘𝑢) ∈ (ℝ ↑m
(1...3))) |
| 15 | | simprl 783 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ (𝑣 ∈ (1...6) ∧ 𝑢 ∈ (1...6))) → 𝑣 ∈ (1...6)) |
| 16 | | veronesefvcl 50787 |
. . . . . . . . . 10
⊢ (((𝐴‘𝑢) ∈ (ℝ ↑m (1...3))
∧ 𝑣 ∈ (1...6))
→ ((veronese‘(𝐴‘𝑢))‘𝑣) ∈ ℝ) |
| 17 | 14, 15, 16 | syl2anc 596 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑣 ∈ (1...6) ∧ 𝑢 ∈ (1...6))) →
((veronese‘(𝐴‘𝑢))‘𝑣) ∈ ℝ) |
| 18 | 10, 17 | fmpod 8073 |
. . . . . . . 8
⊢ (𝜑 → tpos 𝑉:((1...6) ×
(1...6))⟶ℝ) |
| 19 | | ovex 7449 |
. . . . . . . . . 10
⊢ (1...6)
∈ V |
| 20 | | 1nn 12269 |
. . . . . . . . . . . 12
⊢ 1 ∈
ℕ |
| 21 | | 6nn 12355 |
. . . . . . . . . . . 12
⊢ 6 ∈
ℕ |
| 22 | | 1re 11233 |
. . . . . . . . . . . . 13
⊢ 1 ∈
ℝ |
| 23 | | 6re 12356 |
. . . . . . . . . . . . 13
⊢ 6 ∈
ℝ |
| 24 | | 1lt6 12453 |
. . . . . . . . . . . . 13
⊢ 1 <
6 |
| 25 | 22, 23, 24 | ltleii 11358 |
. . . . . . . . . . . 12
⊢ 1 ≤
6 |
| 26 | | elfz1b 13648 |
. . . . . . . . . . . 12
⊢ (1 ∈
(1...6) ↔ (1 ∈ ℕ ∧ 6 ∈ ℕ ∧ 1 ≤
6)) |
| 27 | 20, 21, 25, 26 | mpbir3an 1360 |
. . . . . . . . . . 11
⊢ 1 ∈
(1...6) |
| 28 | 27 | ne0ii 4293 |
. . . . . . . . . 10
⊢ (1...6)
≠ ∅ |
| 29 | | eldifsn 4751 |
. . . . . . . . . 10
⊢ ((1...6)
∈ (V ∖ {∅}) ↔ ((1...6) ∈ V ∧ (1...6) ≠
∅)) |
| 30 | 19, 28, 29 | mpbir2an 724 |
. . . . . . . . 9
⊢ (1...6)
∈ (V ∖ {∅}) |
| 31 | 30 | a1i 11 |
. . . . . . . 8
⊢ (𝜑 → (1...6) ∈ (V ∖
{∅})) |
| 32 | | reex 11216 |
. . . . . . . . 9
⊢ ℝ
∈ V |
| 33 | 32 | a1i 11 |
. . . . . . . 8
⊢ (𝜑 → ℝ ∈
V) |
| 34 | | curf 8872 |
. . . . . . . 8
⊢ ((tpos
𝑉:((1...6) ×
(1...6))⟶ℝ ∧ (1...6) ∈ (V ∖ {∅}) ∧
ℝ ∈ V) → curry tpos 𝑉:(1...6)⟶(ℝ ↑m
(1...6))) |
| 35 | 18, 31, 33, 34 | syl3anc 1398 |
. . . . . . 7
⊢ (𝜑 → curry tpos 𝑉:(1...6)⟶(ℝ
↑m (1...6))) |
| 36 | 35 | ffnd 6707 |
. . . . . 6
⊢ (𝜑 → curry tpos 𝑉 Fn (1...6)) |
| 37 | 19 | a1i 11 |
. . . . . 6
⊢ (𝜑 → (1...6) ∈
V) |
| 38 | | inidm 4175 |
. . . . . 6
⊢ ((1...6)
∩ (1...6)) = (1...6) |
| 39 | | eqidd 2763 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (𝐾‘𝑛) = (𝐾‘𝑛)) |
| 40 | 17 | ralrimivva 3207 |
. . . . . . . . . 10
⊢ (𝜑 → ∀𝑣 ∈ (1...6)∀𝑢 ∈ (1...6)((veronese‘(𝐴‘𝑢))‘𝑣) ∈ ℝ) |
| 41 | 40 | adantr 486 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → ∀𝑣 ∈ (1...6)∀𝑢 ∈
(1...6)((veronese‘(𝐴‘𝑢))‘𝑣) ∈ ℝ) |
| 42 | 28 | a1i 11 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (1...6) ≠
∅) |
| 43 | 19 | a1i 11 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (1...6) ∈
V) |
| 44 | | simpr 490 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → 𝑛 ∈ (1...6)) |
| 45 | 9, 41, 42, 43, 44 | mpocurryvald 8271 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (curry tpos 𝑉‘𝑛) = (𝑢 ∈ (1...6) ↦ ⦋𝑛 / 𝑣⦌((veronese‘(𝐴‘𝑢))‘𝑣))) |
| 46 | | csbfv 6929 |
. . . . . . . . 9
⊢
⦋𝑛 /
𝑣⦌((veronese‘(𝐴‘𝑢))‘𝑣) = ((veronese‘(𝐴‘𝑢))‘𝑛) |
| 47 | 46 | mpteq2i 5205 |
. . . . . . . 8
⊢ (𝑢 ∈ (1...6) ↦
⦋𝑛 / 𝑣⦌((veronese‘(𝐴‘𝑢))‘𝑣)) = (𝑢 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑢))‘𝑛)) |
| 48 | 45, 47 | eqtrdi 2813 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (curry tpos 𝑉‘𝑛) = (𝑢 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑢))‘𝑛))) |
| 49 | | 2fveq3 6887 |
. . . . . . . . 9
⊢ (𝑢 = 𝑖 → (veronese‘(𝐴‘𝑢)) = (veronese‘(𝐴‘𝑖))) |
| 50 | 49 | fveq1d 6884 |
. . . . . . . 8
⊢ (𝑢 = 𝑖 → ((veronese‘(𝐴‘𝑢))‘𝑛) = ((veronese‘(𝐴‘𝑖))‘𝑛)) |
| 51 | 50 | cbvmptv 5213 |
. . . . . . 7
⊢ (𝑢 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑢))‘𝑛)) = (𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛)) |
| 52 | 48, 51 | eqtrdi 2813 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (curry tpos 𝑉‘𝑛) = (𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛))) |
| 53 | 2, 36, 37, 37, 38, 39, 52 | offval 7690 |
. . . . 5
⊢ (𝜑 → (𝐾 ∘f (
·𝑠 ‘(ℝfld freeLMod
(1...6)))curry tpos 𝑉) =
(𝑛 ∈ (1...6) ↦
((𝐾‘𝑛)(
·𝑠 ‘(ℝfld freeLMod
(1...6)))(𝑖 ∈ (1...6)
↦ ((veronese‘(𝐴‘𝑖))‘𝑛))))) |
| 54 | | eqid 2762 |
. . . . . . 7
⊢
(ℝfld freeLMod (1...6)) = (ℝfld
freeLMod (1...6)) |
| 55 | | eqid 2762 |
. . . . . . 7
⊢
(Base‘(ℝfld freeLMod (1...6))) =
(Base‘(ℝfld freeLMod (1...6))) |
| 56 | | rebase 21818 |
. . . . . . 7
⊢ ℝ =
(Base‘ℝfld) |
| 57 | 1 | ffvelcdmda 7080 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (𝐾‘𝑛) ∈ ℝ) |
| 58 | | refld 21831 |
. . . . . . . . . . . . 13
⊢
ℝfld ∈ Field |
| 59 | 58 | elexi 3475 |
. . . . . . . . . . . 12
⊢
ℝfld ∈ V |
| 60 | | fzfi 14036 |
. . . . . . . . . . . 12
⊢ (1...6)
∈ Fin |
| 61 | 54, 56 | frlmfibas 21974 |
. . . . . . . . . . . 12
⊢
((ℝfld ∈ V ∧ (1...6) ∈ Fin) →
(ℝ ↑m (1...6)) = (Base‘(ℝfld
freeLMod (1...6)))) |
| 62 | 59, 60, 61 | mp2an 705 |
. . . . . . . . . . 11
⊢ (ℝ
↑m (1...6)) = (Base‘(ℝfld freeLMod
(1...6))) |
| 63 | 62 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → (ℝ
↑m (1...6)) = (Base‘(ℝfld freeLMod
(1...6)))) |
| 64 | 63, 35 | feq3dd 6693 |
. . . . . . . . 9
⊢ (𝜑 → curry tpos 𝑉:(1...6)⟶(Base‘(ℝfld
freeLMod (1...6)))) |
| 65 | 64 | ffvelcdmda 7080 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (curry tpos 𝑉‘𝑛) ∈ (Base‘(ℝfld
freeLMod (1...6)))) |
| 66 | 52, 65 | eqeltrrd 2863 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛)) ∈ (Base‘(ℝfld
freeLMod (1...6)))) |
| 67 | | eqid 2762 |
. . . . . . 7
⊢ (
·𝑠 ‘(ℝfld freeLMod
(1...6))) = ( ·𝑠 ‘(ℝfld
freeLMod (1...6))) |
| 68 | | remulr 21823 |
. . . . . . 7
⊢ ·
= (.r‘ℝfld) |
| 69 | 54, 55, 56, 43, 57, 66, 67, 68 | frlmvscafval 21978 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → ((𝐾‘𝑛)( ·𝑠
‘(ℝfld freeLMod (1...6)))(𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛))) = (((1...6) × {(𝐾‘𝑛)}) ∘f · (𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛)))) |
| 70 | 69 | mpteq2dva 5202 |
. . . . 5
⊢ (𝜑 → (𝑛 ∈ (1...6) ↦ ((𝐾‘𝑛)( ·𝑠
‘(ℝfld freeLMod (1...6)))(𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛)))) = (𝑛 ∈ (1...6) ↦ (((1...6) ×
{(𝐾‘𝑛)}) ∘f ·
(𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛))))) |
| 71 | | fvexd 6897 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (𝐾‘𝑛) ∈ V) |
| 72 | | fnconstg 6767 |
. . . . . . . 8
⊢ ((𝐾‘𝑛) ∈ V → ((1...6) × {(𝐾‘𝑛)}) Fn (1...6)) |
| 73 | 71, 72 | syl 18 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → ((1...6) ×
{(𝐾‘𝑛)}) Fn (1...6)) |
| 74 | | fvex 6895 |
. . . . . . . . 9
⊢
((veronese‘(𝐴‘𝑖))‘𝑛) ∈ V |
| 75 | | eqid 2762 |
. . . . . . . . 9
⊢ (𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛)) = (𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛)) |
| 76 | 74, 75 | fnmpti 6679 |
. . . . . . . 8
⊢ (𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛)) Fn (1...6) |
| 77 | 76 | a1i 11 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛)) Fn (1...6)) |
| 78 | | simpr 490 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → 𝑚 ∈ (1...6)) |
| 79 | | fvex 6895 |
. . . . . . . . 9
⊢ (𝐾‘𝑛) ∈ V |
| 80 | 79 | fvconst2 7206 |
. . . . . . . 8
⊢ (𝑚 ∈ (1...6) → (((1...6)
× {(𝐾‘𝑛)})‘𝑚) = (𝐾‘𝑛)) |
| 81 | 78, 80 | syl 18 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → (((1...6) ×
{(𝐾‘𝑛)})‘𝑚) = (𝐾‘𝑛)) |
| 82 | | 2fveq3 6887 |
. . . . . . . . . 10
⊢ (𝑖 = 𝑚 → (veronese‘(𝐴‘𝑖)) = (veronese‘(𝐴‘𝑚))) |
| 83 | 82 | fveq1d 6884 |
. . . . . . . . 9
⊢ (𝑖 = 𝑚 → ((veronese‘(𝐴‘𝑖))‘𝑛) = ((veronese‘(𝐴‘𝑚))‘𝑛)) |
| 84 | | simpr 490 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑚 ∈ (1...6)) → 𝑚 ∈ (1...6)) |
| 85 | | fvexd 6897 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑚 ∈ (1...6)) →
((veronese‘(𝐴‘𝑚))‘𝑛) ∈ V) |
| 86 | 75, 83, 84, 85 | fvmptd3 7014 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑚 ∈ (1...6)) → ((𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛))‘𝑚) = ((veronese‘(𝐴‘𝑚))‘𝑛)) |
| 87 | 86 | adantlr 728 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → ((𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛))‘𝑚) = ((veronese‘(𝐴‘𝑚))‘𝑛)) |
| 88 | 73, 77, 43, 43, 38, 81, 87 | offval 7690 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (((1...6) ×
{(𝐾‘𝑛)}) ∘f ·
(𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛))) = (𝑚 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛)))) |
| 89 | 88 | mpteq2dva 5202 |
. . . . 5
⊢ (𝜑 → (𝑛 ∈ (1...6) ↦ (((1...6) ×
{(𝐾‘𝑛)}) ∘f ·
(𝑖 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑛)))) = (𝑛 ∈ (1...6) ↦ (𝑚 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛))))) |
| 90 | 53, 70, 89 | 3eqtrd 2801 |
. . . 4
⊢ (𝜑 → (𝐾 ∘f (
·𝑠 ‘(ℝfld freeLMod
(1...6)))curry tpos 𝑉) =
(𝑛 ∈ (1...6) ↦
(𝑚 ∈ (1...6) ↦
((𝐾‘𝑛) ·
((veronese‘(𝐴‘𝑚))‘𝑛))))) |
| 91 | 90 | oveq2d 7432 |
. . 3
⊢ (𝜑 → ((ℝfld
freeLMod (1...6)) Σg (𝐾 ∘f (
·𝑠 ‘(ℝfld freeLMod
(1...6)))curry tpos 𝑉)) =
((ℝfld freeLMod (1...6)) Σg (𝑛 ∈ (1...6) ↦ (𝑚 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛)))))) |
| 92 | | eqid 2762 |
. . . 4
⊢
(0g‘(ℝfld freeLMod (1...6))) =
(0g‘(ℝfld freeLMod (1...6))) |
| 93 | | isfld 20902 |
. . . . . . . 8
⊢
(ℝfld ∈ Field ↔ (ℝfld ∈
DivRing ∧ ℝfld ∈ CRing)) |
| 94 | 58, 93 | mpbi 233 |
. . . . . . 7
⊢
(ℝfld ∈ DivRing ∧ ℝfld ∈
CRing) |
| 95 | 94 | simpli 489 |
. . . . . 6
⊢
ℝfld ∈ DivRing |
| 96 | | drngring 20896 |
. . . . . 6
⊢
(ℝfld ∈ DivRing → ℝfld
∈ Ring) |
| 97 | 95, 96 | ax-mp 5 |
. . . . 5
⊢
ℝfld ∈ Ring |
| 98 | 97 | a1i 11 |
. . . 4
⊢ (𝜑 → ℝfld
∈ Ring) |
| 99 | 57 | adantr 486 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → (𝐾‘𝑛) ∈ ℝ) |
| 100 | | simpll 779 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → 𝜑) |
| 101 | 100, 11 | syl 18 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → 𝐴:(1...6)⟶(ℝ ↑m
(1...3))) |
| 102 | 101, 78 | ffvelcdmd 7081 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → (𝐴‘𝑚) ∈ (ℝ ↑m
(1...3))) |
| 103 | | simplr 781 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → 𝑛 ∈ (1...6)) |
| 104 | | veronesefvcl 50787 |
. . . . . . . 8
⊢ (((𝐴‘𝑚) ∈ (ℝ ↑m (1...3))
∧ 𝑛 ∈ (1...6))
→ ((veronese‘(𝐴‘𝑚))‘𝑛) ∈ ℝ) |
| 105 | 102, 103,
104 | syl2anc 596 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) →
((veronese‘(𝐴‘𝑚))‘𝑛) ∈ ℝ) |
| 106 | 99, 105 | remulcld 11264 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛)) ∈ ℝ) |
| 107 | 106 | fmpttd 7111 |
. . . . 5
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (𝑚 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛))):(1...6)⟶ℝ) |
| 108 | 32, 19 | elmap 8881 |
. . . . 5
⊢ ((𝑚 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛))) ∈ (ℝ ↑m
(1...6)) ↔ (𝑚 ∈
(1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛))):(1...6)⟶ℝ) |
| 109 | 107, 108 | sylibr 237 |
. . . 4
⊢ ((𝜑 ∧ 𝑛 ∈ (1...6)) → (𝑚 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛))) ∈ (ℝ ↑m
(1...6))) |
| 110 | | eqid 2762 |
. . . . 5
⊢ (𝑛 ∈ (1...6) ↦ (𝑚 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛)))) = (𝑛 ∈ (1...6) ↦ (𝑚 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛)))) |
| 111 | 60 | a1i 11 |
. . . . 5
⊢ (𝜑 → (1...6) ∈
Fin) |
| 112 | | fvexd 6897 |
. . . . 5
⊢ (𝜑 →
(0g‘(ℝfld freeLMod (1...6))) ∈
V) |
| 113 | 110, 111,
109, 112 | fsuppmptdm 9349 |
. . . 4
⊢ (𝜑 → (𝑛 ∈ (1...6) ↦ (𝑚 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛)))) finSupp
(0g‘(ℝfld freeLMod
(1...6)))) |
| 114 | 54, 62, 92, 37, 37, 98, 109, 113 | frlmgsum 21984 |
. . 3
⊢ (𝜑 → ((ℝfld
freeLMod (1...6)) Σg (𝑛 ∈ (1...6) ↦ (𝑚 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛))))) = (𝑚 ∈ (1...6) ↦
(ℝfld Σg (𝑛 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛)))))) |
| 115 | 3, 11 | veronesematrowd 50796 |
. . . . . . . . . . . . 13
⊢ (𝜑 → curry 𝑉 = (𝑖 ∈ (1...6) ↦
(veronese‘(𝐴‘𝑖)))) |
| 116 | 100, 115 | syl 18 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → curry 𝑉 = (𝑖 ∈ (1...6) ↦
(veronese‘(𝐴‘𝑖)))) |
| 117 | | fvexd 6897 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) →
(veronese‘(𝐴‘𝑚)) ∈ V) |
| 118 | 82, 116, 78, 117 | fvmptd4 7015 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → (curry 𝑉‘𝑚) = (veronese‘(𝐴‘𝑚))) |
| 119 | 118 | fveq1d 6884 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → ((curry 𝑉‘𝑚)‘𝑛) = ((veronese‘(𝐴‘𝑚))‘𝑛)) |
| 120 | 119 | eqcomd 2768 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) →
((veronese‘(𝐴‘𝑚))‘𝑛) = ((curry 𝑉‘𝑚)‘𝑛)) |
| 121 | 120 | oveq2d 7432 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑛 ∈ (1...6)) ∧ 𝑚 ∈ (1...6)) → ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛)) = ((𝐾‘𝑛) · ((curry 𝑉‘𝑚)‘𝑛))) |
| 122 | 121 | an32s 665 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑚 ∈ (1...6)) ∧ 𝑛 ∈ (1...6)) → ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛)) = ((𝐾‘𝑛) · ((curry 𝑉‘𝑚)‘𝑛))) |
| 123 | 122 | mpteq2dva 5202 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑚 ∈ (1...6)) → (𝑛 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛))) = (𝑛 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((curry 𝑉‘𝑚)‘𝑛)))) |
| 124 | 123 | oveq2d 7432 |
. . . . 5
⊢ ((𝜑 ∧ 𝑚 ∈ (1...6)) →
(ℝfld Σg (𝑛 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛)))) = (ℝfld
Σg (𝑛 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((curry 𝑉‘𝑚)‘𝑛))))) |
| 125 | 82 | fveq1d 6884 |
. . . . . . . 8
⊢ (𝑖 = 𝑚 → ((veronese‘(𝐴‘𝑖))‘𝑗) = ((veronese‘(𝐴‘𝑚))‘𝑗)) |
| 126 | | fveq2 6882 |
. . . . . . . 8
⊢ (𝑗 = 𝑛 → ((veronese‘(𝐴‘𝑚))‘𝑗) = ((veronese‘(𝐴‘𝑚))‘𝑛)) |
| 127 | 125, 126 | cbvmpov 7511 |
. . . . . . 7
⊢ (𝑖 ∈ (1...6), 𝑗 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑖))‘𝑗)) = (𝑚 ∈ (1...6), 𝑛 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑚))‘𝑛)) |
| 128 | 3, 127 | eqtri 2785 |
. . . . . 6
⊢ 𝑉 = (𝑚 ∈ (1...6), 𝑛 ∈ (1...6) ↦
((veronese‘(𝐴‘𝑚))‘𝑛)) |
| 129 | | fveq2 6882 |
. . . . . . . . . . . . . 14
⊢ (𝑖 = 𝑚 → (𝐴‘𝑖) = (𝐴‘𝑚)) |
| 130 | 129 | fveq1d 6884 |
. . . . . . . . . . . . 13
⊢ (𝑖 = 𝑚 → ((𝐴‘𝑖)‘1) = ((𝐴‘𝑚)‘1)) |
| 131 | 130 | oveq1d 7431 |
. . . . . . . . . . . 12
⊢ (𝑖 = 𝑚 → (((𝐴‘𝑖)‘1)↑2) = (((𝐴‘𝑚)‘1)↑2)) |
| 132 | 131 | oveq2d 7432 |
. . . . . . . . . . 11
⊢ (𝑖 = 𝑚 → ((𝐾‘1) · (((𝐴‘𝑖)‘1)↑2)) = ((𝐾‘1) · (((𝐴‘𝑚)‘1)↑2))) |
| 133 | 129 | fveq1d 6884 |
. . . . . . . . . . . . 13
⊢ (𝑖 = 𝑚 → ((𝐴‘𝑖)‘2) = ((𝐴‘𝑚)‘2)) |
| 134 | 133 | oveq1d 7431 |
. . . . . . . . . . . 12
⊢ (𝑖 = 𝑚 → (((𝐴‘𝑖)‘2)↑2) = (((𝐴‘𝑚)‘2)↑2)) |
| 135 | 134 | oveq2d 7432 |
. . . . . . . . . . 11
⊢ (𝑖 = 𝑚 → ((𝐾‘2) · (((𝐴‘𝑖)‘2)↑2)) = ((𝐾‘2) · (((𝐴‘𝑚)‘2)↑2))) |
| 136 | 132, 135 | oveq12d 7434 |
. . . . . . . . . 10
⊢ (𝑖 = 𝑚 → (((𝐾‘1) · (((𝐴‘𝑖)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑖)‘2)↑2))) = (((𝐾‘1) · (((𝐴‘𝑚)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑚)‘2)↑2)))) |
| 137 | 129 | fveq1d 6884 |
. . . . . . . . . . . 12
⊢ (𝑖 = 𝑚 → ((𝐴‘𝑖)‘3) = ((𝐴‘𝑚)‘3)) |
| 138 | 137 | oveq1d 7431 |
. . . . . . . . . . 11
⊢ (𝑖 = 𝑚 → (((𝐴‘𝑖)‘3)↑2) = (((𝐴‘𝑚)‘3)↑2)) |
| 139 | 138 | oveq2d 7432 |
. . . . . . . . . 10
⊢ (𝑖 = 𝑚 → ((𝐾‘3) · (((𝐴‘𝑖)‘3)↑2)) = ((𝐾‘3) · (((𝐴‘𝑚)‘3)↑2))) |
| 140 | 136, 139 | oveq12d 7434 |
. . . . . . . . 9
⊢ (𝑖 = 𝑚 → ((((𝐾‘1) · (((𝐴‘𝑖)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑖)‘2)↑2))) + ((𝐾‘3) · (((𝐴‘𝑖)‘3)↑2))) = ((((𝐾‘1) · (((𝐴‘𝑚)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑚)‘2)↑2))) + ((𝐾‘3) · (((𝐴‘𝑚)‘3)↑2)))) |
| 141 | 130, 133 | oveq12d 7434 |
. . . . . . . . . . . 12
⊢ (𝑖 = 𝑚 → (((𝐴‘𝑖)‘1) · ((𝐴‘𝑖)‘2)) = (((𝐴‘𝑚)‘1) · ((𝐴‘𝑚)‘2))) |
| 142 | 141 | oveq2d 7432 |
. . . . . . . . . . 11
⊢ (𝑖 = 𝑚 → ((𝐾‘4) · (((𝐴‘𝑖)‘1) · ((𝐴‘𝑖)‘2))) = ((𝐾‘4) · (((𝐴‘𝑚)‘1) · ((𝐴‘𝑚)‘2)))) |
| 143 | 133, 137 | oveq12d 7434 |
. . . . . . . . . . . 12
⊢ (𝑖 = 𝑚 → (((𝐴‘𝑖)‘2) · ((𝐴‘𝑖)‘3)) = (((𝐴‘𝑚)‘2) · ((𝐴‘𝑚)‘3))) |
| 144 | 143 | oveq2d 7432 |
. . . . . . . . . . 11
⊢ (𝑖 = 𝑚 → ((𝐾‘5) · (((𝐴‘𝑖)‘2) · ((𝐴‘𝑖)‘3))) = ((𝐾‘5) · (((𝐴‘𝑚)‘2) · ((𝐴‘𝑚)‘3)))) |
| 145 | 142, 144 | oveq12d 7434 |
. . . . . . . . . 10
⊢ (𝑖 = 𝑚 → (((𝐾‘4) · (((𝐴‘𝑖)‘1) · ((𝐴‘𝑖)‘2))) + ((𝐾‘5) · (((𝐴‘𝑖)‘2) · ((𝐴‘𝑖)‘3)))) = (((𝐾‘4) · (((𝐴‘𝑚)‘1) · ((𝐴‘𝑚)‘2))) + ((𝐾‘5) · (((𝐴‘𝑚)‘2) · ((𝐴‘𝑚)‘3))))) |
| 146 | 137, 130 | oveq12d 7434 |
. . . . . . . . . . 11
⊢ (𝑖 = 𝑚 → (((𝐴‘𝑖)‘3) · ((𝐴‘𝑖)‘1)) = (((𝐴‘𝑚)‘3) · ((𝐴‘𝑚)‘1))) |
| 147 | 146 | oveq2d 7432 |
. . . . . . . . . 10
⊢ (𝑖 = 𝑚 → ((𝐾‘6) · (((𝐴‘𝑖)‘3) · ((𝐴‘𝑖)‘1))) = ((𝐾‘6) · (((𝐴‘𝑚)‘3) · ((𝐴‘𝑚)‘1)))) |
| 148 | 145, 147 | oveq12d 7434 |
. . . . . . . . 9
⊢ (𝑖 = 𝑚 → ((((𝐾‘4) · (((𝐴‘𝑖)‘1) · ((𝐴‘𝑖)‘2))) + ((𝐾‘5) · (((𝐴‘𝑖)‘2) · ((𝐴‘𝑖)‘3)))) + ((𝐾‘6) · (((𝐴‘𝑖)‘3) · ((𝐴‘𝑖)‘1)))) = ((((𝐾‘4) · (((𝐴‘𝑚)‘1) · ((𝐴‘𝑚)‘2))) + ((𝐾‘5) · (((𝐴‘𝑚)‘2) · ((𝐴‘𝑚)‘3)))) + ((𝐾‘6) · (((𝐴‘𝑚)‘3) · ((𝐴‘𝑚)‘1))))) |
| 149 | 140, 148 | oveq12d 7434 |
. . . . . . . 8
⊢ (𝑖 = 𝑚 → (((((𝐾‘1) · (((𝐴‘𝑖)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑖)‘2)↑2))) + ((𝐾‘3) · (((𝐴‘𝑖)‘3)↑2))) + ((((𝐾‘4) · (((𝐴‘𝑖)‘1) · ((𝐴‘𝑖)‘2))) + ((𝐾‘5) · (((𝐴‘𝑖)‘2) · ((𝐴‘𝑖)‘3)))) + ((𝐾‘6) · (((𝐴‘𝑖)‘3) · ((𝐴‘𝑖)‘1))))) = (((((𝐾‘1) · (((𝐴‘𝑚)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑚)‘2)↑2))) + ((𝐾‘3) · (((𝐴‘𝑚)‘3)↑2))) + ((((𝐾‘4) · (((𝐴‘𝑚)‘1) · ((𝐴‘𝑚)‘2))) + ((𝐾‘5) · (((𝐴‘𝑚)‘2) · ((𝐴‘𝑚)‘3)))) + ((𝐾‘6) · (((𝐴‘𝑚)‘3) · ((𝐴‘𝑚)‘1)))))) |
| 150 | 149 | eqeq1d 2764 |
. . . . . . 7
⊢ (𝑖 = 𝑚 → ((((((𝐾‘1) · (((𝐴‘𝑖)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑖)‘2)↑2))) + ((𝐾‘3) · (((𝐴‘𝑖)‘3)↑2))) + ((((𝐾‘4) · (((𝐴‘𝑖)‘1) · ((𝐴‘𝑖)‘2))) + ((𝐾‘5) · (((𝐴‘𝑖)‘2) · ((𝐴‘𝑖)‘3)))) + ((𝐾‘6) · (((𝐴‘𝑖)‘3) · ((𝐴‘𝑖)‘1))))) = 0 ↔ (((((𝐾‘1) · (((𝐴‘𝑚)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑚)‘2)↑2))) + ((𝐾‘3) · (((𝐴‘𝑚)‘3)↑2))) + ((((𝐾‘4) · (((𝐴‘𝑚)‘1) · ((𝐴‘𝑚)‘2))) + ((𝐾‘5) · (((𝐴‘𝑚)‘2) · ((𝐴‘𝑚)‘3)))) + ((𝐾‘6) · (((𝐴‘𝑚)‘3) · ((𝐴‘𝑚)‘1))))) = 0)) |
| 151 | | veroquad.q |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑖 ∈ (1...6)) → (((((𝐾‘1) · (((𝐴‘𝑖)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑖)‘2)↑2))) + ((𝐾‘3) · (((𝐴‘𝑖)‘3)↑2))) + ((((𝐾‘4) · (((𝐴‘𝑖)‘1) · ((𝐴‘𝑖)‘2))) + ((𝐾‘5) · (((𝐴‘𝑖)‘2) · ((𝐴‘𝑖)‘3)))) + ((𝐾‘6) · (((𝐴‘𝑖)‘3) · ((𝐴‘𝑖)‘1))))) = 0) |
| 152 | 151 | ralrimiva 3156 |
. . . . . . . 8
⊢ (𝜑 → ∀𝑖 ∈ (1...6)(((((𝐾‘1) · (((𝐴‘𝑖)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑖)‘2)↑2))) + ((𝐾‘3) · (((𝐴‘𝑖)‘3)↑2))) + ((((𝐾‘4) · (((𝐴‘𝑖)‘1) · ((𝐴‘𝑖)‘2))) + ((𝐾‘5) · (((𝐴‘𝑖)‘2) · ((𝐴‘𝑖)‘3)))) + ((𝐾‘6) · (((𝐴‘𝑖)‘3) · ((𝐴‘𝑖)‘1))))) = 0) |
| 153 | 152 | adantr 486 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑚 ∈ (1...6)) → ∀𝑖 ∈ (1...6)(((((𝐾‘1) · (((𝐴‘𝑖)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑖)‘2)↑2))) + ((𝐾‘3) · (((𝐴‘𝑖)‘3)↑2))) + ((((𝐾‘4) · (((𝐴‘𝑖)‘1) · ((𝐴‘𝑖)‘2))) + ((𝐾‘5) · (((𝐴‘𝑖)‘2) · ((𝐴‘𝑖)‘3)))) + ((𝐾‘6) · (((𝐴‘𝑖)‘3) · ((𝐴‘𝑖)‘1))))) = 0) |
| 154 | 150, 153,
84 | rspcdva 3580 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑚 ∈ (1...6)) → (((((𝐾‘1) · (((𝐴‘𝑚)‘1)↑2)) + ((𝐾‘2) · (((𝐴‘𝑚)‘2)↑2))) + ((𝐾‘3) · (((𝐴‘𝑚)‘3)↑2))) + ((((𝐾‘4) · (((𝐴‘𝑚)‘1) · ((𝐴‘𝑚)‘2))) + ((𝐾‘5) · (((𝐴‘𝑚)‘2) · ((𝐴‘𝑚)‘3)))) + ((𝐾‘6) · (((𝐴‘𝑚)‘3) · ((𝐴‘𝑚)‘1))))) = 0) |
| 155 | 128, 11, 1, 154 | veroquadgsumlem 50798 |
. . . . 5
⊢ ((𝜑 ∧ 𝑚 ∈ (1...6)) →
(ℝfld Σg (𝑛 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((curry 𝑉‘𝑚)‘𝑛)))) = 0) |
| 156 | 124, 155 | eqtrd 2797 |
. . . 4
⊢ ((𝜑 ∧ 𝑚 ∈ (1...6)) →
(ℝfld Σg (𝑛 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛)))) = 0) |
| 157 | 156 | mpteq2dva 5202 |
. . 3
⊢ (𝜑 → (𝑚 ∈ (1...6) ↦
(ℝfld Σg (𝑛 ∈ (1...6) ↦ ((𝐾‘𝑛) · ((veronese‘(𝐴‘𝑚))‘𝑛))))) = (𝑚 ∈ (1...6) ↦ 0)) |
| 158 | 91, 114, 157 | 3eqtrd 2801 |
. 2
⊢ (𝜑 → ((ℝfld
freeLMod (1...6)) Σg (𝐾 ∘f (
·𝑠 ‘(ℝfld freeLMod
(1...6)))curry tpos 𝑉)) =
(𝑚 ∈ (1...6) ↦
0)) |
| 159 | | fconstmpt 5721 |
. . 3
⊢ ((1...6)
× {0}) = (𝑚 ∈
(1...6) ↦ 0) |
| 160 | | re0g 21824 |
. . . . 5
⊢ 0 =
(0g‘ℝfld) |
| 161 | 54, 160 | frlm0 21966 |
. . . 4
⊢
((ℝfld ∈ Ring ∧ (1...6) ∈ V) →
((1...6) × {0}) = (0g‘(ℝfld freeLMod
(1...6)))) |
| 162 | 97, 19, 161 | mp2an 705 |
. . 3
⊢ ((1...6)
× {0}) = (0g‘(ℝfld freeLMod
(1...6))) |
| 163 | 159, 162 | eqtr3i 2787 |
. 2
⊢ (𝑚 ∈ (1...6) ↦ 0) =
(0g‘(ℝfld freeLMod (1...6))) |
| 164 | 158, 163 | eqtrdi 2813 |
1
⊢ (𝜑 → ((ℝfld
freeLMod (1...6)) Σg (𝐾 ∘f (
·𝑠 ‘(ℝfld freeLMod
(1...6)))curry tpos 𝑉)) =
(0g‘(ℝfld freeLMod
(1...6)))) |