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 33732

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 484	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ ℝ) → 𝑋 ∈ ℝ)
2	1	rered 15166	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ ℝ) → (ℜ‘𝑋) = 𝑋)
3		constrcjcl.1	. . . 4 ⊢ (𝜑 → 𝑋 ∈ Constr)
4	3	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ ℝ) → 𝑋 ∈ Constr)
5	2, 4	eqeltrd 2828	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ ℝ) → (ℜ‘𝑋) ∈ Constr)
6		0zd 12517	. . . . 5 ⊢ (𝜑 → 0 ∈ ℤ)
7	6	zconstr 33727	. . . 4 ⊢ (𝜑 → 0 ∈ Constr)
8	7	adantr 480	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → 0 ∈ Constr)
9		1zzd 12540	. . . . 5 ⊢ (𝜑 → 1 ∈ ℤ)
10	9	zconstr 33727	. . . 4 ⊢ (𝜑 → 1 ∈ Constr)
11	10	adantr 480	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → 1 ∈ Constr)
12	3	adantr 480	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → 𝑋 ∈ Constr)
13	3	constrcjcl 33731	. . . 4 ⊢ (𝜑 → (∗‘𝑋) ∈ Constr)
14	13	adantr 480	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (∗‘𝑋) ∈ Constr)
15	3	constrcn 33723	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ ℂ)
16	15	recld 15136	. . . 4 ⊢ (𝜑 → (ℜ‘𝑋) ∈ ℝ)
17	16	adantr 480	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℜ‘𝑋) ∈ ℝ)
18		halfre 12371	. . . 4 ⊢ (1 / 2) ∈ ℝ
19	18	a1i 11	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (1 / 2) ∈ ℝ)
20	16	recnd 11178	. . . 4 ⊢ (𝜑 → (ℜ‘𝑋) ∈ ℂ)
21	20	adantr 480	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℜ‘𝑋) ∈ ℂ)
22		1cnd 11145	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ ℂ)
23	22	subid1d 11498	. . . . . . . 8 ⊢ (𝜑 → (1 − 0) = 1)
24	23, 22	eqeltrd 2828	. . . . . . 7 ⊢ (𝜑 → (1 − 0) ∈ ℂ)
25	20, 24	mulcld 11170	. . . . . 6 ⊢ (𝜑 → ((ℜ‘𝑋) · (1 − 0)) ∈ ℂ)
26	25	addlidd 11351	. . . . 5 ⊢ (𝜑 → (0 + ((ℜ‘𝑋) · (1 − 0))) = ((ℜ‘𝑋) · (1 − 0)))
27	23	oveq2d 7385	. . . . 5 ⊢ (𝜑 → ((ℜ‘𝑋) · (1 − 0)) = ((ℜ‘𝑋) · 1))
28	20	mulridd 11167	. . . . 5 ⊢ (𝜑 → ((ℜ‘𝑋) · 1) = (ℜ‘𝑋))
29	26, 27, 28	3eqtrrd 2769	. . . 4 ⊢ (𝜑 → (ℜ‘𝑋) = (0 + ((ℜ‘𝑋) · (1 − 0))))
30	29	adantr 480	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℜ‘𝑋) = (0 + ((ℜ‘𝑋) · (1 − 0))))
31	15	cjcld 15138	. . . . . . 7 ⊢ (𝜑 → (∗‘𝑋) ∈ ℂ)
32	15, 31	addcld 11169	. . . . . 6 ⊢ (𝜑 → (𝑋 + (∗‘𝑋)) ∈ ℂ)
33		2cnd 12240	. . . . . 6 ⊢ (𝜑 → 2 ∈ ℂ)
34		2ne0 12266	. . . . . . 7 ⊢ 2 ≠ 0
35	34	a1i 11	. . . . . 6 ⊢ (𝜑 → 2 ≠ 0)
36	32, 33, 35	divrec2d 11938	. . . . 5 ⊢ (𝜑 → ((𝑋 + (∗‘𝑋)) / 2) = ((1 / 2) · (𝑋 + (∗‘𝑋))))
37		reval 15048	. . . . . 6 ⊢ (𝑋 ∈ ℂ → (ℜ‘𝑋) = ((𝑋 + (∗‘𝑋)) / 2))
38	15, 37	syl 17	. . . . 5 ⊢ (𝜑 → (ℜ‘𝑋) = ((𝑋 + (∗‘𝑋)) / 2))
39	18	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → (1 / 2) ∈ ℝ)
40	39	recnd 11178	. . . . . . . 8 ⊢ (𝜑 → (1 / 2) ∈ ℂ)
41	40, 31, 15	subdid 11610	. . . . . . 7 ⊢ (𝜑 → ((1 / 2) · ((∗‘𝑋) − 𝑋)) = (((1 / 2) · (∗‘𝑋)) − ((1 / 2) · 𝑋)))
42	41	oveq2d 7385	. . . . . 6 ⊢ (𝜑 → (𝑋 + ((1 / 2) · ((∗‘𝑋) − 𝑋))) = (𝑋 + (((1 / 2) · (∗‘𝑋)) − ((1 / 2) · 𝑋))))
43	40, 15	mulcld 11170	. . . . . . 7 ⊢ (𝜑 → ((1 / 2) · 𝑋) ∈ ℂ)
44	40, 31	mulcld 11170	. . . . . . 7 ⊢ (𝜑 → ((1 / 2) · (∗‘𝑋)) ∈ ℂ)
45	15, 43, 44	subadd23d 11531	. . . . . 6 ⊢ (𝜑 → ((𝑋 − ((1 / 2) · 𝑋)) + ((1 / 2) · (∗‘𝑋))) = (𝑋 + (((1 / 2) · (∗‘𝑋)) − ((1 / 2) · 𝑋))))
46	22, 40, 15	subdird 11611	. . . . . . . . 9 ⊢ (𝜑 → ((1 − (1 / 2)) · 𝑋) = ((1 · 𝑋) − ((1 / 2) · 𝑋)))
47		1mhlfehlf 12377	. . . . . . . . . . 11 ⊢ (1 − (1 / 2)) = (1 / 2)
48	47	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (1 − (1 / 2)) = (1 / 2))
49	48	oveq1d 7384	. . . . . . . . 9 ⊢ (𝜑 → ((1 − (1 / 2)) · 𝑋) = ((1 / 2) · 𝑋))
50	15	mullidd 11168	. . . . . . . . . 10 ⊢ (𝜑 → (1 · 𝑋) = 𝑋)
51	50	oveq1d 7384	. . . . . . . . 9 ⊢ (𝜑 → ((1 · 𝑋) − ((1 / 2) · 𝑋)) = (𝑋 − ((1 / 2) · 𝑋)))
52	46, 49, 51	3eqtr3rd 2773	. . . . . . . 8 ⊢ (𝜑 → (𝑋 − ((1 / 2) · 𝑋)) = ((1 / 2) · 𝑋))
53	52	oveq1d 7384	. . . . . . 7 ⊢ (𝜑 → ((𝑋 − ((1 / 2) · 𝑋)) + ((1 / 2) · (∗‘𝑋))) = (((1 / 2) · 𝑋) + ((1 / 2) · (∗‘𝑋))))
54	40, 15, 31	adddid 11174	. . . . . . 7 ⊢ (𝜑 → ((1 / 2) · (𝑋 + (∗‘𝑋))) = (((1 / 2) · 𝑋) + ((1 / 2) · (∗‘𝑋))))
55	53, 54	eqtr4d 2767	. . . . . 6 ⊢ (𝜑 → ((𝑋 − ((1 / 2) · 𝑋)) + ((1 / 2) · (∗‘𝑋))) = ((1 / 2) · (𝑋 + (∗‘𝑋))))
56	42, 45, 55	3eqtr2d 2770	. . . . 5 ⊢ (𝜑 → (𝑋 + ((1 / 2) · ((∗‘𝑋) − 𝑋))) = ((1 / 2) · (𝑋 + (∗‘𝑋))))
57	36, 38, 56	3eqtr4d 2774	. . . 4 ⊢ (𝜑 → (ℜ‘𝑋) = (𝑋 + ((1 / 2) · ((∗‘𝑋) − 𝑋))))
58	57	adantr 480	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℜ‘𝑋) = (𝑋 + ((1 / 2) · ((∗‘𝑋) − 𝑋))))
59	23	fveq2d 6844	. . . . . . . . 9 ⊢ (𝜑 → (∗‘(1 − 0)) = (∗‘1))
60		1red 11151	. . . . . . . . . 10 ⊢ (𝜑 → 1 ∈ ℝ)
61	60	cjred 15168	. . . . . . . . 9 ⊢ (𝜑 → (∗‘1) = 1)
62	59, 61	eqtrd 2764	. . . . . . . 8 ⊢ (𝜑 → (∗‘(1 − 0)) = 1)
63	62	oveq1d 7384	. . . . . . 7 ⊢ (𝜑 → ((∗‘(1 − 0)) · ((∗‘𝑋) − 𝑋)) = (1 · ((∗‘𝑋) − 𝑋)))
64	31, 15	subcld 11509	. . . . . . . 8 ⊢ (𝜑 → ((∗‘𝑋) − 𝑋) ∈ ℂ)
65	64	mullidd 11168	. . . . . . 7 ⊢ (𝜑 → (1 · ((∗‘𝑋) − 𝑋)) = ((∗‘𝑋) − 𝑋))
66	63, 65	eqtrd 2764	. . . . . 6 ⊢ (𝜑 → ((∗‘(1 − 0)) · ((∗‘𝑋) − 𝑋)) = ((∗‘𝑋) − 𝑋))
67	66	fveq2d 6844	. . . . 5 ⊢ (𝜑 → (ℑ‘((∗‘(1 − 0)) · ((∗‘𝑋) − 𝑋))) = (ℑ‘((∗‘𝑋) − 𝑋)))
68	67	adantr 480	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℑ‘((∗‘(1 − 0)) · ((∗‘𝑋) − 𝑋))) = (ℑ‘((∗‘𝑋) − 𝑋)))
69	15	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → 𝑋 ∈ ℂ)
70		imval2 15093	. . . . . . . . . . 11 ⊢ (𝑋 ∈ ℂ → (ℑ‘𝑋) = ((𝑋 − (∗‘𝑋)) / (2 · i)))
71	15, 70	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (ℑ‘𝑋) = ((𝑋 − (∗‘𝑋)) / (2 · i)))
72	71	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘𝑋) = ((𝑋 − (∗‘𝑋)) / (2 · i)))
73	15, 31	subcld 11509	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑋 − (∗‘𝑋)) ∈ ℂ)
74	73	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (𝑋 − (∗‘𝑋)) ∈ ℂ)
75	64	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → ((∗‘𝑋) − 𝑋) ∈ ℂ)
76	75	imnegd 15152	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘-((∗‘𝑋) − 𝑋)) = -(ℑ‘((∗‘𝑋) − 𝑋)))
77	31	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (∗‘𝑋) ∈ ℂ)
78	77, 69	negsubdi2d 11525	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → -((∗‘𝑋) − 𝑋) = (𝑋 − (∗‘𝑋)))
79	78	fveq2d 6844	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘-((∗‘𝑋) − 𝑋)) = (ℑ‘(𝑋 − (∗‘𝑋))))
80		simpr 484	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘((∗‘𝑋) − 𝑋)) = 0)
81	80	negeqd 11391	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → -(ℑ‘((∗‘𝑋) − 𝑋)) = -0)
82	76, 79, 81	3eqtr3d 2772	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘(𝑋 − (∗‘𝑋))) = -0)
83		neg0 11444	. . . . . . . . . . . . 13 ⊢ -0 = 0
84	82, 83	eqtrdi 2780	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘(𝑋 − (∗‘𝑋))) = 0)
85	74, 84	reim0bd 15142	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (𝑋 − (∗‘𝑋)) ∈ ℝ)
86		cjth 15045	. . . . . . . . . . . . . 14 ⊢ (𝑋 ∈ ℂ → ((𝑋 + (∗‘𝑋)) ∈ ℝ ∧ (i · (𝑋 − (∗‘𝑋))) ∈ ℝ))
87	15, 86	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑋 + (∗‘𝑋)) ∈ ℝ ∧ (i · (𝑋 − (∗‘𝑋))) ∈ ℝ))
88	87	simprd 495	. . . . . . . . . . . 12 ⊢ (𝜑 → (i · (𝑋 − (∗‘𝑋))) ∈ ℝ)
89	88	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (i · (𝑋 − (∗‘𝑋))) ∈ ℝ)
90		rimul 12153	. . . . . . . . . . 11 ⊢ (((𝑋 − (∗‘𝑋)) ∈ ℝ ∧ (i · (𝑋 − (∗‘𝑋))) ∈ ℝ) → (𝑋 − (∗‘𝑋)) = 0)
91	85, 89, 90	syl2anc 584	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (𝑋 − (∗‘𝑋)) = 0)
92	91	oveq1d 7384	. . . . . . . . 9 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → ((𝑋 − (∗‘𝑋)) / (2 · i)) = (0 / (2 · i)))
93		ax-icn 11103	. . . . . . . . . . . . 13 ⊢ i ∈ ℂ
94	93	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → i ∈ ℂ)
95	33, 94	mulcld 11170	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · i) ∈ ℂ)
96	95	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (2 · i) ∈ ℂ)
97		ine0 11589	. . . . . . . . . . . . 13 ⊢ i ≠ 0
98	97	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → i ≠ 0)
99	33, 94, 35, 98	mulne0d 11806	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · i) ≠ 0)
100	99	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (2 · i) ≠ 0)
101	96, 100	div0d 11933	. . . . . . . . 9 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (0 / (2 · i)) = 0)
102	72, 92, 101	3eqtrd 2768	. . . . . . . 8 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → (ℑ‘𝑋) = 0)
103	69, 102	reim0bd 15142	. . . . . . 7 ⊢ ((𝜑 ∧ (ℑ‘((∗‘𝑋) − 𝑋)) = 0) → 𝑋 ∈ ℝ)
104	103	ex 412	. . . . . 6 ⊢ (𝜑 → ((ℑ‘((∗‘𝑋) − 𝑋)) = 0 → 𝑋 ∈ ℝ))
105	104	necon3bd 2939	. . . . 5 ⊢ (𝜑 → (¬ 𝑋 ∈ ℝ → (ℑ‘((∗‘𝑋) − 𝑋)) ≠ 0))
106	105	imp 406	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℑ‘((∗‘𝑋) − 𝑋)) ≠ 0)
107	68, 106	eqnetrd 2992	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℑ‘((∗‘(1 − 0)) · ((∗‘𝑋) − 𝑋))) ≠ 0)
108	8, 11, 12, 14, 17, 19, 21, 30, 58, 107	constrllcl 33719	. 2 ⊢ ((𝜑 ∧ ¬ 𝑋 ∈ ℝ) → (ℜ‘𝑋) ∈ Constr)
109	5, 108	pm2.61dan 812	1 ⊢ (𝜑 → (ℜ‘𝑋) ∈ Constr)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 = wceq 1540 ∈ wcel 2109 ≠ wne 2925 ‘cfv 6499 (class class class)co 7369 ℂcc 11042 ℝcr 11043 0cc0 11044 1c1 11045 ici 11046 + caddc 11047 · cmul 11049 − cmin 11381 -cneg 11382 / cdiv 11811 2c2 12217 ∗ccj 15038 ℜcre 15039 ℑcim 15040 Constrcconstr 33692

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5229 ax-sep 5246 ax-nul 5256 ax-pow 5315 ax-pr 5382 ax-un 7691 ax-cnex 11100 ax-resscn 11101 ax-1cn 11102 ax-icn 11103 ax-addcl 11104 ax-addrcl 11105 ax-mulcl 11106 ax-mulrcl 11107 ax-mulcom 11108 ax-addass 11109 ax-mulass 11110 ax-distr 11111 ax-i2m1 11112 ax-1ne0 11113 ax-1rid 11114 ax-rnegex 11115 ax-rrecex 11116 ax-cnre 11117 ax-pre-lttri 11118 ax-pre-lttrn 11119 ax-pre-ltadd 11120 ax-pre-mulgt0 11121

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3351 df-reu 3352 df-rab 3403 df-v 3446 df-sbc 3751 df-csb 3860 df-dif 3914 df-un 3916 df-in 3918 df-ss 3928 df-pss 3931 df-nul 4293 df-if 4485 df-pw 4561 df-sn 4586 df-pr 4588 df-tp 4590 df-op 4592 df-uni 4868 df-iun 4953 df-br 5103 df-opab 5165 df-mpt 5184 df-tr 5210 df-id 5526 df-eprel 5531 df-po 5539 df-so 5540 df-fr 5584 df-we 5586 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-pred 6262 df-ord 6323 df-on 6324 df-lim 6325 df-suc 6326 df-iota 6452 df-fun 6501 df-fn 6502 df-f 6503 df-f1 6504 df-fo 6505 df-f1o 6506 df-fv 6507 df-riota 7326 df-ov 7372 df-oprab 7373 df-mpo 7374 df-om 7823 df-2nd 7948 df-frecs 8237 df-wrecs 8268 df-recs 8317 df-rdg 8355 df-1o 8411 df-2o 8412 df-er 8648 df-en 8896 df-dom 8897 df-sdom 8898 df-fin 8899 df-pnf 11186 df-mnf 11187 df-xr 11188 df-ltxr 11189 df-le 11190 df-sub 11383 df-neg 11384 df-div 11812 df-nn 12163 df-2 12225 df-n0 12419 df-z 12506 df-cj 15041 df-re 15042 df-im 15043 df-abs 15178 df-constr 33693

This theorem is referenced by: constrimcl 33733 constrmulcl 33734

W3C validator