constrremulcl - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > constrremulcl		Structured version Visualization version GIF version

Theorem constrremulcl 34188

Description: If two real numbers 𝑋 and 𝑌 are constructible, then, so is their product. (Contributed by Thierry Arnoux, 2-Nov-2025.)

**Hypotheses**
Ref	Expression
constrremulcl.1	⊢ (𝜑 → 𝑋 ∈ Constr)
constrremulcl.2	⊢ (𝜑 → 𝑌 ∈ Constr)
constrremulcl.3	⊢ (𝜑 → 𝑋 ∈ ℝ)
constrremulcl.4	⊢ (𝜑 → 𝑌 ∈ ℝ)

**Assertion**
Ref	Expression
constrremulcl	⊢ (𝜑 → (𝑋 · 𝑌) ∈ Constr)

**Proof of Theorem constrremulcl**
Step	Hyp	Ref	Expression
1		simpr 490	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = 0) → 𝑋 = 0)
2	1	oveq1d 7438	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = 0) → (𝑋 · 𝑌) = (0 · 𝑌))
3		constrremulcl.4	. . . . . . 7 ⊢ (𝜑 → 𝑌 ∈ ℝ)
4	3	recnd 11255	. . . . . 6 ⊢ (𝜑 → 𝑌 ∈ ℂ)
5	4	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = 0) → 𝑌 ∈ ℂ)
6	5	mul02d 11426	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = 0) → (0 · 𝑌) = 0)
7	2, 6	eqtrd 2801	. . 3 ⊢ ((𝜑 ∧ 𝑋 = 0) → (𝑋 · 𝑌) = 0)
8		0nn0 12537	. . . . . 6 ⊢ 0 ∈ ℕ₀
9	8	a1i 11	. . . . 5 ⊢ (𝜑 → 0 ∈ ℕ₀)
10	9	nn0constr 34182	. . . 4 ⊢ (𝜑 → 0 ∈ Constr)
11	10	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑋 = 0) → 0 ∈ Constr)
12	7, 11	eqeltrd 2866	. 2 ⊢ ((𝜑 ∧ 𝑋 = 0) → (𝑋 · 𝑌) ∈ Constr)
13	10	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → 0 ∈ Constr)
14		constrremulcl.1	. . . 4 ⊢ (𝜑 → 𝑋 ∈ Constr)
15	14	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → 𝑋 ∈ Constr)
16		iconstr 34187	. . . . . 6 ⊢ i ∈ Constr
17	16	a1i 11	. . . . 5 ⊢ (𝜑 → i ∈ Constr)
18		constrremulcl.2	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ Constr)
19	17	constrcn 34181	. . . . . 6 ⊢ (𝜑 → i ∈ ℂ)
20	19, 4	mulcld 11247	. . . . 5 ⊢ (𝜑 → (i · 𝑌) ∈ ℂ)
21	19	subid1d 11576	. . . . . . 7 ⊢ (𝜑 → (i − 0) = i)
22	21	oveq2d 7439	. . . . . 6 ⊢ (𝜑 → (𝑌 · (i − 0)) = (𝑌 · i))
23	21, 19	eqeltrd 2866	. . . . . . . 8 ⊢ (𝜑 → (i − 0) ∈ ℂ)
24	4, 23	mulcld 11247	. . . . . . 7 ⊢ (𝜑 → (𝑌 · (i − 0)) ∈ ℂ)
25	24	addlidd 11429	. . . . . 6 ⊢ (𝜑 → (0 + (𝑌 · (i − 0))) = (𝑌 · (i − 0)))
26	19, 4	mulcomd 11248	. . . . . 6 ⊢ (𝜑 → (i · 𝑌) = (𝑌 · i))
27	22, 25, 26	3eqtr4rd 2812	. . . . 5 ⊢ (𝜑 → (i · 𝑌) = (0 + (𝑌 · (i − 0))))
28	19, 4	absmuld 15534	. . . . . . 7 ⊢ (𝜑 → (abs‘(i · 𝑌)) = ((abs‘i) · (abs‘𝑌)))
29		absi 15363	. . . . . . . . 9 ⊢ (abs‘i) = 1
30	29	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (abs‘i) = 1)
31	30	oveq1d 7438	. . . . . . 7 ⊢ (𝜑 → ((abs‘i) · (abs‘𝑌)) = (1 · (abs‘𝑌)))
32	4	abscld 15516	. . . . . . . . 9 ⊢ (𝜑 → (abs‘𝑌) ∈ ℝ)
33	32	recnd 11255	. . . . . . . 8 ⊢ (𝜑 → (abs‘𝑌) ∈ ℂ)
34	33	mullidd 11245	. . . . . . 7 ⊢ (𝜑 → (1 · (abs‘𝑌)) = (abs‘𝑌))
35	28, 31, 34	3eqtrd 2805	. . . . . 6 ⊢ (𝜑 → (abs‘(i · 𝑌)) = (abs‘𝑌))
36	20	subid1d 11576	. . . . . . 7 ⊢ (𝜑 → ((i · 𝑌) − 0) = (i · 𝑌))
37	36	fveq2d 6892	. . . . . 6 ⊢ (𝜑 → (abs‘((i · 𝑌) − 0)) = (abs‘(i · 𝑌)))
38	4	subid1d 11576	. . . . . . 7 ⊢ (𝜑 → (𝑌 − 0) = 𝑌)
39	38	fveq2d 6892	. . . . . 6 ⊢ (𝜑 → (abs‘(𝑌 − 0)) = (abs‘𝑌))
40	35, 37, 39	3eqtr4d 2811	. . . . 5 ⊢ (𝜑 → (abs‘((i · 𝑌) − 0)) = (abs‘(𝑌 − 0)))
41	10, 17, 10, 18, 10, 3, 20, 27, 40	constrlccl 34178	. . . 4 ⊢ (𝜑 → (i · 𝑌) ∈ Constr)
42	41	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → (i · 𝑌) ∈ Constr)
43		constrremulcl.3	. . . . . . . 8 ⊢ (𝜑 → 𝑋 ∈ ℝ)
44	43	recnd 11255	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ ℂ)
45	44, 19	negsubd 11593	. . . . . 6 ⊢ (𝜑 → (𝑋 + -i) = (𝑋 − i))
46	17	constrnegcl 34184	. . . . . . 7 ⊢ (𝜑 → -i ∈ Constr)
47	14, 46	constraddcl 34183	. . . . . 6 ⊢ (𝜑 → (𝑋 + -i) ∈ Constr)
48	45, 47	eqeltrrd 2867	. . . . 5 ⊢ (𝜑 → (𝑋 − i) ∈ Constr)
49	48, 41	constraddcl 34183	. . . 4 ⊢ (𝜑 → ((𝑋 − i) + (i · 𝑌)) ∈ Constr)
50	49	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → ((𝑋 − i) + (i · 𝑌)) ∈ Constr)
51	3	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → 𝑌 ∈ ℝ)
52	44, 4	mulcld 11247	. . . 4 ⊢ (𝜑 → (𝑋 · 𝑌) ∈ ℂ)
53	52	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → (𝑋 · 𝑌) ∈ ℂ)
54	44	subid1d 11576	. . . . . 6 ⊢ (𝜑 → (𝑋 − 0) = 𝑋)
55	54	oveq2d 7439	. . . . 5 ⊢ (𝜑 → (𝑌 · (𝑋 − 0)) = (𝑌 · 𝑋))
56	54, 44	eqeltrd 2866	. . . . . . 7 ⊢ (𝜑 → (𝑋 − 0) ∈ ℂ)
57	4, 56	mulcld 11247	. . . . . 6 ⊢ (𝜑 → (𝑌 · (𝑋 − 0)) ∈ ℂ)
58	57	addlidd 11429	. . . . 5 ⊢ (𝜑 → (0 + (𝑌 · (𝑋 − 0))) = (𝑌 · (𝑋 − 0)))
59	44, 4	mulcomd 11248	. . . . 5 ⊢ (𝜑 → (𝑋 · 𝑌) = (𝑌 · 𝑋))
60	55, 58, 59	3eqtr4rd 2812	. . . 4 ⊢ (𝜑 → (𝑋 · 𝑌) = (0 + (𝑌 · (𝑋 − 0))))
61	60	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → (𝑋 · 𝑌) = (0 + (𝑌 · (𝑋 − 0))))
62	44, 19	subcld 11587	. . . . . . . 8 ⊢ (𝜑 → (𝑋 − i) ∈ ℂ)
63	62, 20	pncand 11588	. . . . . . 7 ⊢ (𝜑 → (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌)) = (𝑋 − i))
64	63	oveq2d 7439	. . . . . 6 ⊢ (𝜑 → (𝑌 · (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌))) = (𝑌 · (𝑋 − i)))
65	64	oveq2d 7439	. . . . 5 ⊢ (𝜑 → ((i · 𝑌) + (𝑌 · (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌)))) = ((i · 𝑌) + (𝑌 · (𝑋 − i))))
66	4, 44, 19	subdid 11688	. . . . . . 7 ⊢ (𝜑 → (𝑌 · (𝑋 − i)) = ((𝑌 · 𝑋) − (𝑌 · i)))
67	59, 26	oveq12d 7441	. . . . . . 7 ⊢ (𝜑 → ((𝑋 · 𝑌) − (i · 𝑌)) = ((𝑌 · 𝑋) − (𝑌 · i)))
68	66, 67	eqtr4d 2804	. . . . . 6 ⊢ (𝜑 → (𝑌 · (𝑋 − i)) = ((𝑋 · 𝑌) − (i · 𝑌)))
69	68	oveq2d 7439	. . . . 5 ⊢ (𝜑 → ((i · 𝑌) + (𝑌 · (𝑋 − i))) = ((i · 𝑌) + ((𝑋 · 𝑌) − (i · 𝑌))))
70	20, 52	pncan3d 11590	. . . . 5 ⊢ (𝜑 → ((i · 𝑌) + ((𝑋 · 𝑌) − (i · 𝑌))) = (𝑋 · 𝑌))
71	65, 69, 70	3eqtrrd 2806	. . . 4 ⊢ (𝜑 → (𝑋 · 𝑌) = ((i · 𝑌) + (𝑌 · (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌)))))
72	71	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → (𝑋 · 𝑌) = ((i · 𝑌) + (𝑌 · (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌)))))
73	54	fveq2d 6892	. . . . . . . . . 10 ⊢ (𝜑 → (∗‘(𝑋 − 0)) = (∗‘𝑋))
74	43	cjred 15303	. . . . . . . . . 10 ⊢ (𝜑 → (∗‘𝑋) = 𝑋)
75	73, 74	eqtrd 2801	. . . . . . . . 9 ⊢ (𝜑 → (∗‘(𝑋 − 0)) = 𝑋)
76	63, 45	eqtr4d 2804	. . . . . . . . 9 ⊢ (𝜑 → (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌)) = (𝑋 + -i))
77	75, 76	oveq12d 7441	. . . . . . . 8 ⊢ (𝜑 → ((∗‘(𝑋 − 0)) · (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌))) = (𝑋 · (𝑋 + -i)))
78	19	negcld 11574	. . . . . . . . 9 ⊢ (𝜑 → -i ∈ ℂ)
79	44, 44, 78	adddid 11251	. . . . . . . 8 ⊢ (𝜑 → (𝑋 · (𝑋 + -i)) = ((𝑋 · 𝑋) + (𝑋 · -i)))
80	44, 78	mulcomd 11248	. . . . . . . . . 10 ⊢ (𝜑 → (𝑋 · -i) = (-i · 𝑋))
81		mulneg12 11670	. . . . . . . . . . 11 ⊢ ((i ∈ ℂ ∧ 𝑋 ∈ ℂ) → (-i · 𝑋) = (i · -𝑋))
82	19, 44, 81	syl2anc 596	. . . . . . . . . 10 ⊢ (𝜑 → (-i · 𝑋) = (i · -𝑋))
83	80, 82	eqtrd 2801	. . . . . . . . 9 ⊢ (𝜑 → (𝑋 · -i) = (i · -𝑋))
84	83	oveq2d 7439	. . . . . . . 8 ⊢ (𝜑 → ((𝑋 · 𝑋) + (𝑋 · -i)) = ((𝑋 · 𝑋) + (i · -𝑋)))
85	77, 79, 84	3eqtrd 2805	. . . . . . 7 ⊢ (𝜑 → ((∗‘(𝑋 − 0)) · (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌))) = ((𝑋 · 𝑋) + (i · -𝑋)))
86	85	fveq2d 6892	. . . . . 6 ⊢ (𝜑 → (ℑ‘((∗‘(𝑋 − 0)) · (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌)))) = (ℑ‘((𝑋 · 𝑋) + (i · -𝑋))))
87	43, 43	remulcld 11257	. . . . . . 7 ⊢ (𝜑 → (𝑋 · 𝑋) ∈ ℝ)
88	43	renegcld 11659	. . . . . . 7 ⊢ (𝜑 → -𝑋 ∈ ℝ)
89	87, 88	crimd 15309	. . . . . 6 ⊢ (𝜑 → (ℑ‘((𝑋 · 𝑋) + (i · -𝑋))) = -𝑋)
90	86, 89	eqtrd 2801	. . . . 5 ⊢ (𝜑 → (ℑ‘((∗‘(𝑋 − 0)) · (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌)))) = -𝑋)
91	90	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → (ℑ‘((∗‘(𝑋 − 0)) · (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌)))) = -𝑋)
92	44	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → 𝑋 ∈ ℂ)
93		simpr 490	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → 𝑋 ≠ 0)
94	92, 93	negne0d 11585	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → -𝑋 ≠ 0)
95	91, 94	eqnetrd 3028	. . 3 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → (ℑ‘((∗‘(𝑋 − 0)) · (((𝑋 − i) + (i · 𝑌)) − (i · 𝑌)))) ≠ 0)
96	13, 15, 42, 50, 51, 51, 53, 61, 72, 95	constrllcl 34177	. 2 ⊢ ((𝜑 ∧ 𝑋 ≠ 0) → (𝑋 · 𝑌) ∈ Constr)
97	12, 96	pm2.61dane 3048	1 ⊢ (𝜑 → (𝑋 · 𝑌) ∈ Constr)

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 401 = wceq 1570 ∈ wcel 2146 ≠ wne 2961 ‘cfv 6543 (class class class)co 7423 ℂcc 11116 ℝcr 11117 0cc0 11118 1c1 11119 ici 11120 + caddc 11121 · cmul 11123 − cmin 11459 -cneg 11460 ℕ₀cn0 12522 ∗ccj 15173 ℑcim 15175 abscabs 15311 Constrcconstr 34150

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2195 ax-12 2216 ax-ext 2738 ax-rep 5243 ax-sep 5262 ax-nul 5274 ax-pow 5341 ax-pr 5409 ax-un 7745 ax-cnex 11174 ax-resscn 11175 ax-1cn 11176 ax-icn 11177 ax-addcl 11178 ax-addrcl 11179 ax-mulcl 11180 ax-mulrcl 11181 ax-mulcom 11182 ax-addass 11183 ax-mulass 11184 ax-distr 11185 ax-i2m1 11186 ax-1ne0 11187 ax-1rid 11188 ax-rnegex 11189 ax-rrecex 11190 ax-cnre 11191 ax-pre-lttri 11192 ax-pre-lttrn 11193 ax-pre-ltadd 11194 ax-pre-mulgt0 11195 ax-pre-sup 11196

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2570 df-eu 2600 df-clab 2745 df-cleq 2758 df-clel 2841 df-nfc 2915 df-ne 2962 df-nel 3068 df-ral 3083 df-rex 3093 df-rmo 3372 df-reu 3373 df-rab 3420 df-v 3460 df-sbc 3748 df-csb 3857 df-dif 3911 df-un 3913 df-in 3915 df-ss 3925 df-pss 3928 df-nul 4290 df-if 4493 df-pw 4569 df-sn 4595 df-pr 4597 df-tp 4599 df-op 4601 df-uni 4878 df-iun 4963 df-br 5115 df-opab 5179 df-mpt 5198 df-tr 5224 df-id 5561 df-eprel 5566 df-po 5574 df-so 5575 df-fr 5619 df-we 5621 df-xp 5672 df-rel 5673 df-cnv 5674 df-co 5675 df-dm 5676 df-rn 5677 df-res 5678 df-ima 5679 df-pred 6309 df-ord 6370 df-on 6371 df-lim 6372 df-suc 6373 df-iota 6499 df-fun 6545 df-fn 6546 df-f 6547 df-f1 6548 df-fo 6549 df-f1o 6550 df-fv 6551 df-riota 7380 df-ov 7426 df-oprab 7427 df-mpo 7428 df-om 7872 df-2nd 7996 df-frecs 8287 df-wrecs 8318 df-recs 8367 df-rdg 8406 df-1o 8462 df-2o 8463 df-er 8703 df-en 8953 df-dom 8954 df-sdom 8955 df-fin 8956 df-sup 9412 df-pnf 11263 df-mnf 11264 df-xr 11265 df-ltxr 11266 df-le 11267 df-sub 11461 df-neg 11462 df-div 11890 df-nn 12252 df-2 12321 df-3 12322 df-4 12323 df-n0 12523 df-z 12610 df-uz 12881 df-rp 13035 df-seq 14058 df-exp 14118 df-cj 15176 df-re 15177 df-im 15178 df-sqrt 15312 df-abs 15313 df-constr 34151

This theorem is used by: constrmulcl 34192

W3C validator