Metamath Proof Explorer


Theorem veronesev4lem

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

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