Users' Mathboxes Mathbox for Brendan Leahy < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  areacirc Structured version   Visualization version   GIF version

Theorem areacirc 36026
Description: The area of a circle of radius 𝑅 is π · 𝑅↑2. This is Metamath 100 proof #9. (Contributed by Brendan Leahy, 31-Aug-2017.) (Revised by Brendan Leahy, 22-Sep-2017.) (Revised by Brendan Leahy, 11-Jul-2018.)
Hypothesis
Ref Expression
areacirc.1 𝑆 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}
Assertion
Ref Expression
areacirc ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (area‘𝑆) = (π · (𝑅↑2)))
Distinct variable group:   𝑥,𝑦,𝑅
Allowed substitution hints:   𝑆(𝑥,𝑦)

Proof of Theorem areacirc
Dummy variables 𝑡 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 areacirc.1 . . . . . 6 𝑆 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}
2 opabssxp 5714 . . . . . 6 {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))} ⊆ (ℝ × ℝ)
31, 2eqsstri 3969 . . . . 5 𝑆 ⊆ (ℝ × ℝ)
43a1i 11 . . . 4 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → 𝑆 ⊆ (ℝ × ℝ))
51areacirclem5 36025 . . . . . . 7 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑆 “ {𝑡}) = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
6 resqcl 13949 . . . . . . . . . . . . . . 15 (𝑅 ∈ ℝ → (𝑅↑2) ∈ ℝ)
763ad2ant1 1133 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑅↑2) ∈ ℝ)
8 resqcl 13949 . . . . . . . . . . . . . . 15 (𝑡 ∈ ℝ → (𝑡↑2) ∈ ℝ)
983ad2ant3 1135 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑡↑2) ∈ ℝ)
107, 9resubcld 11508 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((𝑅↑2) − (𝑡↑2)) ∈ ℝ)
1110adantr 482 . . . . . . . . . . . 12 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑅↑2) − (𝑡↑2)) ∈ ℝ)
12 absresq 15113 . . . . . . . . . . . . . . . 16 (𝑡 ∈ ℝ → ((abs‘𝑡)↑2) = (𝑡↑2))
13123ad2ant3 1135 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((abs‘𝑡)↑2) = (𝑡↑2))
1413breq1d 5106 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (((abs‘𝑡)↑2) ≤ (𝑅↑2) ↔ (𝑡↑2) ≤ (𝑅↑2)))
15 recn 11066 . . . . . . . . . . . . . . . . 17 (𝑡 ∈ ℝ → 𝑡 ∈ ℂ)
1615abscld 15247 . . . . . . . . . . . . . . . 16 (𝑡 ∈ ℝ → (abs‘𝑡) ∈ ℝ)
17163ad2ant3 1135 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (abs‘𝑡) ∈ ℝ)
18 simp1 1136 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → 𝑅 ∈ ℝ)
1915absge0d 15255 . . . . . . . . . . . . . . . 16 (𝑡 ∈ ℝ → 0 ≤ (abs‘𝑡))
20193ad2ant3 1135 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → 0 ≤ (abs‘𝑡))
21 simp2 1137 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → 0 ≤ 𝑅)
2217, 18, 20, 21le2sqd 14079 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((abs‘𝑡) ≤ 𝑅 ↔ ((abs‘𝑡)↑2) ≤ (𝑅↑2)))
237, 9subge0d 11670 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (0 ≤ ((𝑅↑2) − (𝑡↑2)) ↔ (𝑡↑2) ≤ (𝑅↑2)))
2414, 22, 233bitr4d 311 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((abs‘𝑡) ≤ 𝑅 ↔ 0 ≤ ((𝑅↑2) − (𝑡↑2))))
2524biimpa 478 . . . . . . . . . . . 12 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → 0 ≤ ((𝑅↑2) − (𝑡↑2)))
2611, 25resqrtcld 15228 . . . . . . . . . . 11 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
2726renegcld 11507 . . . . . . . . . 10 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → -(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
28 iccmbl 24835 . . . . . . . . . 10 ((-(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ ∧ (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ) → (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) ∈ dom vol)
2927, 26, 28syl2anc 585 . . . . . . . . 9 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) ∈ dom vol)
30 mblvol 24799 . . . . . . . . . . . 12 ((-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) ∈ dom vol → (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = (vol*‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))))
3129, 30syl 17 . . . . . . . . . . 11 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = (vol*‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))))
3211, 25sqrtge0d 15231 . . . . . . . . . . . . . 14 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → 0 ≤ (√‘((𝑅↑2) − (𝑡↑2))))
3326, 26, 32, 32addge0d 11656 . . . . . . . . . . . . 13 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → 0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))))
34 recn 11066 . . . . . . . . . . . . . . . . . . . . 21 (𝑅 ∈ ℝ → 𝑅 ∈ ℂ)
3534sqcld 13967 . . . . . . . . . . . . . . . . . . . 20 (𝑅 ∈ ℝ → (𝑅↑2) ∈ ℂ)
36353ad2ant1 1133 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑅↑2) ∈ ℂ)
3715sqcld 13967 . . . . . . . . . . . . . . . . . . . 20 (𝑡 ∈ ℝ → (𝑡↑2) ∈ ℂ)
38373ad2ant3 1135 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑡↑2) ∈ ℂ)
3936, 38subcld 11437 . . . . . . . . . . . . . . . . . 18 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((𝑅↑2) − (𝑡↑2)) ∈ ℂ)
4039sqrtcld 15248 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℂ)
4140adantr 482 . . . . . . . . . . . . . . . 16 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℂ)
4241, 41subnegd 11444 . . . . . . . . . . . . . . 15 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))) = ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))))
4342breq2d 5108 . . . . . . . . . . . . . 14 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))) ↔ 0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2))))))
4426, 27subge0d 11670 . . . . . . . . . . . . . 14 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))) ↔ -(√‘((𝑅↑2) − (𝑡↑2))) ≤ (√‘((𝑅↑2) − (𝑡↑2)))))
4543, 44bitr3d 281 . . . . . . . . . . . . 13 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))) ↔ -(√‘((𝑅↑2) − (𝑡↑2))) ≤ (√‘((𝑅↑2) − (𝑡↑2)))))
4633, 45mpbid 231 . . . . . . . . . . . 12 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → -(√‘((𝑅↑2) − (𝑡↑2))) ≤ (√‘((𝑅↑2) − (𝑡↑2))))
47 ovolicc 24792 . . . . . . . . . . . 12 ((-(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ ∧ (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ ∧ -(√‘((𝑅↑2) − (𝑡↑2))) ≤ (√‘((𝑅↑2) − (𝑡↑2)))) → (vol*‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))))
4827, 26, 46, 47syl3anc 1371 . . . . . . . . . . 11 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (vol*‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))))
4931, 48eqtrd 2777 . . . . . . . . . 10 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))))
5026, 27resubcld 11508 . . . . . . . . . 10 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))) ∈ ℝ)
5149, 50eqeltrd 2838 . . . . . . . . 9 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) ∈ ℝ)
52 volf 24798 . . . . . . . . . 10 vol:dom vol⟶(0[,]+∞)
53 ffn 6655 . . . . . . . . . 10 (vol:dom vol⟶(0[,]+∞) → vol Fn dom vol)
54 elpreima 6995 . . . . . . . . . 10 (vol Fn dom vol → ((-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) ∈ (vol “ ℝ) ↔ ((-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) ∈ dom vol ∧ (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) ∈ ℝ)))
5552, 53, 54mp2b 10 . . . . . . . . 9 ((-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) ∈ (vol “ ℝ) ↔ ((-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) ∈ dom vol ∧ (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) ∈ ℝ))
5629, 51, 55sylanbrc 584 . . . . . . . 8 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) ∈ (vol “ ℝ))
57 0mbl 24808 . . . . . . . . . 10 ∅ ∈ dom vol
58 mblvol 24799 . . . . . . . . . . . . 13 (∅ ∈ dom vol → (vol‘∅) = (vol*‘∅))
5957, 58ax-mp 5 . . . . . . . . . . . 12 (vol‘∅) = (vol*‘∅)
60 ovol0 24762 . . . . . . . . . . . 12 (vol*‘∅) = 0
6159, 60eqtri 2765 . . . . . . . . . . 11 (vol‘∅) = 0
62 0re 11082 . . . . . . . . . . 11 0 ∈ ℝ
6361, 62eqeltri 2834 . . . . . . . . . 10 (vol‘∅) ∈ ℝ
64 elpreima 6995 . . . . . . . . . . 11 (vol Fn dom vol → (∅ ∈ (vol “ ℝ) ↔ (∅ ∈ dom vol ∧ (vol‘∅) ∈ ℝ)))
6552, 53, 64mp2b 10 . . . . . . . . . 10 (∅ ∈ (vol “ ℝ) ↔ (∅ ∈ dom vol ∧ (vol‘∅) ∈ ℝ))
6657, 63, 65mpbir2an 709 . . . . . . . . 9 ∅ ∈ (vol “ ℝ)
6766a1i 11 . . . . . . . 8 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ ¬ (abs‘𝑡) ≤ 𝑅) → ∅ ∈ (vol “ ℝ))
6856, 67ifclda 4512 . . . . . . 7 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅) ∈ (vol “ ℝ))
695, 68eqeltrd 2838 . . . . . 6 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑆 “ {𝑡}) ∈ (vol “ ℝ))
70693expa 1118 . . . . 5 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑡 ∈ ℝ) → (𝑆 “ {𝑡}) ∈ (vol “ ℝ))
7170ralrimiva 3140 . . . 4 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → ∀𝑡 ∈ ℝ (𝑆 “ {𝑡}) ∈ (vol “ ℝ))
725fveq2d 6833 . . . . . . 7 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (vol‘(𝑆 “ {𝑡})) = (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)))
73723expa 1118 . . . . . 6 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑡 ∈ ℝ) → (vol‘(𝑆 “ {𝑡})) = (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)))
7473mpteq2dva 5196 . . . . 5 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ ℝ ↦ (vol‘(𝑆 “ {𝑡}))) = (𝑡 ∈ ℝ ↦ (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))))
75 renegcl 11389 . . . . . . . 8 (𝑅 ∈ ℝ → -𝑅 ∈ ℝ)
7675adantr 482 . . . . . . 7 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → -𝑅 ∈ ℝ)
77 simpl 484 . . . . . . 7 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → 𝑅 ∈ ℝ)
78 iccssre 13266 . . . . . . 7 ((-𝑅 ∈ ℝ ∧ 𝑅 ∈ ℝ) → (-𝑅[,]𝑅) ⊆ ℝ)
7976, 77, 78syl2anc 585 . . . . . 6 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (-𝑅[,]𝑅) ⊆ ℝ)
80 rembl 24809 . . . . . . 7 ℝ ∈ dom vol
8180a1i 11 . . . . . 6 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → ℝ ∈ dom vol)
82 fvexd 6844 . . . . . 6 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑡 ∈ (-𝑅[,]𝑅)) → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) ∈ V)
83 eldif 3911 . . . . . . . . 9 (𝑡 ∈ (ℝ ∖ (-𝑅[,]𝑅)) ↔ (𝑡 ∈ ℝ ∧ ¬ 𝑡 ∈ (-𝑅[,]𝑅)))
84 3anass 1095 . . . . . . . . . . . . . . 15 ((𝑡 ∈ ℝ ∧ -𝑅𝑡𝑡𝑅) ↔ (𝑡 ∈ ℝ ∧ (-𝑅𝑡𝑡𝑅)))
8584a1i 11 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((𝑡 ∈ ℝ ∧ -𝑅𝑡𝑡𝑅) ↔ (𝑡 ∈ ℝ ∧ (-𝑅𝑡𝑡𝑅))))
86753ad2ant1 1133 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → -𝑅 ∈ ℝ)
87 elicc2 13249 . . . . . . . . . . . . . . 15 ((-𝑅 ∈ ℝ ∧ 𝑅 ∈ ℝ) → (𝑡 ∈ (-𝑅[,]𝑅) ↔ (𝑡 ∈ ℝ ∧ -𝑅𝑡𝑡𝑅)))
8886, 18, 87syl2anc 585 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑡 ∈ (-𝑅[,]𝑅) ↔ (𝑡 ∈ ℝ ∧ -𝑅𝑡𝑡𝑅)))
89 simp3 1138 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → 𝑡 ∈ ℝ)
9089, 18absled 15241 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((abs‘𝑡) ≤ 𝑅 ↔ (-𝑅𝑡𝑡𝑅)))
9189biantrurd 534 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((-𝑅𝑡𝑡𝑅) ↔ (𝑡 ∈ ℝ ∧ (-𝑅𝑡𝑡𝑅))))
9290, 91bitrd 279 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((abs‘𝑡) ≤ 𝑅 ↔ (𝑡 ∈ ℝ ∧ (-𝑅𝑡𝑡𝑅))))
9385, 88, 923bitr4rd 312 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((abs‘𝑡) ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)))
9493biimpd 228 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((abs‘𝑡) ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)))
9594con3d 152 . . . . . . . . . . 11 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (¬ 𝑡 ∈ (-𝑅[,]𝑅) → ¬ (abs‘𝑡) ≤ 𝑅))
96953expia 1121 . . . . . . . . . 10 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ ℝ → (¬ 𝑡 ∈ (-𝑅[,]𝑅) → ¬ (abs‘𝑡) ≤ 𝑅)))
9796impd 412 . . . . . . . . 9 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → ((𝑡 ∈ ℝ ∧ ¬ 𝑡 ∈ (-𝑅[,]𝑅)) → ¬ (abs‘𝑡) ≤ 𝑅))
9883, 97biimtrid 241 . . . . . . . 8 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ (ℝ ∖ (-𝑅[,]𝑅)) → ¬ (abs‘𝑡) ≤ 𝑅))
9998imp 408 . . . . . . 7 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑡 ∈ (ℝ ∖ (-𝑅[,]𝑅))) → ¬ (abs‘𝑡) ≤ 𝑅)
100 iffalse 4486 . . . . . . . . 9 (¬ (abs‘𝑡) ≤ 𝑅 → if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅) = ∅)
101100fveq2d 6833 . . . . . . . 8 (¬ (abs‘𝑡) ≤ 𝑅 → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = (vol‘∅))
102101, 61eqtrdi 2793 . . . . . . 7 (¬ (abs‘𝑡) ≤ 𝑅 → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = 0)
10399, 102syl 17 . . . . . 6 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑡 ∈ (ℝ ∖ (-𝑅[,]𝑅))) → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = 0)
10476, 77, 87syl2anc 585 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ (-𝑅[,]𝑅) ↔ (𝑡 ∈ ℝ ∧ -𝑅𝑡𝑡𝑅)))
10590biimprd 248 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((-𝑅𝑡𝑡𝑅) → (abs‘𝑡) ≤ 𝑅))
106105expd 417 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (-𝑅𝑡 → (𝑡𝑅 → (abs‘𝑡) ≤ 𝑅)))
1071063expia 1121 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ ℝ → (-𝑅𝑡 → (𝑡𝑅 → (abs‘𝑡) ≤ 𝑅))))
1081073impd 1348 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → ((𝑡 ∈ ℝ ∧ -𝑅𝑡𝑡𝑅) → (abs‘𝑡) ≤ 𝑅))
109104, 108sylbid 239 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ (-𝑅[,]𝑅) → (abs‘𝑡) ≤ 𝑅))
1101093impia 1117 . . . . . . . . . . 11 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (abs‘𝑡) ≤ 𝑅)
111 iftrue 4483 . . . . . . . . . . . 12 ((abs‘𝑡) ≤ 𝑅 → if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅) = (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))))
112111fveq2d 6833 . . . . . . . . . . 11 ((abs‘𝑡) ≤ 𝑅 → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))))
113110, 112syl 17 . . . . . . . . . 10 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))))
11463ad2ant1 1133 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (𝑅↑2) ∈ ℝ)
11575, 78mpancom 686 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ ℝ → (-𝑅[,]𝑅) ⊆ ℝ)
116115sselda 3935 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ ℝ ∧ 𝑡 ∈ (-𝑅[,]𝑅)) → 𝑡 ∈ ℝ)
1171163adant2 1131 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → 𝑡 ∈ ℝ)
118117resqcld 14070 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (𝑡↑2) ∈ ℝ)
119114, 118resubcld 11508 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → ((𝑅↑2) − (𝑡↑2)) ∈ ℝ)
12075, 87mpancom 686 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ ℝ → (𝑡 ∈ (-𝑅[,]𝑅) ↔ (𝑡 ∈ ℝ ∧ -𝑅𝑡𝑡𝑅)))
121120adantr 482 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ (-𝑅[,]𝑅) ↔ (𝑡 ∈ ℝ ∧ -𝑅𝑡𝑡𝑅)))
12222, 90, 143bitr3rd 310 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((𝑡↑2) ≤ (𝑅↑2) ↔ (-𝑅𝑡𝑡𝑅)))
12323, 122bitrd 279 . . . . . . . . . . . . . . . . . . . 20 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (0 ≤ ((𝑅↑2) − (𝑡↑2)) ↔ (-𝑅𝑡𝑡𝑅)))
124123biimprd 248 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((-𝑅𝑡𝑡𝑅) → 0 ≤ ((𝑅↑2) − (𝑡↑2))))
125124expd 417 . . . . . . . . . . . . . . . . . 18 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (-𝑅𝑡 → (𝑡𝑅 → 0 ≤ ((𝑅↑2) − (𝑡↑2)))))
1261253expia 1121 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ ℝ → (-𝑅𝑡 → (𝑡𝑅 → 0 ≤ ((𝑅↑2) − (𝑡↑2))))))
1271263impd 1348 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → ((𝑡 ∈ ℝ ∧ -𝑅𝑡𝑡𝑅) → 0 ≤ ((𝑅↑2) − (𝑡↑2))))
128121, 127sylbid 239 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ (-𝑅[,]𝑅) → 0 ≤ ((𝑅↑2) − (𝑡↑2))))
1291283impia 1117 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → 0 ≤ ((𝑅↑2) − (𝑡↑2)))
130119, 129resqrtcld 15228 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
131130renegcld 11507 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → -(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
132131, 130, 28syl2anc 585 . . . . . . . . . . 11 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) ∈ dom vol)
133132, 30syl 17 . . . . . . . . . 10 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = (vol*‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))))
134119recnd 11108 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → ((𝑅↑2) − (𝑡↑2)) ∈ ℂ)
135134sqrtcld 15248 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℂ)
136135, 135subnegd 11444 . . . . . . . . . . 11 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))) = ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))))
137119, 129sqrtge0d 15231 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → 0 ≤ (√‘((𝑅↑2) − (𝑡↑2))))
138130, 130, 137, 137addge0d 11656 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → 0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))))
139136breq2d 5108 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))) ↔ 0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2))))))
140130, 131subge0d 11670 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))) ↔ -(√‘((𝑅↑2) − (𝑡↑2))) ≤ (√‘((𝑅↑2) − (𝑡↑2)))))
141139, 140bitr3d 281 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))) ↔ -(√‘((𝑅↑2) − (𝑡↑2))) ≤ (√‘((𝑅↑2) − (𝑡↑2)))))
142138, 141mpbid 231 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → -(√‘((𝑅↑2) − (𝑡↑2))) ≤ (√‘((𝑅↑2) − (𝑡↑2))))
143131, 130, 142, 47syl3anc 1371 . . . . . . . . . . 11 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (vol*‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))))
1441352timesd 12321 . . . . . . . . . . 11 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (2 · (√‘((𝑅↑2) − (𝑡↑2)))) = ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))))
145136, 143, 1443eqtr4d 2787 . . . . . . . . . 10 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (vol*‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = (2 · (√‘((𝑅↑2) − (𝑡↑2)))))
146113, 133, 1453eqtrd 2781 . . . . . . . . 9 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ (-𝑅[,]𝑅)) → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = (2 · (√‘((𝑅↑2) − (𝑡↑2)))))
1471463expa 1118 . . . . . . . 8 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑡 ∈ (-𝑅[,]𝑅)) → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = (2 · (√‘((𝑅↑2) − (𝑡↑2)))))
148147mpteq2dva 5196 . . . . . . 7 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ (-𝑅[,]𝑅) ↦ (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))) = (𝑡 ∈ (-𝑅[,]𝑅) ↦ (2 · (√‘((𝑅↑2) − (𝑡↑2))))))
149 areacirclem3 36023 . . . . . . 7 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ (-𝑅[,]𝑅) ↦ (2 · (√‘((𝑅↑2) − (𝑡↑2))))) ∈ 𝐿1)
150148, 149eqeltrd 2838 . . . . . 6 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ (-𝑅[,]𝑅) ↦ (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))) ∈ 𝐿1)
15179, 81, 82, 103, 150iblss2 25075 . . . . 5 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ ℝ ↦ (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))) ∈ 𝐿1)
15274, 151eqeltrd 2838 . . . 4 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ ℝ ↦ (vol‘(𝑆 “ {𝑡}))) ∈ 𝐿1)
153 dmarea 26212 . . . 4 (𝑆 ∈ dom area ↔ (𝑆 ⊆ (ℝ × ℝ) ∧ ∀𝑡 ∈ ℝ (𝑆 “ {𝑡}) ∈ (vol “ ℝ) ∧ (𝑡 ∈ ℝ ↦ (vol‘(𝑆 “ {𝑡}))) ∈ 𝐿1))
1544, 71, 152, 153syl3anbrc 1343 . . 3 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → 𝑆 ∈ dom area)
155 areaval 26219 . . 3 (𝑆 ∈ dom area → (area‘𝑆) = ∫ℝ(vol‘(𝑆 “ {𝑡})) d𝑡)
156154, 155syl 17 . 2 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (area‘𝑆) = ∫ℝ(vol‘(𝑆 “ {𝑡})) d𝑡)
157 elioore 13214 . . . . . 6 (𝑡 ∈ (-𝑅(,)𝑅) → 𝑡 ∈ ℝ)
15853expa 1118 . . . . . 6 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑡 ∈ ℝ) → (𝑆 “ {𝑡}) = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
159157, 158sylan2 594 . . . . 5 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑡 ∈ (-𝑅(,)𝑅)) → (𝑆 “ {𝑡}) = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
160159fveq2d 6833 . . . 4 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑡 ∈ (-𝑅(,)𝑅)) → (vol‘(𝑆 “ {𝑡})) = (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)))
161160itgeq2dv 25051 . . 3 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → ∫(-𝑅(,)𝑅)(vol‘(𝑆 “ {𝑡})) d𝑡 = ∫(-𝑅(,)𝑅)(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡)
162 ioossre 13245 . . . . 5 (-𝑅(,)𝑅) ⊆ ℝ
163162a1i 11 . . . 4 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (-𝑅(,)𝑅) ⊆ ℝ)
164 eldif 3911 . . . . . 6 (𝑡 ∈ (ℝ ∖ (-𝑅(,)𝑅)) ↔ (𝑡 ∈ ℝ ∧ ¬ 𝑡 ∈ (-𝑅(,)𝑅)))
16575rexrd 11130 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ → -𝑅 ∈ ℝ*)
166 rexr 11126 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ → 𝑅 ∈ ℝ*)
167 elioo2 13225 . . . . . . . . . . . . . 14 ((-𝑅 ∈ ℝ*𝑅 ∈ ℝ*) → (𝑡 ∈ (-𝑅(,)𝑅) ↔ (𝑡 ∈ ℝ ∧ -𝑅 < 𝑡𝑡 < 𝑅)))
168165, 166, 167syl2anc 585 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ → (𝑡 ∈ (-𝑅(,)𝑅) ↔ (𝑡 ∈ ℝ ∧ -𝑅 < 𝑡𝑡 < 𝑅)))
1691683ad2ant1 1133 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑡 ∈ (-𝑅(,)𝑅) ↔ (𝑡 ∈ ℝ ∧ -𝑅 < 𝑡𝑡 < 𝑅)))
17089biantrurd 534 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((-𝑅 < 𝑡𝑡 < 𝑅) ↔ (𝑡 ∈ ℝ ∧ (-𝑅 < 𝑡𝑡 < 𝑅))))
17189, 18absltd 15240 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((abs‘𝑡) < 𝑅 ↔ (-𝑅 < 𝑡𝑡 < 𝑅)))
172 3anass 1095 . . . . . . . . . . . . . 14 ((𝑡 ∈ ℝ ∧ -𝑅 < 𝑡𝑡 < 𝑅) ↔ (𝑡 ∈ ℝ ∧ (-𝑅 < 𝑡𝑡 < 𝑅)))
173172a1i 11 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((𝑡 ∈ ℝ ∧ -𝑅 < 𝑡𝑡 < 𝑅) ↔ (𝑡 ∈ ℝ ∧ (-𝑅 < 𝑡𝑡 < 𝑅))))
174170, 171, 1733bitr4rd 312 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((𝑡 ∈ ℝ ∧ -𝑅 < 𝑡𝑡 < 𝑅) ↔ (abs‘𝑡) < 𝑅))
175169, 174bitrd 279 . . . . . . . . . . 11 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑡 ∈ (-𝑅(,)𝑅) ↔ (abs‘𝑡) < 𝑅))
176175notbid 318 . . . . . . . . . 10 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (¬ 𝑡 ∈ (-𝑅(,)𝑅) ↔ ¬ (abs‘𝑡) < 𝑅))
17718, 17lenltd 11226 . . . . . . . . . 10 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑅 ≤ (abs‘𝑡) ↔ ¬ (abs‘𝑡) < 𝑅))
178176, 177bitr4d 282 . . . . . . . . 9 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (¬ 𝑡 ∈ (-𝑅(,)𝑅) ↔ 𝑅 ≤ (abs‘𝑡)))
1795adantr 482 . . . . . . . . . . . 12 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → (𝑆 “ {𝑡}) = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
180179fveq2d 6833 . . . . . . . . . . 11 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → (vol‘(𝑆 “ {𝑡})) = (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)))
18117anim1i 616 . . . . . . . . . . . . . . . 16 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) = 𝑅) → ((abs‘𝑡) ∈ ℝ ∧ (abs‘𝑡) = 𝑅))
182 eqle 11182 . . . . . . . . . . . . . . . 16 (((abs‘𝑡) ∈ ℝ ∧ (abs‘𝑡) = 𝑅) → (abs‘𝑡) ≤ 𝑅)
183181, 182, 1123syl 18 . . . . . . . . . . . . . . 15 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) = 𝑅) → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))))
184 oveq1 7348 . . . . . . . . . . . . . . . . . 18 ((abs‘𝑡) = 𝑅 → ((abs‘𝑡)↑2) = (𝑅↑2))
185184adantl 483 . . . . . . . . . . . . . . . . 17 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) = 𝑅) → ((abs‘𝑡)↑2) = (𝑅↑2))
18613adantr 482 . . . . . . . . . . . . . . . . 17 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) = 𝑅) → ((abs‘𝑡)↑2) = (𝑡↑2))
187185, 186eqtr3d 2779 . . . . . . . . . . . . . . . 16 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) = 𝑅) → (𝑅↑2) = (𝑡↑2))
188 fvoveq1 7364 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅↑2) = (𝑡↑2) → (√‘((𝑅↑2) − (𝑡↑2))) = (√‘((𝑡↑2) − (𝑡↑2))))
189188negeqd 11320 . . . . . . . . . . . . . . . . . . . 20 ((𝑅↑2) = (𝑡↑2) → -(√‘((𝑅↑2) − (𝑡↑2))) = -(√‘((𝑡↑2) − (𝑡↑2))))
190189, 188oveq12d 7359 . . . . . . . . . . . . . . . . . . 19 ((𝑅↑2) = (𝑡↑2) → (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) = (-(√‘((𝑡↑2) − (𝑡↑2)))[,](√‘((𝑡↑2) − (𝑡↑2)))))
1918recnd 11108 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑡 ∈ ℝ → (𝑡↑2) ∈ ℂ)
192191subidd 11425 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑡 ∈ ℝ → ((𝑡↑2) − (𝑡↑2)) = 0)
193192fveq2d 6833 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑡 ∈ ℝ → (√‘((𝑡↑2) − (𝑡↑2))) = (√‘0))
194193negeqd 11320 . . . . . . . . . . . . . . . . . . . . . 22 (𝑡 ∈ ℝ → -(√‘((𝑡↑2) − (𝑡↑2))) = -(√‘0))
195 sqrt0 15052 . . . . . . . . . . . . . . . . . . . . . . . 24 (√‘0) = 0
196195negeqi 11319 . . . . . . . . . . . . . . . . . . . . . . 23 -(√‘0) = -0
197 neg0 11372 . . . . . . . . . . . . . . . . . . . . . . 23 -0 = 0
198196, 197eqtri 2765 . . . . . . . . . . . . . . . . . . . . . 22 -(√‘0) = 0
199194, 198eqtrdi 2793 . . . . . . . . . . . . . . . . . . . . 21 (𝑡 ∈ ℝ → -(√‘((𝑡↑2) − (𝑡↑2))) = 0)
200193, 195eqtrdi 2793 . . . . . . . . . . . . . . . . . . . . 21 (𝑡 ∈ ℝ → (√‘((𝑡↑2) − (𝑡↑2))) = 0)
201199, 200oveq12d 7359 . . . . . . . . . . . . . . . . . . . 20 (𝑡 ∈ ℝ → (-(√‘((𝑡↑2) − (𝑡↑2)))[,](√‘((𝑡↑2) − (𝑡↑2)))) = (0[,]0))
2022013ad2ant3 1135 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (-(√‘((𝑡↑2) − (𝑡↑2)))[,](√‘((𝑡↑2) − (𝑡↑2)))) = (0[,]0))
203190, 202sylan9eqr 2799 . . . . . . . . . . . . . . . . . 18 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (𝑅↑2) = (𝑡↑2)) → (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) = (0[,]0))
204203fveq2d 6833 . . . . . . . . . . . . . . . . 17 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (𝑅↑2) = (𝑡↑2)) → (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = (vol‘(0[,]0)))
205 iccmbl 24835 . . . . . . . . . . . . . . . . . . . 20 ((0 ∈ ℝ ∧ 0 ∈ ℝ) → (0[,]0) ∈ dom vol)
20662, 62, 205mp2an 690 . . . . . . . . . . . . . . . . . . 19 (0[,]0) ∈ dom vol
207 mblvol 24799 . . . . . . . . . . . . . . . . . . 19 ((0[,]0) ∈ dom vol → (vol‘(0[,]0)) = (vol*‘(0[,]0)))
208206, 207ax-mp 5 . . . . . . . . . . . . . . . . . 18 (vol‘(0[,]0)) = (vol*‘(0[,]0))
209 0xr 11127 . . . . . . . . . . . . . . . . . . . 20 0 ∈ ℝ*
210 iccid 13229 . . . . . . . . . . . . . . . . . . . . 21 (0 ∈ ℝ* → (0[,]0) = {0})
211210fveq2d 6833 . . . . . . . . . . . . . . . . . . . 20 (0 ∈ ℝ* → (vol*‘(0[,]0)) = (vol*‘{0}))
212209, 211ax-mp 5 . . . . . . . . . . . . . . . . . . 19 (vol*‘(0[,]0)) = (vol*‘{0})
213 ovolsn 24764 . . . . . . . . . . . . . . . . . . . 20 (0 ∈ ℝ → (vol*‘{0}) = 0)
21462, 213ax-mp 5 . . . . . . . . . . . . . . . . . . 19 (vol*‘{0}) = 0
215212, 214eqtri 2765 . . . . . . . . . . . . . . . . . 18 (vol*‘(0[,]0)) = 0
216208, 215eqtri 2765 . . . . . . . . . . . . . . . . 17 (vol‘(0[,]0)) = 0
217204, 216eqtrdi 2793 . . . . . . . . . . . . . . . 16 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (𝑅↑2) = (𝑡↑2)) → (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = 0)
218187, 217syldan 592 . . . . . . . . . . . . . . 15 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) = 𝑅) → (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = 0)
219183, 218eqtrd 2777 . . . . . . . . . . . . . 14 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ (abs‘𝑡) = 𝑅) → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = 0)
220219ex 414 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → ((abs‘𝑡) = 𝑅 → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = 0))
221220adantr 482 . . . . . . . . . . . 12 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → ((abs‘𝑡) = 𝑅 → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = 0))
22218, 17ltnled 11227 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑅 < (abs‘𝑡) ↔ ¬ (abs‘𝑡) ≤ 𝑅))
223222adantr 482 . . . . . . . . . . . . . 14 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → (𝑅 < (abs‘𝑡) ↔ ¬ (abs‘𝑡) ≤ 𝑅))
224 simpl1 1191 . . . . . . . . . . . . . . 15 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → 𝑅 ∈ ℝ)
22517adantr 482 . . . . . . . . . . . . . . 15 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → (abs‘𝑡) ∈ ℝ)
226 simpr 486 . . . . . . . . . . . . . . 15 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → 𝑅 ≤ (abs‘𝑡))
227224, 225, 226leltned 11233 . . . . . . . . . . . . . 14 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → (𝑅 < (abs‘𝑡) ↔ (abs‘𝑡) ≠ 𝑅))
228223, 227bitr3d 281 . . . . . . . . . . . . 13 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → (¬ (abs‘𝑡) ≤ 𝑅 ↔ (abs‘𝑡) ≠ 𝑅))
229228, 102syl6bir 254 . . . . . . . . . . . 12 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → ((abs‘𝑡) ≠ 𝑅 → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = 0))
230221, 229pm2.61dne 3029 . . . . . . . . . . 11 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = 0)
231180, 230eqtrd 2777 . . . . . . . . . 10 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) ∧ 𝑅 ≤ (abs‘𝑡)) → (vol‘(𝑆 “ {𝑡})) = 0)
232231ex 414 . . . . . . . . 9 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (𝑅 ≤ (abs‘𝑡) → (vol‘(𝑆 “ {𝑡})) = 0))
233178, 232sylbid 239 . . . . . . . 8 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑡 ∈ ℝ) → (¬ 𝑡 ∈ (-𝑅(,)𝑅) → (vol‘(𝑆 “ {𝑡})) = 0))
2342333expia 1121 . . . . . . 7 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ ℝ → (¬ 𝑡 ∈ (-𝑅(,)𝑅) → (vol‘(𝑆 “ {𝑡})) = 0)))
235234impd 412 . . . . . 6 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → ((𝑡 ∈ ℝ ∧ ¬ 𝑡 ∈ (-𝑅(,)𝑅)) → (vol‘(𝑆 “ {𝑡})) = 0))
236164, 235biimtrid 241 . . . . 5 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑡 ∈ (ℝ ∖ (-𝑅(,)𝑅)) → (vol‘(𝑆 “ {𝑡})) = 0))
237236imp 408 . . . 4 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑡 ∈ (ℝ ∖ (-𝑅(,)𝑅))) → (vol‘(𝑆 “ {𝑡})) = 0)
238163, 237itgss 25081 . . 3 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → ∫(-𝑅(,)𝑅)(vol‘(𝑆 “ {𝑡})) d𝑡 = ∫ℝ(vol‘(𝑆 “ {𝑡})) d𝑡)
239 negeq 11318 . . . . . . . . . 10 (𝑅 = 0 → -𝑅 = -0)
240239, 197eqtrdi 2793 . . . . . . . . 9 (𝑅 = 0 → -𝑅 = 0)
241 id 22 . . . . . . . . 9 (𝑅 = 0 → 𝑅 = 0)
242240, 241oveq12d 7359 . . . . . . . 8 (𝑅 = 0 → (-𝑅(,)𝑅) = (0(,)0))
243 iooid 13212 . . . . . . . 8 (0(,)0) = ∅
244242, 243eqtrdi 2793 . . . . . . 7 (𝑅 = 0 → (-𝑅(,)𝑅) = ∅)
245244adantl 483 . . . . . 6 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑅 = 0) → (-𝑅(,)𝑅) = ∅)
246 itgeq1 25042 . . . . . 6 ((-𝑅(,)𝑅) = ∅ → ∫(-𝑅(,)𝑅)(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡 = ∫∅(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡)
247245, 246syl 17 . . . . 5 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑅 = 0) → ∫(-𝑅(,)𝑅)(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡 = ∫∅(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡)
248 itg0 25049 . . . . . 6 ∫∅(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡 = 0
249 sq0 14014 . . . . . . . . . 10 (0↑2) = 0
250249oveq2i 7352 . . . . . . . . 9 (π · (0↑2)) = (π · 0)
251 picn 25721 . . . . . . . . . 10 π ∈ ℂ
252251mul01i 11270 . . . . . . . . 9 (π · 0) = 0
253250, 252eqtr2i 2766 . . . . . . . 8 0 = (π · (0↑2))
254 oveq1 7348 . . . . . . . . 9 (𝑅 = 0 → (𝑅↑2) = (0↑2))
255254oveq2d 7357 . . . . . . . 8 (𝑅 = 0 → (π · (𝑅↑2)) = (π · (0↑2)))
256253, 255eqtr4id 2796 . . . . . . 7 (𝑅 = 0 → 0 = (π · (𝑅↑2)))
257256adantl 483 . . . . . 6 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑅 = 0) → 0 = (π · (𝑅↑2)))
258248, 257eqtrid 2789 . . . . 5 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑅 = 0) → ∫∅(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡 = (π · (𝑅↑2)))
259247, 258eqtrd 2777 . . . 4 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑅 = 0) → ∫(-𝑅(,)𝑅)(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡 = (π · (𝑅↑2)))
260 simp1 1136 . . . . . . 7 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑅 ≠ 0) → 𝑅 ∈ ℝ)
261 0red 11083 . . . . . . . . 9 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → 0 ∈ ℝ)
262 simpr 486 . . . . . . . . 9 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → 0 ≤ 𝑅)
263261, 77, 262leltned 11233 . . . . . . . 8 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (0 < 𝑅𝑅 ≠ 0))
264263biimp3ar 1470 . . . . . . 7 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑅 ≠ 0) → 0 < 𝑅)
265260, 264elrpd 12874 . . . . . 6 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅𝑅 ≠ 0) → 𝑅 ∈ ℝ+)
2662653expa 1118 . . . . 5 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑅 ≠ 0) → 𝑅 ∈ ℝ+)
267157, 16syl 17 . . . . . . . . . . 11 (𝑡 ∈ (-𝑅(,)𝑅) → (abs‘𝑡) ∈ ℝ)
268267adantl 483 . . . . . . . . . 10 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (abs‘𝑡) ∈ ℝ)
269 rpre 12843 . . . . . . . . . . 11 (𝑅 ∈ ℝ+𝑅 ∈ ℝ)
270269adantr 482 . . . . . . . . . 10 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → 𝑅 ∈ ℝ)
271269renegcld 11507 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ+ → -𝑅 ∈ ℝ)
272271rexrd 11130 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ+ → -𝑅 ∈ ℝ*)
273 rpxr 12844 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ+𝑅 ∈ ℝ*)
274272, 273, 167syl2anc 585 . . . . . . . . . . . 12 (𝑅 ∈ ℝ+ → (𝑡 ∈ (-𝑅(,)𝑅) ↔ (𝑡 ∈ ℝ ∧ -𝑅 < 𝑡𝑡 < 𝑅)))
275 simpr 486 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → 𝑡 ∈ ℝ)
276269adantr 482 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → 𝑅 ∈ ℝ)
277275, 276absltd 15240 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → ((abs‘𝑡) < 𝑅 ↔ (-𝑅 < 𝑡𝑡 < 𝑅)))
278277biimprd 248 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → ((-𝑅 < 𝑡𝑡 < 𝑅) → (abs‘𝑡) < 𝑅))
279278exp4b 432 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ+ → (𝑡 ∈ ℝ → (-𝑅 < 𝑡 → (𝑡 < 𝑅 → (abs‘𝑡) < 𝑅))))
2802793impd 1348 . . . . . . . . . . . 12 (𝑅 ∈ ℝ+ → ((𝑡 ∈ ℝ ∧ -𝑅 < 𝑡𝑡 < 𝑅) → (abs‘𝑡) < 𝑅))
281274, 280sylbid 239 . . . . . . . . . . 11 (𝑅 ∈ ℝ+ → (𝑡 ∈ (-𝑅(,)𝑅) → (abs‘𝑡) < 𝑅))
282281imp 408 . . . . . . . . . 10 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (abs‘𝑡) < 𝑅)
283268, 270, 282ltled 11228 . . . . . . . . 9 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (abs‘𝑡) ≤ 𝑅)
284283, 112syl 17 . . . . . . . 8 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))))
285269resqcld 14070 . . . . . . . . . . . . . . 15 (𝑅 ∈ ℝ+ → (𝑅↑2) ∈ ℝ)
286285recnd 11108 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ+ → (𝑅↑2) ∈ ℂ)
287286adantr 482 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → (𝑅↑2) ∈ ℂ)
288191adantl 483 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → (𝑡↑2) ∈ ℂ)
289287, 288subcld 11437 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → ((𝑅↑2) − (𝑡↑2)) ∈ ℂ)
290289sqrtcld 15248 . . . . . . . . . . 11 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℂ)
291290, 290subnegd 11444 . . . . . . . . . 10 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))) = ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))))
292157, 291sylan2 594 . . . . . . . . 9 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))) = ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))))
293285adantr 482 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → (𝑅↑2) ∈ ℝ)
2948adantl 483 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → (𝑡↑2) ∈ ℝ)
295293, 294resubcld 11508 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → ((𝑅↑2) − (𝑡↑2)) ∈ ℝ)
296157, 295sylan2 594 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → ((𝑅↑2) − (𝑡↑2)) ∈ ℝ)
297 0red 11083 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → 0 ∈ ℝ)
29816adantl 483 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → (abs‘𝑡) ∈ ℝ)
29919adantl 483 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → 0 ≤ (abs‘𝑡))
300 rpge0 12848 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑅 ∈ ℝ+ → 0 ≤ 𝑅)
301300adantr 482 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → 0 ≤ 𝑅)
302298, 276, 299, 301lt2sqd 14078 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → ((abs‘𝑡) < 𝑅 ↔ ((abs‘𝑡)↑2) < (𝑅↑2)))
30312adantl 483 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → ((abs‘𝑡)↑2) = (𝑡↑2))
304303breq1d 5106 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → (((abs‘𝑡)↑2) < (𝑅↑2) ↔ (𝑡↑2) < (𝑅↑2)))
305302, 277, 3043bitr3rd 310 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → ((𝑡↑2) < (𝑅↑2) ↔ (-𝑅 < 𝑡𝑡 < 𝑅)))
306294, 293posdifd 11667 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → ((𝑡↑2) < (𝑅↑2) ↔ 0 < ((𝑅↑2) − (𝑡↑2))))
307305, 306bitr3d 281 . . . . . . . . . . . . . . . . . . . 20 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → ((-𝑅 < 𝑡𝑡 < 𝑅) ↔ 0 < ((𝑅↑2) − (𝑡↑2))))
308307biimpd 228 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ ℝ+𝑡 ∈ ℝ) → ((-𝑅 < 𝑡𝑡 < 𝑅) → 0 < ((𝑅↑2) − (𝑡↑2))))
309308exp4b 432 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ ℝ+ → (𝑡 ∈ ℝ → (-𝑅 < 𝑡 → (𝑡 < 𝑅 → 0 < ((𝑅↑2) − (𝑡↑2))))))
3103093impd 1348 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ ℝ+ → ((𝑡 ∈ ℝ ∧ -𝑅 < 𝑡𝑡 < 𝑅) → 0 < ((𝑅↑2) − (𝑡↑2))))
311274, 310sylbid 239 . . . . . . . . . . . . . . . 16 (𝑅 ∈ ℝ+ → (𝑡 ∈ (-𝑅(,)𝑅) → 0 < ((𝑅↑2) − (𝑡↑2))))
312311imp 408 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → 0 < ((𝑅↑2) − (𝑡↑2)))
313297, 296, 312ltled 11228 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → 0 ≤ ((𝑅↑2) − (𝑡↑2)))
314296, 313resqrtcld 15228 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
315314renegcld 11507 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → -(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
316315, 314, 28syl2anc 585 . . . . . . . . . . 11 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) ∈ dom vol)
317316, 30syl 17 . . . . . . . . . 10 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = (vol*‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))))
318296, 313sqrtge0d 15231 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → 0 ≤ (√‘((𝑅↑2) − (𝑡↑2))))
319314, 314, 318, 318addge0d 11656 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → 0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))))
320292breq2d 5108 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))) ↔ 0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2))))))
321314, 315subge0d 11670 . . . . . . . . . . . . 13 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))) ↔ -(√‘((𝑅↑2) − (𝑡↑2))) ≤ (√‘((𝑅↑2) − (𝑡↑2)))))
322320, 321bitr3d 281 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (0 ≤ ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))) ↔ -(√‘((𝑅↑2) − (𝑡↑2))) ≤ (√‘((𝑅↑2) − (𝑡↑2)))))
323319, 322mpbid 231 . . . . . . . . . . 11 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → -(√‘((𝑅↑2) − (𝑡↑2))) ≤ (√‘((𝑅↑2) − (𝑡↑2))))
324315, 314, 323, 47syl3anc 1371 . . . . . . . . . 10 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (vol*‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))))
325317, 324eqtrd 2777 . . . . . . . . 9 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))) = ((√‘((𝑅↑2) − (𝑡↑2))) − -(√‘((𝑅↑2) − (𝑡↑2)))))
326 ax-resscn 11033 . . . . . . . . . . . . . . 15 ℝ ⊆ ℂ
327326a1i 11 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ+ → ℝ ⊆ ℂ)
328271, 269, 78syl2anc 585 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ+ → (-𝑅[,]𝑅) ⊆ ℝ)
329 rpcn 12845 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ ℝ+𝑅 ∈ ℂ)
330329sqcld 13967 . . . . . . . . . . . . . . . 16 (𝑅 ∈ ℝ+ → (𝑅↑2) ∈ ℂ)
331330adantr 482 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → (𝑅↑2) ∈ ℂ)
332328sselda 3935 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → 𝑢 ∈ ℝ)
333332recnd 11108 . . . . . . . . . . . . . . . . . 18 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → 𝑢 ∈ ℂ)
334329adantr 482 . . . . . . . . . . . . . . . . . 18 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → 𝑅 ∈ ℂ)
335 rpne0 12851 . . . . . . . . . . . . . . . . . . 19 (𝑅 ∈ ℝ+𝑅 ≠ 0)
336335adantr 482 . . . . . . . . . . . . . . . . . 18 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → 𝑅 ≠ 0)
337333, 334, 336divcld 11856 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → (𝑢 / 𝑅) ∈ ℂ)
338 asincl 26128 . . . . . . . . . . . . . . . . 17 ((𝑢 / 𝑅) ∈ ℂ → (arcsin‘(𝑢 / 𝑅)) ∈ ℂ)
339337, 338syl 17 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → (arcsin‘(𝑢 / 𝑅)) ∈ ℂ)
340 1cnd 11075 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → 1 ∈ ℂ)
341337sqcld 13967 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → ((𝑢 / 𝑅)↑2) ∈ ℂ)
342340, 341subcld 11437 . . . . . . . . . . . . . . . . . 18 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → (1 − ((𝑢 / 𝑅)↑2)) ∈ ℂ)
343342sqrtcld 15248 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → (√‘(1 − ((𝑢 / 𝑅)↑2))) ∈ ℂ)
344337, 343mulcld 11100 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))) ∈ ℂ)
345339, 344addcld 11099 . . . . . . . . . . . . . . 15 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))) ∈ ℂ)
346331, 345mulcld 11100 . . . . . . . . . . . . . 14 ((𝑅 ∈ ℝ+𝑢 ∈ (-𝑅[,]𝑅)) → ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))) ∈ ℂ)
347 eqid 2737 . . . . . . . . . . . . . . 15 (TopOpen‘ℂfld) = (TopOpen‘ℂfld)
348347tgioo2 24071 . . . . . . . . . . . . . 14 (topGen‘ran (,)) = ((TopOpen‘ℂfld) ↾t ℝ)
349 iccntr 24089 . . . . . . . . . . . . . . 15 ((-𝑅 ∈ ℝ ∧ 𝑅 ∈ ℝ) → ((int‘(topGen‘ran (,)))‘(-𝑅[,]𝑅)) = (-𝑅(,)𝑅))
350271, 269, 349syl2anc 585 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ+ → ((int‘(topGen‘ran (,)))‘(-𝑅[,]𝑅)) = (-𝑅(,)𝑅))
351327, 328, 346, 348, 347, 350dvmptntr 25240 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ+ → (ℝ D (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))) = (ℝ D (𝑢 ∈ (-𝑅(,)𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))))
352 areacirclem1 36021 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ+ → (ℝ D (𝑢 ∈ (-𝑅(,)𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))) = (𝑢 ∈ (-𝑅(,)𝑅) ↦ (2 · (√‘((𝑅↑2) − (𝑢↑2))))))
353351, 352eqtrd 2777 . . . . . . . . . . . 12 (𝑅 ∈ ℝ+ → (ℝ D (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))) = (𝑢 ∈ (-𝑅(,)𝑅) ↦ (2 · (√‘((𝑅↑2) − (𝑢↑2))))))
354353adantr 482 . . . . . . . . . . 11 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (ℝ D (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))) = (𝑢 ∈ (-𝑅(,)𝑅) ↦ (2 · (√‘((𝑅↑2) − (𝑢↑2))))))
355 oveq1 7348 . . . . . . . . . . . . . . 15 (𝑢 = 𝑡 → (𝑢↑2) = (𝑡↑2))
356355oveq2d 7357 . . . . . . . . . . . . . 14 (𝑢 = 𝑡 → ((𝑅↑2) − (𝑢↑2)) = ((𝑅↑2) − (𝑡↑2)))
357356fveq2d 6833 . . . . . . . . . . . . 13 (𝑢 = 𝑡 → (√‘((𝑅↑2) − (𝑢↑2))) = (√‘((𝑅↑2) − (𝑡↑2))))
358357oveq2d 7357 . . . . . . . . . . . 12 (𝑢 = 𝑡 → (2 · (√‘((𝑅↑2) − (𝑢↑2)))) = (2 · (√‘((𝑅↑2) − (𝑡↑2)))))
359358adantl 483 . . . . . . . . . . 11 (((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) ∧ 𝑢 = 𝑡) → (2 · (√‘((𝑅↑2) − (𝑢↑2)))) = (2 · (√‘((𝑅↑2) − (𝑡↑2)))))
360 simpr 486 . . . . . . . . . . 11 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → 𝑡 ∈ (-𝑅(,)𝑅))
361 ovexd 7376 . . . . . . . . . . 11 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (2 · (√‘((𝑅↑2) − (𝑡↑2)))) ∈ V)
362354, 359, 360, 361fvmptd 6942 . . . . . . . . . 10 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → ((ℝ D (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))))))‘𝑡) = (2 · (√‘((𝑅↑2) − (𝑡↑2)))))
363157, 290sylan2 594 . . . . . . . . . . 11 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℂ)
3643632timesd 12321 . . . . . . . . . 10 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (2 · (√‘((𝑅↑2) − (𝑡↑2)))) = ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))))
365362, 364eqtrd 2777 . . . . . . . . 9 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → ((ℝ D (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))))))‘𝑡) = ((√‘((𝑅↑2) − (𝑡↑2))) + (√‘((𝑅↑2) − (𝑡↑2)))))
366292, 325, 3653eqtr4rd 2788 . . . . . . . 8 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → ((ℝ D (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))))))‘𝑡) = (vol‘(-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2))))))
367284, 366eqtr4d 2780 . . . . . . 7 ((𝑅 ∈ ℝ+𝑡 ∈ (-𝑅(,)𝑅)) → (vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) = ((ℝ D (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))))))‘𝑡))
368367itgeq2dv 25051 . . . . . 6 (𝑅 ∈ ℝ+ → ∫(-𝑅(,)𝑅)(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡 = ∫(-𝑅(,)𝑅)((ℝ D (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))))))‘𝑡) d𝑡)
369269, 269, 300, 300addge0d 11656 . . . . . . . 8 (𝑅 ∈ ℝ+ → 0 ≤ (𝑅 + 𝑅))
370329, 329subnegd 11444 . . . . . . . . . 10 (𝑅 ∈ ℝ+ → (𝑅 − -𝑅) = (𝑅 + 𝑅))
371370breq2d 5108 . . . . . . . . 9 (𝑅 ∈ ℝ+ → (0 ≤ (𝑅 − -𝑅) ↔ 0 ≤ (𝑅 + 𝑅)))
372269, 271subge0d 11670 . . . . . . . . 9 (𝑅 ∈ ℝ+ → (0 ≤ (𝑅 − -𝑅) ↔ -𝑅𝑅))
373371, 372bitr3d 281 . . . . . . . 8 (𝑅 ∈ ℝ+ → (0 ≤ (𝑅 + 𝑅) ↔ -𝑅𝑅))
374369, 373mpbid 231 . . . . . . 7 (𝑅 ∈ ℝ+ → -𝑅𝑅)
375 2cn 12153 . . . . . . . . . . 11 2 ∈ ℂ
376162, 326sstri 3944 . . . . . . . . . . 11 (-𝑅(,)𝑅) ⊆ ℂ
377 ssid 3957 . . . . . . . . . . 11 ℂ ⊆ ℂ
378375, 376, 3773pm3.2i 1339 . . . . . . . . . 10 (2 ∈ ℂ ∧ (-𝑅(,)𝑅) ⊆ ℂ ∧ ℂ ⊆ ℂ)
379 cncfmptc 24180 . . . . . . . . . 10 ((2 ∈ ℂ ∧ (-𝑅(,)𝑅) ⊆ ℂ ∧ ℂ ⊆ ℂ) → (𝑢 ∈ (-𝑅(,)𝑅) ↦ 2) ∈ ((-𝑅(,)𝑅)–cn→ℂ))
380378, 379mp1i 13 . . . . . . . . 9 (𝑅 ∈ ℝ+ → (𝑢 ∈ (-𝑅(,)𝑅) ↦ 2) ∈ ((-𝑅(,)𝑅)–cn→ℂ))
381 ioossicc 13270 . . . . . . . . . . 11 (-𝑅(,)𝑅) ⊆ (-𝑅[,]𝑅)
382 resmpt 5981 . . . . . . . . . . 11 ((-𝑅(,)𝑅) ⊆ (-𝑅[,]𝑅) → ((𝑢 ∈ (-𝑅[,]𝑅) ↦ (√‘((𝑅↑2) − (𝑢↑2)))) ↾ (-𝑅(,)𝑅)) = (𝑢 ∈ (-𝑅(,)𝑅) ↦ (√‘((𝑅↑2) − (𝑢↑2)))))
383381, 382ax-mp 5 . . . . . . . . . 10 ((𝑢 ∈ (-𝑅[,]𝑅) ↦ (√‘((𝑅↑2) − (𝑢↑2)))) ↾ (-𝑅(,)𝑅)) = (𝑢 ∈ (-𝑅(,)𝑅) ↦ (√‘((𝑅↑2) − (𝑢↑2))))
384 areacirclem2 36022 . . . . . . . . . . . 12 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑢 ∈ (-𝑅[,]𝑅) ↦ (√‘((𝑅↑2) − (𝑢↑2)))) ∈ ((-𝑅[,]𝑅)–cn→ℂ))
385269, 300, 384syl2anc 585 . . . . . . . . . . 11 (𝑅 ∈ ℝ+ → (𝑢 ∈ (-𝑅[,]𝑅) ↦ (√‘((𝑅↑2) − (𝑢↑2)))) ∈ ((-𝑅[,]𝑅)–cn→ℂ))
386 rescncf 24165 . . . . . . . . . . 11 ((-𝑅(,)𝑅) ⊆ (-𝑅[,]𝑅) → ((𝑢 ∈ (-𝑅[,]𝑅) ↦ (√‘((𝑅↑2) − (𝑢↑2)))) ∈ ((-𝑅[,]𝑅)–cn→ℂ) → ((𝑢 ∈ (-𝑅[,]𝑅) ↦ (√‘((𝑅↑2) − (𝑢↑2)))) ↾ (-𝑅(,)𝑅)) ∈ ((-𝑅(,)𝑅)–cn→ℂ)))
387381, 385, 386mpsyl 68 . . . . . . . . . 10 (𝑅 ∈ ℝ+ → ((𝑢 ∈ (-𝑅[,]𝑅) ↦ (√‘((𝑅↑2) − (𝑢↑2)))) ↾ (-𝑅(,)𝑅)) ∈ ((-𝑅(,)𝑅)–cn→ℂ))
388383, 387eqeltrrid 2843 . . . . . . . . 9 (𝑅 ∈ ℝ+ → (𝑢 ∈ (-𝑅(,)𝑅) ↦ (√‘((𝑅↑2) − (𝑢↑2)))) ∈ ((-𝑅(,)𝑅)–cn→ℂ))
389380, 388mulcncf 24715 . . . . . . . 8 (𝑅 ∈ ℝ+ → (𝑢 ∈ (-𝑅(,)𝑅) ↦ (2 · (√‘((𝑅↑2) − (𝑢↑2))))) ∈ ((-𝑅(,)𝑅)–cn→ℂ))
390353, 389eqeltrd 2838 . . . . . . 7 (𝑅 ∈ ℝ+ → (ℝ D (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))) ∈ ((-𝑅(,)𝑅)–cn→ℂ))
391381a1i 11 . . . . . . . . . 10 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (-𝑅(,)𝑅) ⊆ (-𝑅[,]𝑅))
392 ioombl 24834 . . . . . . . . . . 11 (-𝑅(,)𝑅) ∈ dom vol
393392a1i 11 . . . . . . . . . 10 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (-𝑅(,)𝑅) ∈ dom vol)
394 ovexd 7376 . . . . . . . . . 10 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑢 ∈ (-𝑅[,]𝑅)) → (2 · (√‘((𝑅↑2) − (𝑢↑2)))) ∈ V)
395 areacirclem3 36023 . . . . . . . . . 10 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑢 ∈ (-𝑅[,]𝑅) ↦ (2 · (√‘((𝑅↑2) − (𝑢↑2))))) ∈ 𝐿1)
396391, 393, 394, 395iblss 25074 . . . . . . . . 9 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (𝑢 ∈ (-𝑅(,)𝑅) ↦ (2 · (√‘((𝑅↑2) − (𝑢↑2))))) ∈ 𝐿1)
397269, 300, 396syl2anc 585 . . . . . . . 8 (𝑅 ∈ ℝ+ → (𝑢 ∈ (-𝑅(,)𝑅) ↦ (2 · (√‘((𝑅↑2) − (𝑢↑2))))) ∈ 𝐿1)
398353, 397eqeltrd 2838 . . . . . . 7 (𝑅 ∈ ℝ+ → (ℝ D (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))) ∈ 𝐿1)
399 areacirclem4 36024 . . . . . . 7 (𝑅 ∈ ℝ+ → (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))))) ∈ ((-𝑅[,]𝑅)–cn→ℂ))
400271, 269, 374, 390, 398, 399ftc2nc 36015 . . . . . 6 (𝑅 ∈ ℝ+ → ∫(-𝑅(,)𝑅)((ℝ D (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))))))‘𝑡) d𝑡 = (((𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))‘𝑅) − ((𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))‘-𝑅)))
401 eqidd 2738 . . . . . . . . . 10 (𝑅 ∈ ℝ+ → (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))))) = (𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))))))
402 fvoveq1 7364 . . . . . . . . . . . . 13 (𝑢 = 𝑅 → (arcsin‘(𝑢 / 𝑅)) = (arcsin‘(𝑅 / 𝑅)))
403 oveq1 7348 . . . . . . . . . . . . . 14 (𝑢 = 𝑅 → (𝑢 / 𝑅) = (𝑅 / 𝑅))
404403oveq1d 7356 . . . . . . . . . . . . . . . 16 (𝑢 = 𝑅 → ((𝑢 / 𝑅)↑2) = ((𝑅 / 𝑅)↑2))
405404oveq2d 7357 . . . . . . . . . . . . . . 15 (𝑢 = 𝑅 → (1 − ((𝑢 / 𝑅)↑2)) = (1 − ((𝑅 / 𝑅)↑2)))
406405fveq2d 6833 . . . . . . . . . . . . . 14 (𝑢 = 𝑅 → (√‘(1 − ((𝑢 / 𝑅)↑2))) = (√‘(1 − ((𝑅 / 𝑅)↑2))))
407403, 406oveq12d 7359 . . . . . . . . . . . . 13 (𝑢 = 𝑅 → ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))) = ((𝑅 / 𝑅) · (√‘(1 − ((𝑅 / 𝑅)↑2)))))
408402, 407oveq12d 7359 . . . . . . . . . . . 12 (𝑢 = 𝑅 → ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))) = ((arcsin‘(𝑅 / 𝑅)) + ((𝑅 / 𝑅) · (√‘(1 − ((𝑅 / 𝑅)↑2))))))
409408oveq2d 7357 . . . . . . . . . . 11 (𝑢 = 𝑅 → ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))) = ((𝑅↑2) · ((arcsin‘(𝑅 / 𝑅)) + ((𝑅 / 𝑅) · (√‘(1 − ((𝑅 / 𝑅)↑2)))))))
410409adantl 483 . . . . . . . . . 10 ((𝑅 ∈ ℝ+𝑢 = 𝑅) → ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))) = ((𝑅↑2) · ((arcsin‘(𝑅 / 𝑅)) + ((𝑅 / 𝑅) · (√‘(1 − ((𝑅 / 𝑅)↑2)))))))
411 ubicc2 13302 . . . . . . . . . . 11 ((-𝑅 ∈ ℝ*𝑅 ∈ ℝ* ∧ -𝑅𝑅) → 𝑅 ∈ (-𝑅[,]𝑅))
412272, 273, 374, 411syl3anc 1371 . . . . . . . . . 10 (𝑅 ∈ ℝ+𝑅 ∈ (-𝑅[,]𝑅))
413 ovexd 7376 . . . . . . . . . 10 (𝑅 ∈ ℝ+ → ((𝑅↑2) · ((arcsin‘(𝑅 / 𝑅)) + ((𝑅 / 𝑅) · (√‘(1 − ((𝑅 / 𝑅)↑2)))))) ∈ V)
414401, 410, 412, 413fvmptd 6942 . . . . . . . . 9 (𝑅 ∈ ℝ+ → ((𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))‘𝑅) = ((𝑅↑2) · ((arcsin‘(𝑅 / 𝑅)) + ((𝑅 / 𝑅) · (√‘(1 − ((𝑅 / 𝑅)↑2)))))))
415329, 335dividd 11854 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ+ → (𝑅 / 𝑅) = 1)
416415fveq2d 6833 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ+ → (arcsin‘(𝑅 / 𝑅)) = (arcsin‘1))
417 asin1 26149 . . . . . . . . . . . . 13 (arcsin‘1) = (π / 2)
418416, 417eqtrdi 2793 . . . . . . . . . . . 12 (𝑅 ∈ ℝ+ → (arcsin‘(𝑅 / 𝑅)) = (π / 2))
419415oveq1d 7356 . . . . . . . . . . . . . . . . . . 19 (𝑅 ∈ ℝ+ → ((𝑅 / 𝑅)↑2) = (1↑2))
420 sq1 14017 . . . . . . . . . . . . . . . . . . 19 (1↑2) = 1
421419, 420eqtrdi 2793 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ ℝ+ → ((𝑅 / 𝑅)↑2) = 1)
422421oveq2d 7357 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ ℝ+ → (1 − ((𝑅 / 𝑅)↑2)) = (1 − 1))
423 1cnd 11075 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ ℝ+ → 1 ∈ ℂ)
424423subidd 11425 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ ℝ+ → (1 − 1) = 0)
425422, 424eqtrd 2777 . . . . . . . . . . . . . . . 16 (𝑅 ∈ ℝ+ → (1 − ((𝑅 / 𝑅)↑2)) = 0)
426425fveq2d 6833 . . . . . . . . . . . . . . 15 (𝑅 ∈ ℝ+ → (√‘(1 − ((𝑅 / 𝑅)↑2))) = (√‘0))
427426, 195eqtrdi 2793 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ+ → (√‘(1 − ((𝑅 / 𝑅)↑2))) = 0)
428427oveq2d 7357 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ+ → ((𝑅 / 𝑅) · (√‘(1 − ((𝑅 / 𝑅)↑2)))) = ((𝑅 / 𝑅) · 0))
429329, 329, 335divcld 11856 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ+ → (𝑅 / 𝑅) ∈ ℂ)
430429mul01d 11279 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ+ → ((𝑅 / 𝑅) · 0) = 0)
431428, 430eqtrd 2777 . . . . . . . . . . . 12 (𝑅 ∈ ℝ+ → ((𝑅 / 𝑅) · (√‘(1 − ((𝑅 / 𝑅)↑2)))) = 0)
432418, 431oveq12d 7359 . . . . . . . . . . 11 (𝑅 ∈ ℝ+ → ((arcsin‘(𝑅 / 𝑅)) + ((𝑅 / 𝑅) · (√‘(1 − ((𝑅 / 𝑅)↑2))))) = ((π / 2) + 0))
433 2ne0 12182 . . . . . . . . . . . . . 14 2 ≠ 0
434251, 375, 433divcli 11822 . . . . . . . . . . . . 13 (π / 2) ∈ ℂ
435434a1i 11 . . . . . . . . . . . 12 (𝑅 ∈ ℝ+ → (π / 2) ∈ ℂ)
436435addid1d 11280 . . . . . . . . . . 11 (𝑅 ∈ ℝ+ → ((π / 2) + 0) = (π / 2))
437432, 436eqtrd 2777 . . . . . . . . . 10 (𝑅 ∈ ℝ+ → ((arcsin‘(𝑅 / 𝑅)) + ((𝑅 / 𝑅) · (√‘(1 − ((𝑅 / 𝑅)↑2))))) = (π / 2))
438437oveq2d 7357 . . . . . . . . 9 (𝑅 ∈ ℝ+ → ((𝑅↑2) · ((arcsin‘(𝑅 / 𝑅)) + ((𝑅 / 𝑅) · (√‘(1 − ((𝑅 / 𝑅)↑2)))))) = ((𝑅↑2) · (π / 2)))
439414, 438eqtrd 2777 . . . . . . . 8 (𝑅 ∈ ℝ+ → ((𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))‘𝑅) = ((𝑅↑2) · (π / 2)))
440 fvoveq1 7364 . . . . . . . . . . . . 13 (𝑢 = -𝑅 → (arcsin‘(𝑢 / 𝑅)) = (arcsin‘(-𝑅 / 𝑅)))
441 oveq1 7348 . . . . . . . . . . . . . 14 (𝑢 = -𝑅 → (𝑢 / 𝑅) = (-𝑅 / 𝑅))
442441oveq1d 7356 . . . . . . . . . . . . . . . 16 (𝑢 = -𝑅 → ((𝑢 / 𝑅)↑2) = ((-𝑅 / 𝑅)↑2))
443442oveq2d 7357 . . . . . . . . . . . . . . 15 (𝑢 = -𝑅 → (1 − ((𝑢 / 𝑅)↑2)) = (1 − ((-𝑅 / 𝑅)↑2)))
444443fveq2d 6833 . . . . . . . . . . . . . 14 (𝑢 = -𝑅 → (√‘(1 − ((𝑢 / 𝑅)↑2))) = (√‘(1 − ((-𝑅 / 𝑅)↑2))))
445441, 444oveq12d 7359 . . . . . . . . . . . . 13 (𝑢 = -𝑅 → ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))) = ((-𝑅 / 𝑅) · (√‘(1 − ((-𝑅 / 𝑅)↑2)))))
446440, 445oveq12d 7359 . . . . . . . . . . . 12 (𝑢 = -𝑅 → ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))) = ((arcsin‘(-𝑅 / 𝑅)) + ((-𝑅 / 𝑅) · (√‘(1 − ((-𝑅 / 𝑅)↑2))))))
447446adantl 483 . . . . . . . . . . 11 ((𝑅 ∈ ℝ+𝑢 = -𝑅) → ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2))))) = ((arcsin‘(-𝑅 / 𝑅)) + ((-𝑅 / 𝑅) · (√‘(1 − ((-𝑅 / 𝑅)↑2))))))
448447oveq2d 7357 . . . . . . . . . 10 ((𝑅 ∈ ℝ+𝑢 = -𝑅) → ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))) = ((𝑅↑2) · ((arcsin‘(-𝑅 / 𝑅)) + ((-𝑅 / 𝑅) · (√‘(1 − ((-𝑅 / 𝑅)↑2)))))))
449 lbicc2 13301 . . . . . . . . . . 11 ((-𝑅 ∈ ℝ*𝑅 ∈ ℝ* ∧ -𝑅𝑅) → -𝑅 ∈ (-𝑅[,]𝑅))
450272, 273, 374, 449syl3anc 1371 . . . . . . . . . 10 (𝑅 ∈ ℝ+ → -𝑅 ∈ (-𝑅[,]𝑅))
451 ovexd 7376 . . . . . . . . . 10 (𝑅 ∈ ℝ+ → ((𝑅↑2) · ((arcsin‘(-𝑅 / 𝑅)) + ((-𝑅 / 𝑅) · (√‘(1 − ((-𝑅 / 𝑅)↑2)))))) ∈ V)
452401, 448, 450, 451fvmptd 6942 . . . . . . . . 9 (𝑅 ∈ ℝ+ → ((𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))‘-𝑅) = ((𝑅↑2) · ((arcsin‘(-𝑅 / 𝑅)) + ((-𝑅 / 𝑅) · (√‘(1 − ((-𝑅 / 𝑅)↑2)))))))
453329, 329, 335divnegd 11869 . . . . . . . . . . . . . . 15 (𝑅 ∈ ℝ+ → -(𝑅 / 𝑅) = (-𝑅 / 𝑅))
454415negeqd 11320 . . . . . . . . . . . . . . 15 (𝑅 ∈ ℝ+ → -(𝑅 / 𝑅) = -1)
455453, 454eqtr3d 2779 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ+ → (-𝑅 / 𝑅) = -1)
456455fveq2d 6833 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ+ → (arcsin‘(-𝑅 / 𝑅)) = (arcsin‘-1))
457 ax-1cn 11034 . . . . . . . . . . . . . . 15 1 ∈ ℂ
458 asinneg 26141 . . . . . . . . . . . . . . 15 (1 ∈ ℂ → (arcsin‘-1) = -(arcsin‘1))
459457, 458ax-mp 5 . . . . . . . . . . . . . 14 (arcsin‘-1) = -(arcsin‘1)
460417negeqi 11319 . . . . . . . . . . . . . 14 -(arcsin‘1) = -(π / 2)
461459, 460eqtri 2765 . . . . . . . . . . . . 13 (arcsin‘-1) = -(π / 2)
462456, 461eqtrdi 2793 . . . . . . . . . . . 12 (𝑅 ∈ ℝ+ → (arcsin‘(-𝑅 / 𝑅)) = -(π / 2))
463455oveq1d 7356 . . . . . . . . . . . . . . . . . . 19 (𝑅 ∈ ℝ+ → ((-𝑅 / 𝑅)↑2) = (-1↑2))
464 neg1sqe1 14018 . . . . . . . . . . . . . . . . . . 19 (-1↑2) = 1
465463, 464eqtrdi 2793 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ ℝ+ → ((-𝑅 / 𝑅)↑2) = 1)
466465oveq2d 7357 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ ℝ+ → (1 − ((-𝑅 / 𝑅)↑2)) = (1 − 1))
467466, 424eqtrd 2777 . . . . . . . . . . . . . . . 16 (𝑅 ∈ ℝ+ → (1 − ((-𝑅 / 𝑅)↑2)) = 0)
468467fveq2d 6833 . . . . . . . . . . . . . . 15 (𝑅 ∈ ℝ+ → (√‘(1 − ((-𝑅 / 𝑅)↑2))) = (√‘0))
469468, 195eqtrdi 2793 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ+ → (√‘(1 − ((-𝑅 / 𝑅)↑2))) = 0)
470469oveq2d 7357 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ+ → ((-𝑅 / 𝑅) · (√‘(1 − ((-𝑅 / 𝑅)↑2)))) = ((-𝑅 / 𝑅) · 0))
471271recnd 11108 . . . . . . . . . . . . . . 15 (𝑅 ∈ ℝ+ → -𝑅 ∈ ℂ)
472471, 329, 335divcld 11856 . . . . . . . . . . . . . 14 (𝑅 ∈ ℝ+ → (-𝑅 / 𝑅) ∈ ℂ)
473472mul01d 11279 . . . . . . . . . . . . 13 (𝑅 ∈ ℝ+ → ((-𝑅 / 𝑅) · 0) = 0)
474470, 473eqtrd 2777 . . . . . . . . . . . 12 (𝑅 ∈ ℝ+ → ((-𝑅 / 𝑅) · (√‘(1 − ((-𝑅 / 𝑅)↑2)))) = 0)
475462, 474oveq12d 7359 . . . . . . . . . . 11 (𝑅 ∈ ℝ+ → ((arcsin‘(-𝑅 / 𝑅)) + ((-𝑅 / 𝑅) · (√‘(1 − ((-𝑅 / 𝑅)↑2))))) = (-(π / 2) + 0))
476434negcli 11394 . . . . . . . . . . . . 13 -(π / 2) ∈ ℂ
477476a1i 11 . . . . . . . . . . . 12 (𝑅 ∈ ℝ+ → -(π / 2) ∈ ℂ)
478477addid1d 11280 . . . . . . . . . . 11 (𝑅 ∈ ℝ+ → (-(π / 2) + 0) = -(π / 2))
479475, 478eqtrd 2777 . . . . . . . . . 10 (𝑅 ∈ ℝ+ → ((arcsin‘(-𝑅 / 𝑅)) + ((-𝑅 / 𝑅) · (√‘(1 − ((-𝑅 / 𝑅)↑2))))) = -(π / 2))
480479oveq2d 7357 . . . . . . . . 9 (𝑅 ∈ ℝ+ → ((𝑅↑2) · ((arcsin‘(-𝑅 / 𝑅)) + ((-𝑅 / 𝑅) · (√‘(1 − ((-𝑅 / 𝑅)↑2)))))) = ((𝑅↑2) · -(π / 2)))
481452, 480eqtrd 2777 . . . . . . . 8 (𝑅 ∈ ℝ+ → ((𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))‘-𝑅) = ((𝑅↑2) · -(π / 2)))
482439, 481oveq12d 7359 . . . . . . 7 (𝑅 ∈ ℝ+ → (((𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))‘𝑅) − ((𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))‘-𝑅)) = (((𝑅↑2) · (π / 2)) − ((𝑅↑2) · -(π / 2))))
483434, 434subnegi 11405 . . . . . . . . . . 11 ((π / 2) − -(π / 2)) = ((π / 2) + (π / 2))
484 pidiv2halves 25729 . . . . . . . . . . 11 ((π / 2) + (π / 2)) = π
485483, 484eqtri 2765 . . . . . . . . . 10 ((π / 2) − -(π / 2)) = π
486485a1i 11 . . . . . . . . 9 (𝑅 ∈ ℝ+ → ((π / 2) − -(π / 2)) = π)
487486oveq2d 7357 . . . . . . . 8 (𝑅 ∈ ℝ+ → ((𝑅↑2) · ((π / 2) − -(π / 2))) = ((𝑅↑2) · π))
488330, 435, 477subdid 11536 . . . . . . . 8 (𝑅 ∈ ℝ+ → ((𝑅↑2) · ((π / 2) − -(π / 2))) = (((𝑅↑2) · (π / 2)) − ((𝑅↑2) · -(π / 2))))
489251a1i 11 . . . . . . . . 9 (𝑅 ∈ ℝ+ → π ∈ ℂ)
490330, 489mulcomd 11101 . . . . . . . 8 (𝑅 ∈ ℝ+ → ((𝑅↑2) · π) = (π · (𝑅↑2)))
491487, 488, 4903eqtr3d 2785 . . . . . . 7 (𝑅 ∈ ℝ+ → (((𝑅↑2) · (π / 2)) − ((𝑅↑2) · -(π / 2))) = (π · (𝑅↑2)))
492482, 491eqtrd 2777 . . . . . 6 (𝑅 ∈ ℝ+ → (((𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))‘𝑅) − ((𝑢 ∈ (-𝑅[,]𝑅) ↦ ((𝑅↑2) · ((arcsin‘(𝑢 / 𝑅)) + ((𝑢 / 𝑅) · (√‘(1 − ((𝑢 / 𝑅)↑2)))))))‘-𝑅)) = (π · (𝑅↑2)))
493368, 400, 4923eqtrd 2781 . . . . 5 (𝑅 ∈ ℝ+ → ∫(-𝑅(,)𝑅)(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡 = (π · (𝑅↑2)))
494266, 493syl 17 . . . 4 (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) ∧ 𝑅 ≠ 0) → ∫(-𝑅(,)𝑅)(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡 = (π · (𝑅↑2)))
495259, 494pm2.61dane 3030 . . 3 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → ∫(-𝑅(,)𝑅)(vol‘if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅)) d𝑡 = (π · (𝑅↑2)))
496161, 238, 4953eqtr3d 2785 . 2 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → ∫ℝ(vol‘(𝑆 “ {𝑡})) d𝑡 = (π · (𝑅↑2)))
497156, 496eqtrd 2777 1 ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅) → (area‘𝑆) = (π · (𝑅↑2)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 397  w3a 1087   = wceq 1541  wcel 2106  wne 2941  wral 3062  Vcvv 3442  cdif 3898  wss 3901  c0 4273  ifcif 4477  {csn 4577   class class class wbr 5096  {copab 5158  cmpt 5179   × cxp 5622  ccnv 5623  dom cdm 5624  ran crn 5625  cres 5626  cima 5627   Fn wfn 6478  wf 6479  cfv 6483  (class class class)co 7341  cc 10974  cr 10975  0cc0 10976  1c1 10977   + caddc 10979   · cmul 10981  +∞cpnf 11111  *cxr 11113   < clt 11114  cle 11115  cmin 11310  -cneg 11311   / cdiv 11737  2c2 12133  +crp 12835  (,)cioo 13184  [,]cicc 13187  cexp 13887  csqrt 15043  abscabs 15044  πcpi 15875  TopOpenctopn 17229  topGenctg 17245  fldccnfld 20702  intcnt 22273  cnccncf 24144  vol*covol 24731  volcvol 24732  𝐿1cibl 24886  citg 24887   D cdv 25132  arcsincasin 26117  areacarea 26210
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2708  ax-rep 5233  ax-sep 5247  ax-nul 5254  ax-pow 5312  ax-pr 5376  ax-un 7654  ax-inf2 9502  ax-cnex 11032  ax-resscn 11033  ax-1cn 11034  ax-icn 11035  ax-addcl 11036  ax-addrcl 11037  ax-mulcl 11038  ax-mulrcl 11039  ax-mulcom 11040  ax-addass 11041  ax-mulass 11042  ax-distr 11043  ax-i2m1 11044  ax-1ne0 11045  ax-1rid 11046  ax-rnegex 11047  ax-rrecex 11048  ax-cnre 11049  ax-pre-lttri 11050  ax-pre-lttrn 11051  ax-pre-ltadd 11052  ax-pre-mulgt0 11053  ax-pre-sup 11054  ax-addf 11055  ax-mulf 11056
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3350  df-reu 3351  df-rab 3405  df-v 3444  df-sbc 3731  df-csb 3847  df-dif 3904  df-un 3906  df-in 3908  df-ss 3918  df-pss 3920  df-symdif 4193  df-nul 4274  df-if 4478  df-pw 4553  df-sn 4578  df-pr 4580  df-tp 4582  df-op 4584  df-uni 4857  df-int 4899  df-iun 4947  df-iin 4948  df-disj 5062  df-br 5097  df-opab 5159  df-mpt 5180  df-tr 5214  df-id 5522  df-eprel 5528  df-po 5536  df-so 5537  df-fr 5579  df-se 5580  df-we 5581  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-pred 6242  df-ord 6309  df-on 6310  df-lim 6311  df-suc 6312  df-iota 6435  df-fun 6485  df-fn 6486  df-f 6487  df-f1 6488  df-fo 6489  df-f1o 6490  df-fv 6491  df-isom 6492  df-riota 7297  df-ov 7344  df-oprab 7345  df-mpo 7346  df-of 7599  df-ofr 7600  df-om 7785  df-1st 7903  df-2nd 7904  df-supp 8052  df-frecs 8171  df-wrecs 8202  df-recs 8276  df-rdg 8315  df-1o 8371  df-2o 8372  df-oadd 8375  df-omul 8376  df-er 8573  df-map 8692  df-pm 8693  df-ixp 8761  df-en 8809  df-dom 8810  df-sdom 8811  df-fin 8812  df-fsupp 9231  df-fi 9272  df-sup 9303  df-inf 9304  df-oi 9371  df-dju 9762  df-card 9800  df-acn 9803  df-pnf 11116  df-mnf 11117  df-xr 11118  df-ltxr 11119  df-le 11120  df-sub 11312  df-neg 11313  df-div 11738  df-nn 12079  df-2 12141  df-3 12142  df-4 12143  df-5 12144  df-6 12145  df-7 12146  df-8 12147  df-9 12148  df-n0 12339  df-z 12425  df-dec 12543  df-uz 12688  df-q 12794  df-rp 12836  df-xneg 12953  df-xadd 12954  df-xmul 12955  df-ioo 13188  df-ioc 13189  df-ico 13190  df-icc 13191  df-fz 13345  df-fzo 13488  df-fl 13617  df-mod 13695  df-seq 13827  df-exp 13888  df-fac 14093  df-bc 14122  df-hash 14150  df-shft 14877  df-cj 14909  df-re 14910  df-im 14911  df-sqrt 15045  df-abs 15046  df-limsup 15279  df-clim 15296  df-rlim 15297  df-sum 15497  df-ef 15876  df-sin 15878  df-cos 15879  df-tan 15880  df-pi 15881  df-struct 16945  df-sets 16962  df-slot 16980  df-ndx 16992  df-base 17010  df-ress 17039  df-plusg 17072  df-mulr 17073  df-starv 17074  df-sca 17075  df-vsca 17076  df-ip 17077  df-tset 17078  df-ple 17079  df-ds 17081  df-unif 17082  df-hom 17083  df-cco 17084  df-rest 17230  df-topn 17231  df-0g 17249  df-gsum 17250  df-topgen 17251  df-pt 17252  df-prds 17255  df-xrs 17310  df-qtop 17315  df-imas 17316  df-xps 17318  df-mre 17392  df-mrc 17393  df-acs 17395  df-mgm 18423  df-sgrp 18472  df-mnd 18483  df-submnd 18528  df-mulg 18797  df-cntz 19019  df-cmn 19483  df-psmet 20694  df-xmet 20695  df-met 20696  df-bl 20697  df-mopn 20698  df-fbas 20699  df-fg 20700  df-cnfld 20703  df-top 22148  df-topon 22165  df-topsp 22187  df-bases 22201  df-cld 22275  df-ntr 22276  df-cls 22277  df-nei 22354  df-lp 22392  df-perf 22393  df-cn 22483  df-cnp 22484  df-haus 22571  df-cmp 22643  df-tx 22818  df-hmeo 23011  df-fil 23102  df-fm 23194  df-flim 23195  df-flf 23196  df-xms 23578  df-ms 23579  df-tms 23580  df-cncf 24146  df-ovol 24733  df-vol 24734  df-mbf 24888  df-itg1 24889  df-itg2 24890  df-ibl 24891  df-itg 24892  df-0p 24939  df-limc 25135  df-dv 25136  df-log 25817  df-cxp 25818  df-asin 26120  df-area 26211
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator