Metamath Proof Explorer


Theorem veronesev1lem

Description: Lemma for veronesevrowd . Value of the first coordinate of the Veronese map at a point. (Contributed by Jiamin Zhao, 15-Aug-2026)

Ref Expression
Hypothesis veronesevrow.1 φ P 1 3
Assertion veronesev1lem Could not format assertion : No typesetting found for |- ( ph -> ( ( veronese ` P ) ` 1 ) = ( ( P ` 1 ) ^ 2 ) ) with typecode |-

Proof

Step Hyp Ref Expression
1 veronesevrow.1 φ P 1 3
2 1 veronesevald Could not format ( ph -> ( veronese ` P ) = ( x e. ( 1 ... 6 ) |-> ( ( ( if ( x = 1 , ( ( P ` 1 ) ^ 2 ) , 0 ) + if ( x = 2 , ( ( P ` 2 ) ^ 2 ) , 0 ) ) + if ( x = 3 , ( ( P ` 3 ) ^ 2 ) , 0 ) ) + ( ( if ( x = 4 , ( ( P ` 1 ) x. ( P ` 2 ) ) , 0 ) + if ( x = 5 , ( ( P ` 2 ) x. ( P ` 3 ) ) , 0 ) ) + if ( x = 6 , ( ( P ` 3 ) x. ( P ` 1 ) ) , 0 ) ) ) ) ) : No typesetting found for |- ( ph -> ( veronese ` P ) = ( x e. ( 1 ... 6 ) |-> ( ( ( if ( x = 1 , ( ( P ` 1 ) ^ 2 ) , 0 ) + if ( x = 2 , ( ( P ` 2 ) ^ 2 ) , 0 ) ) + if ( x = 3 , ( ( P ` 3 ) ^ 2 ) , 0 ) ) + ( ( if ( x = 4 , ( ( P ` 1 ) x. ( P ` 2 ) ) , 0 ) + if ( x = 5 , ( ( P ` 2 ) x. ( P ` 3 ) ) , 0 ) ) + if ( x = 6 , ( ( P ` 3 ) x. ( P ` 1 ) ) , 0 ) ) ) ) ) with typecode |-
3 iftrue x = 1 if x = 1 P 1 2 0 = P 1 2
4 3 oveq1d x = 1 if x = 1 P 1 2 0 + if x = 2 P 2 2 0 = P 1 2 + if x = 2 P 2 2 0
5 4 oveq1d x = 1 if x = 1 P 1 2 0 + if x = 2 P 2 2 0 + if x = 3 P 3 2 0 = P 1 2 + if x = 2 P 2 2 0 + if x = 3 P 3 2 0
6 5 oveq1d x = 1 if x = 1 P 1 2 0 + if x = 2 P 2 2 0 + if x = 3 P 3 2 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = P 1 2 + if x = 2 P 2 2 0 + if x = 3 P 3 2 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0
7 1ne2 1 2
8 neeq1 x = 1 x 2 1 2
9 7 8 mpbiri x = 1 x 2
10 9 neneqd x = 1 ¬ x = 2
11 10 iffalsed x = 1 if x = 2 P 2 2 0 = 0
12 11 oveq2d x = 1 P 1 2 + if x = 2 P 2 2 0 = P 1 2 + 0
13 12 oveq1d x = 1 P 1 2 + if x = 2 P 2 2 0 + if x = 3 P 3 2 0 = P 1 2 + 0 + if x = 3 P 3 2 0
14 13 oveq1d x = 1 P 1 2 + if x = 2 P 2 2 0 + if x = 3 P 3 2 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = P 1 2 + 0 + if x = 3 P 3 2 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0
15 6 14 eqtrd x = 1 if x = 1 P 1 2 0 + if x = 2 P 2 2 0 + if x = 3 P 3 2 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = P 1 2 + 0 + if x = 3 P 3 2 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0
16 1ne3 1 3
17 neeq1 x = 1 x 3 1 3
18 16 17 mpbiri x = 1 x 3
19 18 neneqd x = 1 ¬ x = 3
20 19 iffalsed x = 1 if x = 3 P 3 2 0 = 0
21 20 oveq2d x = 1 P 1 2 + 0 + if x = 3 P 3 2 0 = P 1 2 + 0 + 0
22 21 oveq1d x = 1 P 1 2 + 0 + if x = 3 P 3 2 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = P 1 2 + 0 + 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0
23 1re 1
24 1lt4 1 < 4
25 23 24 ltneii 1 4
26 neeq1 x = 1 x 4 1 4
27 25 26 mpbiri x = 1 x 4
28 27 neneqd x = 1 ¬ x = 4
29 28 iffalsed x = 1 if x = 4 P 1 P 2 0 = 0
30 29 oveq1d x = 1 if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 = 0 + if x = 5 P 2 P 3 0
31 30 oveq1d x = 1 if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0
32 31 oveq2d x = 1 P 1 2 + 0 + 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = P 1 2 + 0 + 0 + 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0
33 15 22 32 3eqtrd x = 1 if x = 1 P 1 2 0 + if x = 2 P 2 2 0 + if x = 3 P 3 2 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = P 1 2 + 0 + 0 + 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0
34 1lt5 1 < 5
35 23 34 ltneii 1 5
36 neeq1 x = 1 x 5 1 5
37 35 36 mpbiri x = 1 x 5
38 37 neneqd x = 1 ¬ x = 5
39 38 iffalsed x = 1 if x = 5 P 2 P 3 0 = 0
40 39 oveq2d x = 1 0 + if x = 5 P 2 P 3 0 = 0 + 0
41 40 oveq1d x = 1 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = 0 + 0 + if x = 6 P 3 P 1 0
42 41 oveq2d x = 1 P 1 2 + 0 + 0 + 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = P 1 2 + 0 + 0 + 0 + 0 + if x = 6 P 3 P 1 0
43 1lt6 1 < 6
44 23 43 ltneii 1 6
45 neeq1 x = 1 x 6 1 6
46 44 45 mpbiri x = 1 x 6
47 46 neneqd x = 1 ¬ x = 6
48 47 iffalsed x = 1 if x = 6 P 3 P 1 0 = 0
49 48 oveq2d x = 1 0 + 0 + if x = 6 P 3 P 1 0 = 0 + 0 + 0
50 49 oveq2d x = 1 P 1 2 + 0 + 0 + 0 + 0 + if x = 6 P 3 P 1 0 = P 1 2 + 0 + 0 + 0 + 0 + 0
51 33 42 50 3eqtrd x = 1 if x = 1 P 1 2 0 + if x = 2 P 2 2 0 + if x = 3 P 3 2 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = P 1 2 + 0 + 0 + 0 + 0 + 0
52 51 adantl φ x = 1 if x = 1 P 1 2 0 + if x = 2 P 2 2 0 + if x = 3 P 3 2 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = P 1 2 + 0 + 0 + 0 + 0 + 0
53 1 rr3fv1cld φ P 1
54 53 adantr φ x = 1 P 1
55 54 resqcld φ x = 1 P 1 2
56 0red φ x = 1 0
57 55 56 readdcld φ x = 1 P 1 2 + 0
58 57 recnd φ x = 1 P 1 2 + 0
59 58 addridd φ x = 1 P 1 2 + 0 + 0 = P 1 2 + 0
60 59 oveq1d φ x = 1 P 1 2 + 0 + 0 + 0 + 0 + 0 = P 1 2 + 0 + 0 + 0 + 0
61 55 recnd φ x = 1 P 1 2
62 61 addridd φ x = 1 P 1 2 + 0 = P 1 2
63 62 oveq1d φ x = 1 P 1 2 + 0 + 0 + 0 + 0 = P 1 2 + 0 + 0 + 0
64 60 63 eqtrd φ x = 1 P 1 2 + 0 + 0 + 0 + 0 + 0 = P 1 2 + 0 + 0 + 0
65 56 56 readdcld φ x = 1 0 + 0
66 65 recnd φ x = 1 0 + 0
67 66 addridd φ x = 1 0 + 0 + 0 = 0 + 0
68 67 oveq2d φ x = 1 P 1 2 + 0 + 0 + 0 = P 1 2 + 0 + 0
69 00id 0 + 0 = 0
70 69 a1i φ x = 1 0 + 0 = 0
71 70 oveq2d φ x = 1 P 1 2 + 0 + 0 = P 1 2 + 0
72 64 68 71 3eqtrd φ x = 1 P 1 2 + 0 + 0 + 0 + 0 + 0 = P 1 2 + 0
73 52 72 62 3eqtrd φ x = 1 if x = 1 P 1 2 0 + if x = 2 P 2 2 0 + if x = 3 P 3 2 0 + if x = 4 P 1 P 2 0 + if x = 5 P 2 P 3 0 + if x = 6 P 3 P 1 0 = P 1 2
74 1zzd φ 1
75 6nn 6
76 75 nnzi 6
77 76 a1i φ 6
78 1le1 1 1
79 78 a1i φ 1 1
80 6re 6
81 23 80 43 ltleii 1 6
82 81 a1i φ 1 6
83 74 77 74 79 82 elfzd φ 1 1 6
84 53 resqcld φ P 1 2
85 2 73 83 84 fvmptd Could not format ( ph -> ( ( veronese ` P ) ` 1 ) = ( ( P ` 1 ) ^ 2 ) ) : No typesetting found for |- ( ph -> ( ( veronese ` P ) ` 1 ) = ( ( P ` 1 ) ^ 2 ) ) with typecode |-