Metamath Proof Explorer


Theorem constrmulcl

Description: Constructible numbers are closed under complex multiplication. (Contributed by Thierry Arnoux, 5-Nov-2025)

Ref Expression
Hypotheses constrmulcl.1 φ X Constr
constrmulcl.2 φ Y Constr
Assertion constrmulcl φ X Y Constr

Proof

Step Hyp Ref Expression
1 constrmulcl.1 φ X Constr
2 constrmulcl.2 φ Y Constr
3 1 constrcn φ X
4 3 replimd φ X = X + i X
5 2 constrcn φ Y
6 5 replimd φ Y = Y + i Y
7 4 6 oveq12d φ X Y = X + i X Y + i Y
8 3 recld φ X
9 8 recnd φ X
10 ax-icn i
11 10 a1i φ i
12 3 imcld φ X
13 12 recnd φ X
14 11 13 mulcld φ i X
15 5 recld φ Y
16 15 recnd φ Y
17 5 imcld φ Y
18 17 recnd φ Y
19 11 18 mulcld φ i Y
20 9 14 16 19 muladdd φ X + i X Y + i Y = X Y + i Y i X + X i Y + Y i X
21 1 constrrecl φ X Constr
22 2 constrrecl φ Y Constr
23 21 22 8 15 constrremulcl φ X Y Constr
24 11 18 11 13 mul4d φ i Y i X = i i Y X
25 ixi i i = 1
26 25 oveq1i i i Y X = -1 Y X
27 24 26 eqtrdi φ i Y i X = -1 Y X
28 1zzd φ 1
29 28 zconstr φ 1 Constr
30 29 constrnegcl φ 1 Constr
31 2 constrimcl φ Y Constr
32 1 constrimcl φ X Constr
33 31 32 17 12 constrremulcl φ Y X Constr
34 1red φ 1
35 34 renegcld φ 1
36 17 12 remulcld φ Y X
37 30 33 35 36 constrremulcl φ -1 Y X Constr
38 27 37 eqeltrd φ i Y i X Constr
39 23 38 constraddcl φ X Y + i Y i X Constr
40 9 11 18 mul12d φ X i Y = i X Y
41 0zd φ 0
42 41 zconstr φ 0 Constr
43 iconstr i Constr
44 43 a1i φ i Constr
45 21 31 8 17 constrremulcl φ X Y Constr
46 8 17 remulcld φ X Y
47 9 18 mulcld φ X Y
48 11 47 mulcld φ i X Y
49 0cnd φ 0
50 11 49 subcld φ i 0
51 47 50 mulcld φ X Y i 0
52 51 addlidd φ 0 + X Y i 0 = X Y i 0
53 11 subid1d φ i 0 = i
54 53 oveq2d φ X Y i 0 = X Y i
55 47 11 mulcomd φ X Y i = i X Y
56 52 54 55 3eqtrrd φ i X Y = 0 + X Y i 0
57 11 47 absmuld φ i X Y = i X Y
58 absi i = 1
59 58 a1i φ i = 1
60 59 oveq1d φ i X Y = 1 X Y
61 47 abscld φ X Y
62 61 recnd φ X Y
63 62 mullidd φ 1 X Y = X Y
64 57 60 63 3eqtrd φ i X Y = X Y
65 48 subid1d φ i X Y 0 = i X Y
66 65 fveq2d φ i X Y 0 = i X Y
67 47 subid1d φ X Y 0 = X Y
68 67 fveq2d φ X Y 0 = X Y
69 64 66 68 3eqtr4d φ i X Y 0 = X Y 0
70 42 44 42 45 42 46 48 56 69 constrlccl φ i X Y Constr
71 40 70 eqeltrd φ X i Y Constr
72 16 11 13 mul12d φ Y i X = i Y X
73 22 32 15 12 constrremulcl φ Y X Constr
74 15 12 remulcld φ Y X
75 16 13 mulcld φ Y X
76 11 75 mulcld φ i Y X
77 75 50 mulcld φ Y X i 0
78 77 addlidd φ 0 + Y X i 0 = Y X i 0
79 53 oveq2d φ Y X i 0 = Y X i
80 75 11 mulcomd φ Y X i = i Y X
81 78 79 80 3eqtrrd φ i Y X = 0 + Y X i 0
82 11 75 absmuld φ i Y X = i Y X
83 59 oveq1d φ i Y X = 1 Y X
84 75 abscld φ Y X
85 84 recnd φ Y X
86 85 mullidd φ 1 Y X = Y X
87 82 83 86 3eqtrd φ i Y X = Y X
88 76 subid1d φ i Y X 0 = i Y X
89 88 fveq2d φ i Y X 0 = i Y X
90 75 subid1d φ Y X 0 = Y X
91 90 fveq2d φ Y X 0 = Y X
92 87 89 91 3eqtr4d φ i Y X 0 = Y X 0
93 42 44 42 73 42 74 76 81 92 constrlccl φ i Y X Constr
94 72 93 eqeltrd φ Y i X Constr
95 71 94 constraddcl φ X i Y + Y i X Constr
96 39 95 constraddcl φ X Y + i Y i X + X i Y + Y i X Constr
97 20 96 eqeltrd φ X + i X Y + i Y Constr
98 7 97 eqeltrd φ X Y Constr