Metamath Proof Explorer


Theorem constrmulcl

Description: Constructible numbers are closed under complex multiplication. Item (3) of Theorem 7.10 of Stewart p. 96. (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