constrrecl - Mathbox for Thierry Arnoux

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

Theorem constrrecl 34027

Description: Constructible numbers are closed under taking the real part. (Contributed by Thierry Arnoux, 5-Nov-2025.)

**Hypothesis**
Ref	Expression
constrcjcl.1	⊢ (𝜑 → 𝑋 ∈ Constr)

**Assertion**
Ref	Expression
constrrecl	⊢ (𝜑 → (ℜ‘𝑋) ∈ Constr)

**Proof of Theorem constrrecl**
Step	Hyp	Ref	Expression
1		simpr 488	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ ℝ) → 𝑋 ∈ ℝ)
2	1	rered 15242	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ ℝ) → (ℜ‘𝑋) = 𝑋)
3		constrcjcl.1	. . . 4 ⊢ (𝜑 → 𝑋 ∈ Constr)
4	3	adantr 484	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ ℝ) → 𝑋 ∈ Constr)
5	2, 4	eqeltrd 2861	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ ℝ) → (ℜ‘𝑋) ∈ Constr)
6		0zd 12574	. . . . 5 ⊢ (𝜑 → 0 ∈ ℤ)
7	6	zconstr 34022	. . . 4 ⊢ (𝜑 → 0 ∈ Constr)
8	7	adantr 484	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → 0 ∈ Constr)
9		1zzd 12596	. . . . 5 ⊢ (𝜑 → 1 ∈ ℤ)
10	9	zconstr 34022	. . . 4 ⊢ (𝜑 → 1 ∈ Constr)
11	10	adantr 484	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → 1 ∈ Constr)
12	3	adantr 484	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → 𝑋 ∈ Constr)
13	3	constrcjcl 34026	. . . 4 ⊢ (𝜑 → (∗‘𝑋) ∈ Constr)
14	13	adantr 484	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (∗‘𝑋) ∈ Constr)
15	3	constrcn 34018	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ ℂ)
16	15	recld 15212	. . . 4 ⊢ (𝜑 → (ℜ‘𝑋) ∈ ℝ)
17	16	adantr 484	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℜ‘𝑋) ∈ ℝ)
18		halfre 12428	. . . 4 ⊢ (1 / 2) ∈ ℝ
19	18	a1i 11	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (1 / 2) ∈ ℝ)
20	16	recnd 11204	. . . 4 ⊢ (𝜑 → (ℜ‘𝑋) ∈ ℂ)
21	20	adantr 484	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℜ‘𝑋) ∈ ℂ)
22		1cnd 11169	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ ℂ)
23	22	subid1d 11525	. . . . . . . 8 ⊢ (𝜑 → (1 − 0) = 1)
24	23, 22	eqeltrd 2861	. . . . . . 7 ⊢ (𝜑 → (1 − 0) ∈ ℂ)
25	20, 24	mulcld 11196	. . . . . 6 ⊢ (𝜑 → ((ℜ‘𝑋) · (1 − 0)) ∈ ℂ)
26	25	addlidd 11378	. . . . 5 ⊢ (𝜑 → (0 + ((ℜ‘𝑋) · (1 − 0))) = ((ℜ‘𝑋) · (1 − 0)))
27	23	oveq2d 7407	. . . . 5 ⊢ (𝜑 → ((ℜ‘𝑋) · (1 − 0)) = ((ℜ‘𝑋) · 1))
28	20	mulridd 11193	. . . . 5 ⊢ (𝜑 → ((ℜ‘𝑋) · 1) = (ℜ‘𝑋))
29	26, 27, 28	3eqtrrd 2801	. . . 4 ⊢ (𝜑 → (ℜ‘𝑋) = (0 + ((ℜ‘𝑋) · (1 − 0))))
30	29	adantr 484	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℜ‘𝑋) = (0 + ((ℜ‘𝑋) · (1 − 0))))
31	15	cjcld 15214	. . . . . . 7 ⊢ (𝜑 → (∗‘𝑋) ∈ ℂ)
32	15, 31	addcld 11195	. . . . . 6 ⊢ (𝜑 → (𝑋 + (∗‘𝑋)) ∈ ℂ)
33		2cnd 12290	. . . . . 6 ⊢ (𝜑 → 2 ∈ ℂ)
34		2ne0 12318	. . . . . . 7 ⊢ 2 ≠ 0
35	34	a1i 11	. . . . . 6 ⊢ (𝜑 → 2 ≠ 0)
36	32, 33, 35	divrec2d 11965	. . . . 5 ⊢ (𝜑 → ((𝑋 + (∗‘𝑋)) / 2) = ((1 / 2) · (𝑋 + (∗‘𝑋))))
37		reval 15124	. . . . . 6 ⊢ (𝑋 ∈ ℂ → (ℜ‘𝑋) = ((𝑋 + (∗‘𝑋)) / 2))
38	15, 37	syl 17	. . . . 5 ⊢ (𝜑 → (ℜ‘𝑋) = ((𝑋 + (∗‘𝑋)) / 2))
39	18	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → (1 / 2) ∈ ℝ)
40	39	recnd 11204	. . . . . . . 8 ⊢ (𝜑 → (1 / 2) ∈ ℂ)
41	40, 31, 15	subdid 11637	. . . . . . 7 ⊢ (𝜑 → ((1 / 2) · ((∗‘𝑋) − 𝑋)) = (((1 / 2) · (∗‘𝑋)) − ((1 / 2) · 𝑋)))
42	41	oveq2d 7407	. . . . . 6 ⊢ (𝜑 → (𝑋 + ((1 / 2) · ((∗‘𝑋) − 𝑋))) = (𝑋 + (((1 / 2) · (∗‘𝑋)) − ((1 / 2) · 𝑋))))
43	40, 15	mulcld 11196	. . . . . . 7 ⊢ (𝜑 → ((1 / 2) · 𝑋) ∈ ℂ)
44	40, 31	mulcld 11196	. . . . . . 7 ⊢ (𝜑 → ((1 / 2) · (∗‘𝑋)) ∈ ℂ)
45	15, 43, 44	subadd23d 11558	. . . . . 6 ⊢ (𝜑 → ((𝑋 − ((1 / 2) · 𝑋)) + ((1 / 2) · (∗‘𝑋))) = (𝑋 + (((1 / 2) · (∗‘𝑋)) − ((1 / 2) · 𝑋))))
46	22, 40, 15	subdird 11638	. . . . . . . . 9 ⊢ (𝜑 → ((1 − (1 / 2)) · 𝑋) = ((1 · 𝑋) − ((1 / 2) · 𝑋)))
47		1mhlfehlf 12434	. . . . . . . . . . 11 ⊢ (1 − (1 / 2)) = (1 / 2)
48	47	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (1 − (1 / 2)) = (1 / 2))
49	48	oveq1d 7406	. . . . . . . . 9 ⊢ (𝜑 → ((1 − (1 / 2)) · 𝑋) = ((1 / 2) · 𝑋))
50	15	mullidd 11194	. . . . . . . . . 10 ⊢ (𝜑 → (1 · 𝑋) = 𝑋)
51	50	oveq1d 7406	. . . . . . . . 9 ⊢ (𝜑 → ((1 · 𝑋) − ((1 / 2) · 𝑋)) = (𝑋 − ((1 / 2) · 𝑋)))
52	46, 49, 51	3eqtr3rd 2805	. . . . . . . 8 ⊢ (𝜑 → (𝑋 − ((1 / 2) · 𝑋)) = ((1 / 2) · 𝑋))
53	52	oveq1d 7406	. . . . . . 7 ⊢ (𝜑 → ((𝑋 − ((1 / 2) · 𝑋)) + ((1 / 2) · (∗‘𝑋))) = (((1 / 2) · 𝑋) + ((1 / 2) · (∗‘𝑋))))
54	40, 15, 31	adddid 11200	. . . . . . 7 ⊢ (𝜑 → ((1 / 2) · (𝑋 + (∗‘𝑋))) = (((1 / 2) · 𝑋) + ((1 / 2) · (∗‘𝑋))))
55	53, 54	eqtr4d 2799	. . . . . 6 ⊢ (𝜑 → ((𝑋 − ((1 / 2) · 𝑋)) + ((1 / 2) · (∗‘𝑋))) = ((1 / 2) · (𝑋 + (∗‘𝑋))))
56	42, 45, 55	3eqtr2d 2802	. . . . 5 ⊢ (𝜑 → (𝑋 + ((1 / 2) · ((∗‘𝑋) − 𝑋))) = ((1 / 2) · (𝑋 + (∗‘𝑋))))
57	36, 38, 56	3eqtr4d 2806	. . . 4 ⊢ (𝜑 → (ℜ‘𝑋) = (𝑋 + ((1 / 2) · ((∗‘𝑋) − 𝑋))))
58	57	adantr 484	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℜ‘𝑋) = (𝑋 + ((1 / 2) · ((∗‘𝑋) − 𝑋))))
59	23	fveq2d 6866	. . . . . . . . 9 ⊢ (𝜑 → (∗‘(1 − 0)) = (∗‘1))
60		1red 11176	. . . . . . . . . 10 ⊢ (𝜑 → 1 ∈ ℝ)
61	60	cjred 15244	. . . . . . . . 9 ⊢ (𝜑 → (∗‘1) = 1)
62	59, 61	eqtrd 2796	. . . . . . . 8 ⊢ (𝜑 → (∗‘(1 − 0)) = 1)
63	62	oveq1d 7406	. . . . . . 7 ⊢ (𝜑 → ((∗‘(1 − 0)) · ((∗‘𝑋) − 𝑋)) = (1 · ((∗‘𝑋) − 𝑋)))
64	31, 15	subcld 11536	. . . . . . . 8 ⊢ (𝜑 → ((∗‘𝑋) − 𝑋) ∈ ℂ)
65	64	mullidd 11194	. . . . . . 7 ⊢ (𝜑 → (1 · ((∗‘𝑋) − 𝑋)) = ((∗‘𝑋) − 𝑋))
66	63, 65	eqtrd 2796	. . . . . 6 ⊢ (𝜑 → ((∗‘(1 − 0)) · ((∗‘𝑋) − 𝑋)) = ((∗‘𝑋) − 𝑋))
67	66	fveq2d 6866	. . . . 5 ⊢ (𝜑 → (ℑ‘((∗‘(1 − 0)) · ((∗‘𝑋) − 𝑋))) = (ℑ‘((∗‘𝑋) − 𝑋)))
68	67	adantr 484	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℑ‘((∗‘(1 − 0)) · ((∗‘𝑋) − 𝑋))) = (ℑ‘((∗‘𝑋) − 𝑋)))
69	15	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → 𝑋 ∈ ℂ)
70		imval2 15169	. . . . . . . . . . 11 ⊢ (𝑋 ∈ ℂ → (ℑ‘𝑋) = ((𝑋 − (∗‘𝑋)) / (2 · i)))
71	15, 70	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (ℑ‘𝑋) = ((𝑋 − (∗‘𝑋)) / (2 · i)))
72	71	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘𝑋) = ((𝑋 − (∗‘𝑋)) / (2 · i)))
73	15, 31	subcld 11536	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑋 − (∗‘𝑋)) ∈ ℂ)
74	73	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (𝑋 − (∗‘𝑋)) ∈ ℂ)
75	64	adantr 484	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → ((∗‘𝑋) − 𝑋) ∈ ℂ)
76	75	imnegd 15228	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘-((∗‘𝑋) − 𝑋)) = -(ℑ‘((∗‘𝑋) − 𝑋)))
77	31	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (∗‘𝑋) ∈ ℂ)
78	77, 69	negsubdi2d 11552	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → -((∗‘𝑋) − 𝑋) = (𝑋 − (∗‘𝑋)))
79	78	fveq2d 6866	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘-((∗‘𝑋) − 𝑋)) = (ℑ‘(𝑋 − (∗‘𝑋))))
80		simpr 488	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘((∗‘𝑋) − 𝑋)) = 0)
81	80	negeqd 11418	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → -(ℑ‘((∗‘𝑋) − 𝑋)) = -0)
82	76, 79, 81	3eqtr3d 2804	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘(𝑋 − (∗‘𝑋))) = -0)
83		neg0 11471	. . . . . . . . . . . . 13 ⊢ -0 = 0
84	82, 83	eqtrdi 2812	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘(𝑋 − (∗‘𝑋))) = 0)
85	74, 84	reim0bd 15218	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (𝑋 − (∗‘𝑋)) ∈ ℝ)
86		cjth 15121	. . . . . . . . . . . . . 14 ⊢ (𝑋 ∈ ℂ → ((𝑋 + (∗‘𝑋)) ∈ ℝ ∧ (i · (𝑋 − (∗‘𝑋))) ∈ ℝ))
87	15, 86	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑋 + (∗‘𝑋)) ∈ ℝ ∧ (i · (𝑋 − (∗‘𝑋))) ∈ ℝ))
88	87	simprd 499	. . . . . . . . . . . 12 ⊢ (𝜑 → (i · (𝑋 − (∗‘𝑋))) ∈ ℝ)
89	88	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (i · (𝑋 − (∗‘𝑋))) ∈ ℝ)
90		rimul 12180	. . . . . . . . . . 11 ⊢ (((𝑋 − (∗‘𝑋)) ∈ ℝ ∧ (i · (𝑋 − (∗‘𝑋))) ∈ ℝ) → (𝑋 − (∗‘𝑋)) = 0)
91	85, 89, 90	syl2anc 593	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (𝑋 − (∗‘𝑋)) = 0)
92	91	oveq1d 7406	. . . . . . . . 9 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → ((𝑋 − (∗‘𝑋)) / (2 · i)) = (0 / (2 · i)))
93		ax-icn 11126	. . . . . . . . . . . . 13 ⊢ i ∈ ℂ
94	93	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → i ∈ ℂ)
95	33, 94	mulcld 11196	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · i) ∈ ℂ)
96	95	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (2 · i) ∈ ℂ)
97		ine0 11616	. . . . . . . . . . . . 13 ⊢ i ≠ 0
98	97	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → i ≠ 0)
99	33, 94, 35, 98	mulne0d 11833	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · i) ≠ 0)
100	99	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (2 · i) ≠ 0)
101	96, 100	div0d 11960	. . . . . . . . 9 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (0 / (2 · i)) = 0)
102	72, 92, 101	3eqtrd 2800	. . . . . . . 8 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘𝑋) = 0)
103	69, 102	reim0bd 15218	. . . . . . 7 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → 𝑋 ∈ ℝ)
104	103	ex 416	. . . . . 6 ⊢ (𝜑 → ((ℑ‘((∗‘𝑋) − 𝑋)) = 0 → 𝑋 ∈ ℝ))
105	104	necon3bd 2970	. . . . 5 ⊢ (𝜑 → (¬ 𝑋 ∈ ℝ → (ℑ‘((∗‘𝑋) − 𝑋)) ≠ 0))
106	105	imp 410	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℑ‘((∗‘𝑋) − 𝑋)) ≠ 0)
107	68, 106	eqnetrd 3023	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℑ‘((∗‘(1 − 0)) · ((∗‘𝑋) − 𝑋))) ≠ 0)
108	8, 11, 12, 14, 17, 19, 21, 30, 58, 107	constrllcl 34014	. 2 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℜ‘𝑋) ∈ Constr)
109	5, 108	pm2.61dan 822	1 ⊢ (𝜑 → (ℜ‘𝑋) ∈ Constr)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 399 = wceq 1559 ∈ wcel 2141 ≠ wne 2956 ‘cfv 6516 (class class class)co 7391 ℂcc 11065 ℝcr 11066 0cc0 11067 1c1 11068 ici 11069 + caddc 11070 · cmul 11072 − cmin 11408 -cneg 11409 / cdiv 11838 2c2 12266 ∗ccj 15114 ℜcre 15115 ℑcim 15116 Constrcconstr 33987

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1814 ax-4 1828 ax-5 1929 ax-6 1986 ax-7 2027 ax-8 2143 ax-9 2151 ax-10 2174 ax-11 2190 ax-12 2211 ax-ext 2733 ax-rep 5224 ax-sep 5243 ax-nul 5253 ax-pow 5319 ax-pr 5387 ax-un 7713 ax-cnex 11123 ax-resscn 11124 ax-1cn 11125 ax-icn 11126 ax-addcl 11127 ax-addrcl 11128 ax-mulcl 11129 ax-mulrcl 11130 ax-mulcom 11131 ax-addass 11132 ax-mulass 11133 ax-distr 11134 ax-i2m1 11135 ax-1ne0 11136 ax-1rid 11137 ax-rnegex 11138 ax-rrecex 11139 ax-cnre 11140 ax-pre-lttri 11141 ax-pre-lttrn 11142 ax-pre-ltadd 11143 ax-pre-mulgt0 11144

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1098 df-3an 1099 df-tru 1562 df-fal 1572 df-ex 1799 df-nf 1803 df-sb 2090 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3061 df-ral 3076 df-rex 3086 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3455 df-sbc 3743 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-pss 3922 df-nul 4284 df-if 4478 df-pw 4554 df-sn 4580 df-pr 4582 df-tp 4584 df-op 4586 df-uni 4863 df-iun 4948 df-br 5098 df-opab 5160 df-mpt 5179 df-tr 5205 df-id 5538 df-eprel 5543 df-po 5551 df-so 5552 df-fr 5596 df-we 5598 df-xp 5649 df-rel 5650 df-cnv 5651 df-co 5652 df-dm 5653 df-rn 5654 df-res 5655 df-ima 5656 df-pred 6283 df-ord 6344 df-on 6345 df-lim 6346 df-suc 6347 df-iota 6472 df-fun 6518 df-fn 6519 df-f 6520 df-f1 6521 df-fo 6522 df-f1o 6523 df-fv 6524 df-riota 7348 df-ov 7394 df-oprab 7395 df-mpo 7396 df-om 7842 df-2nd 7966 df-frecs 8256 df-wrecs 8287 df-recs 8336 df-rdg 8375 df-1o 8431 df-2o 8432 df-er 8672 df-en 8922 df-dom 8923 df-sdom 8924 df-fin 8925 df-pnf 11212 df-mnf 11213 df-xr 11214 df-ltxr 11215 df-le 11216 df-sub 11410 df-neg 11411 df-div 11839 df-nn 12205 df-2 12274 df-n0 12476 df-z 12563 df-cj 15117 df-re 15118 df-im 15119 df-abs 15254 df-constr 33988

This theorem is referenced by: constrimcl 34028 constrmulcl 34029

W3C validator