areacirclem5 - Mathbox for Brendan Leahy

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

Theorem areacirclem5 37741

Description: Finding the cross-section of a circle. (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
areacirclem5	⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑆 “ {𝑡}) = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))

Distinct variable groups: 𝑥,𝑦,𝑡,𝑅 𝑡,𝑆 Allowed substitution hints: 𝑆(𝑥,𝑦)

Proof of Theorem areacirclem5 Dummy variable 𝑢 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		areacirc.1	. . . 4 ⊢ 𝑆 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}
2	1	imaeq1i 6049	. . 3 ⊢ (𝑆 “ {𝑡}) = ({⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))} “ {𝑡})
3		vex 3468	. . . 4 ⊢ 𝑡 ∈ V
4		imasng 6076	. . . 4 ⊢ (𝑡 ∈ V → ({⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))} “ {𝑡}) = {𝑢 ∣ 𝑡{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}𝑢})
5	3, 4	ax-mp 5	. . 3 ⊢ ({⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))} “ {𝑡}) = {𝑢 ∣ 𝑡{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}𝑢}
6		df-br 5125	. . . . 5 ⊢ (𝑡{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}𝑢 ↔ ⟨𝑡, 𝑢⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))})
7		vex 3468	. . . . . 6 ⊢ 𝑢 ∈ V
8		eleq1w 2818	. . . . . . . 8 ⊢ (𝑥 = 𝑡 → (𝑥 ∈ ℝ ↔ 𝑡 ∈ ℝ))
9	8	anbi1d 631	. . . . . . 7 ⊢ (𝑥 = 𝑡 → ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ↔ (𝑡 ∈ ℝ ∧ 𝑦 ∈ ℝ)))
10		oveq1 7417	. . . . . . . . 9 ⊢ (𝑥 = 𝑡 → (𝑥↑2) = (𝑡↑2))
11	10	oveq1d 7425	. . . . . . . 8 ⊢ (𝑥 = 𝑡 → ((𝑥↑2) + (𝑦↑2)) = ((𝑡↑2) + (𝑦↑2)))
12	11	breq1d 5134	. . . . . . 7 ⊢ (𝑥 = 𝑡 → (((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2) ↔ ((𝑡↑2) + (𝑦↑2)) ≤ (𝑅↑2)))
13	9, 12	anbi12d 632	. . . . . 6 ⊢ (𝑥 = 𝑡 → (((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2)) ↔ ((𝑡 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑡↑2) + (𝑦↑2)) ≤ (𝑅↑2))))
14		eleq1w 2818	. . . . . . . 8 ⊢ (𝑦 = 𝑢 → (𝑦 ∈ ℝ ↔ 𝑢 ∈ ℝ))
15	14	anbi2d 630	. . . . . . 7 ⊢ (𝑦 = 𝑢 → ((𝑡 ∈ ℝ ∧ 𝑦 ∈ ℝ) ↔ (𝑡 ∈ ℝ ∧ 𝑢 ∈ ℝ)))
16		oveq1 7417	. . . . . . . . 9 ⊢ (𝑦 = 𝑢 → (𝑦↑2) = (𝑢↑2))
17	16	oveq2d 7426	. . . . . . . 8 ⊢ (𝑦 = 𝑢 → ((𝑡↑2) + (𝑦↑2)) = ((𝑡↑2) + (𝑢↑2)))
18	17	breq1d 5134	. . . . . . 7 ⊢ (𝑦 = 𝑢 → (((𝑡↑2) + (𝑦↑2)) ≤ (𝑅↑2) ↔ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))
19	15, 18	anbi12d 632	. . . . . 6 ⊢ (𝑦 = 𝑢 → (((𝑡 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑡↑2) + (𝑦↑2)) ≤ (𝑅↑2)) ↔ ((𝑡 ∈ ℝ ∧ 𝑢 ∈ ℝ) ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))))
20	3, 7, 13, 19	opelopab 5522	. . . . 5 ⊢ (⟨𝑡, 𝑢⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))} ↔ ((𝑡 ∈ ℝ ∧ 𝑢 ∈ ℝ) ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))
21		anass 468	. . . . 5 ⊢ (((𝑡 ∈ ℝ ∧ 𝑢 ∈ ℝ) ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)) ↔ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))))
22	6, 20, 21	3bitri 297	. . . 4 ⊢ (𝑡{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}𝑢 ↔ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))))
23	22	abbii 2803	. . 3 ⊢ {𝑢 ∣ 𝑡{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}𝑢} = {𝑢 ∣ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))}
24	2, 5, 23	3eqtri 2763	. 2 ⊢ (𝑆 “ {𝑡}) = {𝑢 ∣ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))}
25		simp3 1138	. . . . 5 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → 𝑡 ∈ ℝ)
26	25	biantrurd 532	. . . 4 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)) ↔ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))))
27	26	abbidv 2802	. . 3 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = {𝑢 ∣ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))})
28		resqcl 14147	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ ℝ → (𝑅↑2) ∈ ℝ)
29	28	3ad2ant1 1133	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑅↑2) ∈ ℝ)
30		resqcl 14147	. . . . . . . . . . . 12 ⊢ (𝑡 ∈ ℝ → (𝑡↑2) ∈ ℝ)
31	30	3ad2ant3 1135	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑡↑2) ∈ ℝ)
32	29, 31	resubcld 11670	. . . . . . . . . 10 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((𝑅↑2) − (𝑡↑2)) ∈ ℝ)
33	32	adantr 480	. . . . . . . . 9 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑅↑2) − (𝑡↑2)) ∈ ℝ)
34		absresq 15326	. . . . . . . . . . . . 13 ⊢ (𝑡 ∈ ℝ → ((abs‘𝑡)↑2) = (𝑡↑2))
35	34	3ad2ant3 1135	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((abs‘𝑡)↑2) = (𝑡↑2))
36	35	breq1d 5134	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (((abs‘𝑡)↑2) ≤ (𝑅↑2) ↔ (𝑡↑2) ≤ (𝑅↑2)))
37		recn 11224	. . . . . . . . . . . . . 14 ⊢ (𝑡 ∈ ℝ → 𝑡 ∈ ℂ)
38	37	abscld 15460	. . . . . . . . . . . . 13 ⊢ (𝑡 ∈ ℝ → (abs‘𝑡) ∈ ℝ)
39	38	3ad2ant3 1135	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (abs‘𝑡) ∈ ℝ)
40		simp1 1136	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → 𝑅 ∈ ℝ)
41	37	absge0d 15468	. . . . . . . . . . . . 13 ⊢ (𝑡 ∈ ℝ → 0 ≤ (abs‘𝑡))
42	41	3ad2ant3 1135	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → 0 ≤ (abs‘𝑡))
43		simp2 1137	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → 0 ≤ 𝑅)
44	39, 40, 42, 43	le2sqd 14280	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((abs‘𝑡) ≤ 𝑅 ↔ ((abs‘𝑡)↑2) ≤ (𝑅↑2)))
45	29, 31	subge0d 11832	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (0 ≤ ((𝑅↑2) − (𝑡↑2)) ↔ (𝑡↑2) ≤ (𝑅↑2)))
46	36, 44, 45	3bitr4d 311	. . . . . . . . . 10 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((abs‘𝑡) ≤ 𝑅 ↔ 0 ≤ ((𝑅↑2) − (𝑡↑2))))
47	46	biimpa 476	. . . . . . . . 9 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → 0 ≤ ((𝑅↑2) − (𝑡↑2)))
48	33, 47	resqrtcld 15441	. . . . . . . 8 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
49	48	renegcld 11669	. . . . . . 7 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → -(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
50	49	rexrd 11290	. . . . . 6 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → -(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ^*)
51	48	rexrd 11290	. . . . . 6 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ^*)
52		iccval 13406	. . . . . 6 ⊢ ((-(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ^* ∧ (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ^) → (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) = {𝑢 ∈ ℝ^ ∣ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))})
53	50, 51, 52	syl2anc 584	. . . . 5 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) = {𝑢 ∈ ℝ^* ∣ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))})
54		iftrue 4511	. . . . . 6 ⊢ ((abs‘𝑡) ≤ 𝑅 → if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅) = (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))))
55	54	adantl 481	. . . . 5 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅) = (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))))
56		absresq 15326	. . . . . . . . . . . 12 ⊢ (𝑢 ∈ ℝ → ((abs‘𝑢)↑2) = (𝑢↑2))
57	32	recnd 11268	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((𝑅↑2) − (𝑡↑2)) ∈ ℂ)
58	57	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑅↑2) − (𝑡↑2)) ∈ ℂ)
59	58	sqsqrtd 15463	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((√‘((𝑅↑2) − (𝑡↑2)))↑2) = ((𝑅↑2) − (𝑡↑2)))
60	56, 59	breqan12rd 5141	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (((abs‘𝑢)↑2) ≤ ((√‘((𝑅↑2) − (𝑡↑2)))↑2) ↔ (𝑢↑2) ≤ ((𝑅↑2) − (𝑡↑2))))
61		recn 11224	. . . . . . . . . . . . . 14 ⊢ (𝑢 ∈ ℝ → 𝑢 ∈ ℂ)
62	61	abscld 15460	. . . . . . . . . . . . 13 ⊢ (𝑢 ∈ ℝ → (abs‘𝑢) ∈ ℝ)
63	62	adantl 481	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (abs‘𝑢) ∈ ℝ)
64	48	adantr 480	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
65	61	absge0d 15468	. . . . . . . . . . . . 13 ⊢ (𝑢 ∈ ℝ → 0 ≤ (abs‘𝑢))
66	65	adantl 481	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → 0 ≤ (abs‘𝑢))
67	33, 47	sqrtge0d 15444	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → 0 ≤ (√‘((𝑅↑2) − (𝑡↑2))))
68	67	adantr 480	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → 0 ≤ (√‘((𝑅↑2) − (𝑡↑2))))
69	63, 64, 66, 68	le2sqd 14280	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → ((abs‘𝑢) ≤ (√‘((𝑅↑2) − (𝑡↑2))) ↔ ((abs‘𝑢)↑2) ≤ ((√‘((𝑅↑2) − (𝑡↑2)))↑2)))
70	31	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑢 ∈ ℝ) → (𝑡↑2) ∈ ℝ)
71		resqcl 14147	. . . . . . . . . . . . . 14 ⊢ (𝑢 ∈ ℝ → (𝑢↑2) ∈ ℝ)
72	71	adantl 481	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑢 ∈ ℝ) → (𝑢↑2) ∈ ℝ)
73	29	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑢 ∈ ℝ) → (𝑅↑2) ∈ ℝ)
74	70, 72, 73	leaddsub2d 11844	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑢 ∈ ℝ) → (((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2) ↔ (𝑢↑2) ≤ ((𝑅↑2) − (𝑡↑2))))
75	74	adantlr 715	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2) ↔ (𝑢↑2) ≤ ((𝑅↑2) − (𝑡↑2))))
76	60, 69, 75	3bitr4rd 312	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2) ↔ (abs‘𝑢) ≤ (√‘((𝑅↑2) − (𝑡↑2)))))
77		simpr 484	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → 𝑢 ∈ ℝ)
78	77, 64	absled 15454	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → ((abs‘𝑢) ≤ (√‘((𝑅↑2) − (𝑡↑2))) ↔ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))))
79		rexr 11286	. . . . . . . . . . . 12 ⊢ (𝑢 ∈ ℝ → 𝑢 ∈ ℝ^*)
80	79	adantl 481	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → 𝑢 ∈ ℝ^*)
81	80	biantrurd 532	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → ((-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))) ↔ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))))
82	76, 78, 81	3bitrd 305	. . . . . . . . 9 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2) ↔ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))))
83	82	pm5.32da 579	. . . . . . . 8 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)) ↔ (𝑢 ∈ ℝ ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))))))
84		simprl 770	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → 𝑢 ∈ ℝ^*)
85	48	adantr 480	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
86		mnfxr 11297	. . . . . . . . . . . . 13 ⊢ -∞ ∈ ℝ^*
87	86	a1i 11	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -∞ ∈ ℝ^*)
88	49	adantr 480	. . . . . . . . . . . . 13 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
89	88	rexrd 11290	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ^*)
90	49	mnfltd 13145	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → -∞ < -(√‘((𝑅↑2) − (𝑡↑2))))
91	90	adantr 480	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -∞ < -(√‘((𝑅↑2) − (𝑡↑2))))
92		simprrl 780	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢)
93	87, 89, 84, 91, 92	xrltletrd 13182	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -∞ < 𝑢)
94		simprrr 781	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))
95		xrre 13190	. . . . . . . . . . 11 ⊢ (((𝑢 ∈ ℝ^* ∧ (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ) ∧ (-∞ < 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))) → 𝑢 ∈ ℝ)
96	84, 85, 93, 94, 95	syl22anc 838	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → 𝑢 ∈ ℝ)
97	96	ex 412	. . . . . . . . 9 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))) → 𝑢 ∈ ℝ))
98	97	pm4.71rd 562	. . . . . . . 8 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))) ↔ (𝑢 ∈ ℝ ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))))))
99	83, 98	bitr4d 282	. . . . . . 7 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)) ↔ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))))
100	99	abbidv 2802	. . . . . 6 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = {𝑢 ∣ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))})
101		df-rab 3421	. . . . . 6 ⊢ {𝑢 ∈ ℝ^* ∣ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))} = {𝑢 ∣ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))}
102	100, 101	eqtr4di 2789	. . . . 5 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = {𝑢 ∈ ℝ^* ∣ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))})
103	53, 55, 102	3eqtr4rd 2782	. . . 4 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
104	40, 39	ltnled 11387	. . . . . . . 8 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑅 < (abs‘𝑡) ↔ ¬ (abs‘𝑡) ≤ 𝑅))
105	104	biimprd 248	. . . . . . 7 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (¬ (abs‘𝑡) ≤ 𝑅 → 𝑅 < (abs‘𝑡)))
106	105	imdistani 568	. . . . . 6 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ ¬ (abs‘𝑡) ≤ 𝑅) → ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)))
107		df-rab 3421	. . . . . . 7 ⊢ {𝑢 ∈ ℝ ∣ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)} = {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))}
108	29	3ad2ant1 1133	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑅↑2) ∈ ℝ)
109	31	3ad2ant1 1133	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑡↑2) ∈ ℝ)
110	71	3ad2ant3 1135	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑢↑2) ∈ ℝ)
111	109, 110	readdcld 11269	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → ((𝑡↑2) + (𝑢↑2)) ∈ ℝ)
112	40, 39, 43, 42	lt2sqd 14279	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑅 < (abs‘𝑡) ↔ (𝑅↑2) < ((abs‘𝑡)↑2)))
113	35	breq2d 5136	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((𝑅↑2) < ((abs‘𝑡)↑2) ↔ (𝑅↑2) < (𝑡↑2)))
114	112, 113	bitrd 279	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑅 < (abs‘𝑡) ↔ (𝑅↑2) < (𝑡↑2)))
115	114	biimpa 476	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)) → (𝑅↑2) < (𝑡↑2))
116	115	3adant3 1132	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑅↑2) < (𝑡↑2))
117		sqge0 14159	. . . . . . . . . . . . . 14 ⊢ (𝑢 ∈ ℝ → 0 ≤ (𝑢↑2))
118	117	3ad2ant3 1135	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → 0 ≤ (𝑢↑2))
119	109, 110	addge01d 11830	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (0 ≤ (𝑢↑2) ↔ (𝑡↑2) ≤ ((𝑡↑2) + (𝑢↑2))))
120	118, 119	mpbid 232	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑡↑2) ≤ ((𝑡↑2) + (𝑢↑2)))
121	108, 109, 111, 116, 120	ltletrd 11400	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑅↑2) < ((𝑡↑2) + (𝑢↑2)))
122	108, 111	ltnled 11387	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → ((𝑅↑2) < ((𝑡↑2) + (𝑢↑2)) ↔ ¬ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))
123	121, 122	mpbid 232	. . . . . . . . . 10 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → ¬ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))
124	123	3expa 1118	. . . . . . . . 9 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)) ∧ 𝑢 ∈ ℝ) → ¬ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))
125	124	ralrimiva 3133	. . . . . . . 8 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)) → ∀𝑢 ∈ ℝ ¬ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))
126		rabeq0 4368	. . . . . . . 8 ⊢ ({𝑢 ∈ ℝ ∣ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)} = ∅ ↔ ∀𝑢 ∈ ℝ ¬ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))
127	125, 126	sylibr 234	. . . . . . 7 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)) → {𝑢 ∈ ℝ ∣ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)} = ∅)
128	107, 127	eqtr3id 2785	. . . . . 6 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = ∅)
129	106, 128	syl 17	. . . . 5 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ ¬ (abs‘𝑡) ≤ 𝑅) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = ∅)
130		iffalse 4514	. . . . . 6 ⊢ (¬ (abs‘𝑡) ≤ 𝑅 → if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅) = ∅)
131	130	adantl 481	. . . . 5 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ ¬ (abs‘𝑡) ≤ 𝑅) → if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅) = ∅)
132	129, 131	eqtr4d 2774	. . . 4 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ ¬ (abs‘𝑡) ≤ 𝑅) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
133	103, 132	pm2.61dan 812	. . 3 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
134	27, 133	eqtr3d 2773	. 2 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → {𝑢 ∣ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))} = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
135	24, 134	eqtrid 2783	1 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑆 “ {𝑡}) = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2109 {cab 2714 ∀wral 3052 {crab 3420 Vcvv 3464 ∅c0 4313 ifcif 4505 {csn 4606 ⟨cop 4612 class class class wbr 5124 {copab 5186 “ cima 5662 ‘cfv 6536 (class class class)co 7410 ℂcc 11132 ℝcr 11133 0cc0 11134 + caddc 11137 -∞cmnf 11272 ℝ^*cxr 11273 < clt 11274 ≤ cle 11275 − cmin 11471 -cneg 11472 2c2 12300 [,]cicc 13370 ↑cexp 14084 √csqrt 15257 abscabs 15258

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 2708 ax-sep 5271 ax-nul 5281 ax-pow 5340 ax-pr 5407 ax-un 7734 ax-cnex 11190 ax-resscn 11191 ax-1cn 11192 ax-icn 11193 ax-addcl 11194 ax-addrcl 11195 ax-mulcl 11196 ax-mulrcl 11197 ax-mulcom 11198 ax-addass 11199 ax-mulass 11200 ax-distr 11201 ax-i2m1 11202 ax-1ne0 11203 ax-1rid 11204 ax-rnegex 11205 ax-rrecex 11206 ax-cnre 11207 ax-pre-lttri 11208 ax-pre-lttrn 11209 ax-pre-ltadd 11210 ax-pre-mulgt0 11211 ax-pre-sup 11212

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 2540 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2810 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3062 df-rmo 3364 df-reu 3365 df-rab 3421 df-v 3466 df-sbc 3771 df-csb 3880 df-dif 3934 df-un 3936 df-in 3938 df-ss 3948 df-pss 3951 df-nul 4314 df-if 4506 df-pw 4582 df-sn 4607 df-pr 4609 df-op 4613 df-uni 4889 df-iun 4974 df-br 5125 df-opab 5187 df-mpt 5207 df-tr 5235 df-id 5553 df-eprel 5558 df-po 5566 df-so 5567 df-fr 5611 df-we 5613 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 df-pred 6295 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6489 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-om 7867 df-2nd 7994 df-frecs 8285 df-wrecs 8316 df-recs 8390 df-rdg 8429 df-er 8724 df-en 8965 df-dom 8966 df-sdom 8967 df-sup 9459 df-pnf 11276 df-mnf 11277 df-xr 11278 df-ltxr 11279 df-le 11280 df-sub 11473 df-neg 11474 df-div 11900 df-nn 12246 df-2 12308 df-3 12309 df-n0 12507 df-z 12594 df-uz 12858 df-rp 13014 df-icc 13374 df-seq 14025 df-exp 14085 df-cj 15123 df-re 15124 df-im 15125 df-sqrt 15259 df-abs 15260

This theorem is referenced by: areacirc 37742

W3C validator