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

Theorem constrsqrtcl 33729
Description: Constructible numbers are closed under taking the square root. This is not generally the case for the cubic root operation, see 2sqr3nconstr 33731. (Proposed by Saveliy Skresanov, 3-Nov-2025.) (Contributed by Thierry Arnoux, 6-Nov-2025.)
Hypothesis
Ref Expression
constrabscl.1 (𝜑𝑋 ∈ Constr)
Assertion
Ref Expression
constrsqrtcl (𝜑 → (√‘𝑋) ∈ Constr)

Proof of Theorem constrsqrtcl
StepHypRef Expression
1 fveq2 6872 . . . . 5 (𝑋 = 0 → (√‘𝑋) = (√‘0))
2 sqrt0 15247 . . . . 5 (√‘0) = 0
31, 2eqtrdi 2785 . . . 4 (𝑋 = 0 → (√‘𝑋) = 0)
4 0zd 12592 . . . . 5 (𝑋 = 0 → 0 ∈ ℤ)
54zconstr 33714 . . . 4 (𝑋 = 0 → 0 ∈ Constr)
63, 5eqeltrd 2833 . . 3 (𝑋 = 0 → (√‘𝑋) ∈ Constr)
76adantl 481 . 2 ((𝜑𝑋 = 0) → (√‘𝑋) ∈ Constr)
8 constrabscl.1 . . . . . . . . . 10 (𝜑𝑋 ∈ Constr)
98constrcn 33710 . . . . . . . . 9 (𝜑𝑋 ∈ ℂ)
109adantr 480 . . . . . . . 8 ((𝜑 ∧ -𝑋 ∈ ℝ+) → 𝑋 ∈ ℂ)
1110negnegd 11577 . . . . . . 7 ((𝜑 ∧ -𝑋 ∈ ℝ+) → --𝑋 = 𝑋)
1211fveq2d 6876 . . . . . 6 ((𝜑 ∧ -𝑋 ∈ ℝ+) → (√‘--𝑋) = (√‘𝑋))
13 simpr 484 . . . . . . . 8 ((𝜑 ∧ -𝑋 ∈ ℝ+) → -𝑋 ∈ ℝ+)
1413rpred 13043 . . . . . . 7 ((𝜑 ∧ -𝑋 ∈ ℝ+) → -𝑋 ∈ ℝ)
1513rpge0d 13047 . . . . . . 7 ((𝜑 ∧ -𝑋 ∈ ℝ+) → 0 ≤ -𝑋)
1614, 15sqrtnegd 15427 . . . . . 6 ((𝜑 ∧ -𝑋 ∈ ℝ+) → (√‘--𝑋) = (i · (√‘-𝑋)))
1712, 16eqtr3d 2771 . . . . 5 ((𝜑 ∧ -𝑋 ∈ ℝ+) → (√‘𝑋) = (i · (√‘-𝑋)))
18 iconstr 33716 . . . . . . 7 i ∈ Constr
1918a1i 11 . . . . . 6 ((𝜑 ∧ -𝑋 ∈ ℝ+) → i ∈ Constr)
208adantr 480 . . . . . . . 8 ((𝜑 ∧ -𝑋 ∈ ℝ+) → 𝑋 ∈ Constr)
2120constrnegcl 33713 . . . . . . 7 ((𝜑 ∧ -𝑋 ∈ ℝ+) → -𝑋 ∈ Constr)
2221, 14, 15constrresqrtcl 33727 . . . . . 6 ((𝜑 ∧ -𝑋 ∈ ℝ+) → (√‘-𝑋) ∈ Constr)
2319, 22constrmulcl 33721 . . . . 5 ((𝜑 ∧ -𝑋 ∈ ℝ+) → (i · (√‘-𝑋)) ∈ Constr)
2417, 23eqeltrd 2833 . . . 4 ((𝜑 ∧ -𝑋 ∈ ℝ+) → (√‘𝑋) ∈ Constr)
2524adantlr 715 . . 3 (((𝜑𝑋 ≠ 0) ∧ -𝑋 ∈ ℝ+) → (√‘𝑋) ∈ Constr)
269ad2antrr 726 . . . . . . . . 9 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 𝑋 ∈ ℂ)
2726abscld 15442 . . . . . . . 8 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (abs‘𝑋) ∈ ℝ)
2827recnd 11255 . . . . . . 7 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (abs‘𝑋) ∈ ℂ)
2928sqrtcld 15443 . . . . . 6 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (√‘(abs‘𝑋)) ∈ ℂ)
3028, 26addcld 11246 . . . . . . 7 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → ((abs‘𝑋) + 𝑋) ∈ ℂ)
3130abscld 15442 . . . . . . . 8 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (abs‘((abs‘𝑋) + 𝑋)) ∈ ℝ)
3231recnd 11255 . . . . . . 7 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (abs‘((abs‘𝑋) + 𝑋)) ∈ ℂ)
339ad2antrr 726 . . . . . . . . . . . . 13 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → 𝑋 ∈ ℂ)
349abscld 15442 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (abs‘𝑋) ∈ ℝ)
3534ad2antrr 726 . . . . . . . . . . . . . . . . . . 19 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) ∈ ℝ)
3635recnd 11255 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) ∈ ℂ)
37 simpr 484 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → ((abs‘𝑋) + 𝑋) = 0)
38 addeq0 11652 . . . . . . . . . . . . . . . . . . 19 (((abs‘𝑋) ∈ ℂ ∧ 𝑋 ∈ ℂ) → (((abs‘𝑋) + 𝑋) = 0 ↔ (abs‘𝑋) = -𝑋))
3938biimpa 476 . . . . . . . . . . . . . . . . . 18 ((((abs‘𝑋) ∈ ℂ ∧ 𝑋 ∈ ℂ) ∧ ((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) = -𝑋)
4036, 33, 37, 39syl21anc 837 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) = -𝑋)
4140, 35eqeltrrd 2834 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → -𝑋 ∈ ℝ)
4233, 41negrebd 11585 . . . . . . . . . . . . . . 15 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → 𝑋 ∈ ℝ)
43 0red 11230 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → 0 ∈ ℝ)
44 simplr 768 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → ¬ -𝑋 ∈ ℝ+)
45 negelrp 13034 . . . . . . . . . . . . . . . . . . 19 (𝑋 ∈ ℝ → (-𝑋 ∈ ℝ+𝑋 < 0))
4645notbid 318 . . . . . . . . . . . . . . . . . 18 (𝑋 ∈ ℝ → (¬ -𝑋 ∈ ℝ+ ↔ ¬ 𝑋 < 0))
4746biimpa 476 . . . . . . . . . . . . . . . . 17 ((𝑋 ∈ ℝ ∧ ¬ -𝑋 ∈ ℝ+) → ¬ 𝑋 < 0)
4842, 44, 47syl2anc 584 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → ¬ 𝑋 < 0)
4943, 42, 48nltled 11377 . . . . . . . . . . . . . . 15 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → 0 ≤ 𝑋)
5042, 49absidd 15428 . . . . . . . . . . . . . 14 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → (abs‘𝑋) = 𝑋)
5150, 40eqtr3d 2771 . . . . . . . . . . . . 13 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → 𝑋 = -𝑋)
5233, 51eqnegad 11955 . . . . . . . . . . . 12 (((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) ∧ ((abs‘𝑋) + 𝑋) = 0) → 𝑋 = 0)
5352ex 412 . . . . . . . . . . 11 ((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) → (((abs‘𝑋) + 𝑋) = 0 → 𝑋 = 0))
5453necon3d 2952 . . . . . . . . . 10 ((𝜑 ∧ ¬ -𝑋 ∈ ℝ+) → (𝑋 ≠ 0 → ((abs‘𝑋) + 𝑋) ≠ 0))
5554impancom 451 . . . . . . . . 9 ((𝜑𝑋 ≠ 0) → (¬ -𝑋 ∈ ℝ+ → ((abs‘𝑋) + 𝑋) ≠ 0))
5655imp 406 . . . . . . . 8 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → ((abs‘𝑋) + 𝑋) ≠ 0)
5730, 56absne0d 15453 . . . . . . 7 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (abs‘((abs‘𝑋) + 𝑋)) ≠ 0)
5830, 32, 57divcld 12009 . . . . . 6 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))) ∈ ℂ)
5929, 58mulcld 11247 . . . . 5 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) ∈ ℂ)
60 eqid 2734 . . . . . . . 8 ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) = ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))
6160sqreulem 15365 . . . . . . 7 ((𝑋 ∈ ℂ ∧ ((abs‘𝑋) + 𝑋) ≠ 0) → ((((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))↑2) = 𝑋 ∧ 0 ≤ (ℜ‘((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∧ (i · ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉ ℝ+))
6226, 56, 61syl2anc 584 . . . . . 6 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → ((((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))↑2) = 𝑋 ∧ 0 ≤ (ℜ‘((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∧ (i · ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉ ℝ+))
6362simp1d 1142 . . . . 5 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))↑2) = 𝑋)
6462simp2d 1143 . . . . 5 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 0 ≤ (ℜ‘((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))))
6562simp3d 1144 . . . . . 6 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (i · ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉ ℝ+)
66 df-nel 3036 . . . . . 6 ((i · ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∉ ℝ+ ↔ ¬ (i · ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∈ ℝ+)
6765, 66sylib 218 . . . . 5 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → ¬ (i · ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))))) ∈ ℝ+)
6859, 26, 63, 64, 67eqsqrtd 15373 . . . 4 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) = (√‘𝑋))
698ad2antrr 726 . . . . . . 7 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 𝑋 ∈ Constr)
7069constrabscl 33728 . . . . . 6 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (abs‘𝑋) ∈ Constr)
7126absge0d 15450 . . . . . 6 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → 0 ≤ (abs‘𝑋))
7270, 27, 71constrresqrtcl 33727 . . . . 5 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (√‘(abs‘𝑋)) ∈ Constr)
7370, 69constraddcl 33712 . . . . . 6 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → ((abs‘𝑋) + 𝑋) ∈ Constr)
7473, 56constrdircl 33715 . . . . 5 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋))) ∈ Constr)
7572, 74constrmulcl 33721 . . . 4 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → ((√‘(abs‘𝑋)) · (((abs‘𝑋) + 𝑋) / (abs‘((abs‘𝑋) + 𝑋)))) ∈ Constr)
7668, 75eqeltrrd 2834 . . 3 (((𝜑𝑋 ≠ 0) ∧ ¬ -𝑋 ∈ ℝ+) → (√‘𝑋) ∈ Constr)
7725, 76pm2.61dan 812 . 2 ((𝜑𝑋 ≠ 0) → (√‘𝑋) ∈ Constr)
787, 77pm2.61dane 3018 1 (𝜑 → (√‘𝑋) ∈ Constr)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3a 1086   = wceq 1539  wcel 2107  wne 2931  wnel 3035   class class class wbr 5116  cfv 6527  (class class class)co 7399  cc 11119  cr 11120  0cc0 11121  ici 11123   + caddc 11124   · cmul 11126   < clt 11261  cle 11262  -cneg 11459   / cdiv 11886  2c2 12287  +crp 13000  cexp 14068  cre 15103  csqrt 15239  abscabs 15240  Constrcconstr 33679
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2706  ax-rep 5246  ax-sep 5263  ax-nul 5273  ax-pow 5332  ax-pr 5399  ax-un 7723  ax-inf2 9647  ax-cnex 11177  ax-resscn 11178  ax-1cn 11179  ax-icn 11180  ax-addcl 11181  ax-addrcl 11182  ax-mulcl 11183  ax-mulrcl 11184  ax-mulcom 11185  ax-addass 11186  ax-mulass 11187  ax-distr 11188  ax-i2m1 11189  ax-1ne0 11190  ax-1rid 11191  ax-rnegex 11192  ax-rrecex 11193  ax-cnre 11194  ax-pre-lttri 11195  ax-pre-lttrn 11196  ax-pre-ltadd 11197  ax-pre-mulgt0 11198  ax-pre-sup 11199  ax-addf 11200
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2064  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2808  df-nfc 2884  df-ne 2932  df-nel 3036  df-ral 3051  df-rex 3060  df-rmo 3357  df-reu 3358  df-rab 3414  df-v 3459  df-sbc 3764  df-csb 3873  df-dif 3927  df-un 3929  df-in 3931  df-ss 3941  df-pss 3944  df-nul 4307  df-if 4499  df-pw 4575  df-sn 4600  df-pr 4602  df-tp 4604  df-op 4606  df-uni 4881  df-int 4920  df-iun 4966  df-iin 4967  df-br 5117  df-opab 5179  df-mpt 5199  df-tr 5227  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-se 5604  df-we 5605  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6287  df-ord 6352  df-on 6353  df-lim 6354  df-suc 6355  df-iota 6480  df-fun 6529  df-fn 6530  df-f 6531  df-f1 6532  df-fo 6533  df-f1o 6534  df-fv 6535  df-isom 6536  df-riota 7356  df-ov 7402  df-oprab 7403  df-mpo 7404  df-of 7665  df-om 7856  df-1st 7982  df-2nd 7983  df-supp 8154  df-frecs 8274  df-wrecs 8305  df-recs 8379  df-rdg 8418  df-1o 8474  df-2o 8475  df-er 8713  df-map 8836  df-pm 8837  df-ixp 8906  df-en 8954  df-dom 8955  df-sdom 8956  df-fin 8957  df-fsupp 9368  df-fi 9417  df-sup 9448  df-inf 9449  df-oi 9516  df-card 9945  df-pnf 11263  df-mnf 11264  df-xr 11265  df-ltxr 11266  df-le 11267  df-sub 11460  df-neg 11461  df-div 11887  df-nn 12233  df-2 12295  df-3 12296  df-4 12297  df-5 12298  df-6 12299  df-7 12300  df-8 12301  df-9 12302  df-n0 12494  df-z 12581  df-dec 12701  df-uz 12845  df-q 12957  df-rp 13001  df-xneg 13120  df-xadd 13121  df-xmul 13122  df-ioo 13357  df-ioc 13358  df-ico 13359  df-icc 13360  df-fz 13514  df-fzo 13661  df-fl 13798  df-mod 13876  df-seq 14009  df-exp 14069  df-fac 14280  df-bc 14309  df-hash 14337  df-shft 15073  df-cj 15105  df-re 15106  df-im 15107  df-sqrt 15241  df-abs 15242  df-limsup 15474  df-clim 15491  df-rlim 15492  df-sum 15690  df-ef 16070  df-sin 16072  df-cos 16073  df-pi 16075  df-struct 17151  df-sets 17168  df-slot 17186  df-ndx 17198  df-base 17214  df-ress 17237  df-plusg 17269  df-mulr 17270  df-starv 17271  df-sca 17272  df-vsca 17273  df-ip 17274  df-tset 17275  df-ple 17276  df-ds 17278  df-unif 17279  df-hom 17280  df-cco 17281  df-rest 17421  df-topn 17422  df-0g 17440  df-gsum 17441  df-topgen 17442  df-pt 17443  df-prds 17446  df-xrs 17501  df-qtop 17506  df-imas 17507  df-xps 17509  df-mre 17583  df-mrc 17584  df-acs 17586  df-mgm 18603  df-sgrp 18682  df-mnd 18698  df-submnd 18747  df-mulg 19036  df-cntz 19285  df-cmn 19748  df-psmet 21292  df-xmet 21293  df-met 21294  df-bl 21295  df-mopn 21296  df-fbas 21297  df-fg 21298  df-cnfld 21301  df-top 22817  df-topon 22834  df-topsp 22856  df-bases 22869  df-cld 22942  df-ntr 22943  df-cls 22944  df-nei 23021  df-lp 23059  df-perf 23060  df-cn 23150  df-cnp 23151  df-haus 23238  df-tx 23485  df-hmeo 23678  df-fil 23769  df-fm 23861  df-flim 23862  df-flf 23863  df-xms 24244  df-ms 24245  df-tms 24246  df-cncf 24807  df-limc 25804  df-dv 25805  df-log 26501  df-constr 33680
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator