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 38363

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 6059	. . 3 ⊢ (𝑆 “ {𝑡}) = ({⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))} “ {𝑡})
3		vex 3459	. . . 4 ⊢ 𝑡 ∈ V
4		imasng 6086	. . . 4 ⊢ (𝑡 ∈ V → ({⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))} “ {𝑡}) = {𝑢 ∣ 𝑡{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}𝑢})
5	3, 4	ax-mp 5	. . 3 ⊢ ({⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))} “ {𝑡}) = {𝑢 ∣ 𝑡{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}𝑢}
6		df-br 5110	. . . . 5 ⊢ (𝑡{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}𝑢 ↔ ⟨𝑡, 𝑢⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))})
7		vex 3459	. . . . . 6 ⊢ 𝑢 ∈ V
8		eleq1w 2846	. . . . . . . 8 ⊢ (𝑥 = 𝑡 → (𝑥 ∈ ℝ ↔ 𝑡 ∈ ℝ))
9	8	anbi1d 642	. . . . . . 7 ⊢ (𝑥 = 𝑡 → ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ↔ (𝑡 ∈ ℝ ∧ 𝑦 ∈ ℝ)))
10		oveq1 7417	. . . . . . . . 9 ⊢ (𝑥 = 𝑡 → (𝑥↑2) = (𝑡↑2))
11	10	oveq1d 7425	. . . . . . . 8 ⊢ (𝑥 = 𝑡 → ((𝑥↑2) + (𝑦↑2)) = ((𝑡↑2) + (𝑦↑2)))
12	11	breq1d 5119	. . . . . . 7 ⊢ (𝑥 = 𝑡 → (((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2) ↔ ((𝑡↑2) + (𝑦↑2)) ≤ (𝑅↑2)))
13	9, 12	anbi12d 643	. . . . . 6 ⊢ (𝑥 = 𝑡 → (((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2)) ↔ ((𝑡 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑡↑2) + (𝑦↑2)) ≤ (𝑅↑2))))
14		eleq1w 2846	. . . . . . . 8 ⊢ (𝑦 = 𝑢 → (𝑦 ∈ ℝ ↔ 𝑢 ∈ ℝ))
15	14	anbi2d 641	. . . . . . 7 ⊢ (𝑦 = 𝑢 → ((𝑡 ∈ ℝ ∧ 𝑦 ∈ ℝ) ↔ (𝑡 ∈ ℝ ∧ 𝑢 ∈ ℝ)))
16		oveq1 7417	. . . . . . . . 9 ⊢ (𝑦 = 𝑢 → (𝑦↑2) = (𝑢↑2))
17	16	oveq2d 7426	. . . . . . . 8 ⊢ (𝑦 = 𝑢 → ((𝑡↑2) + (𝑦↑2)) = ((𝑡↑2) + (𝑢↑2)))
18	17	breq1d 5119	. . . . . . 7 ⊢ (𝑦 = 𝑢 → (((𝑡↑2) + (𝑦↑2)) ≤ (𝑅↑2) ↔ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))
19	15, 18	anbi12d 643	. . . . . 6 ⊢ (𝑦 = 𝑢 → (((𝑡 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑡↑2) + (𝑦↑2)) ≤ (𝑅↑2)) ↔ ((𝑡 ∈ ℝ ∧ 𝑢 ∈ ℝ) ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))))
20	3, 7, 13, 19	opelopab 5527	. . . . 5 ⊢ (⟨𝑡, 𝑢⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))} ↔ ((𝑡 ∈ ℝ ∧ 𝑢 ∈ ℝ) ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))
21		anass 473	. . . . 5 ⊢ (((𝑡 ∈ ℝ ∧ 𝑢 ∈ ℝ) ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)) ↔ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))))
22	6, 20, 21	3bitri 300	. . . 4 ⊢ (𝑡{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}𝑢 ↔ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))))
23	22	abbii 2830	. . 3 ⊢ {𝑢 ∣ 𝑡{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ ((𝑥↑2) + (𝑦↑2)) ≤ (𝑅↑2))}𝑢} = {𝑢 ∣ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))}
24	2, 5, 23	3eqtri 2790	. 2 ⊢ (𝑆 “ {𝑡}) = {𝑢 ∣ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))}
25		simp3 1156	. . . . 5 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → 𝑡 ∈ ℝ)
26	25	biantrurd 541	. . . 4 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)) ↔ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))))
27	26	abbidv 2829	. . 3 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = {𝑢 ∣ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))})
28		resqcl 14156	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ ℝ → (𝑅↑2) ∈ ℝ)
29	28	3ad2ant1 1151	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑅↑2) ∈ ℝ)
30		resqcl 14156	. . . . . . . . . . . 12 ⊢ (𝑡 ∈ ℝ → (𝑡↑2) ∈ ℝ)
31	30	3ad2ant3 1153	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑡↑2) ∈ ℝ)
32	29, 31	resubcld 11637	. . . . . . . . . 10 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((𝑅↑2) − (𝑡↑2)) ∈ ℝ)
33	32	adantr 485	. . . . . . . . 9 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑅↑2) − (𝑡↑2)) ∈ ℝ)
34		absresq 15349	. . . . . . . . . . . . 13 ⊢ (𝑡 ∈ ℝ → ((abs‘𝑡)↑2) = (𝑡↑2))
35	34	3ad2ant3 1153	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((abs‘𝑡)↑2) = (𝑡↑2))
36	35	breq1d 5119	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (((abs‘𝑡)↑2) ≤ (𝑅↑2) ↔ (𝑡↑2) ≤ (𝑅↑2)))
37		recn 11185	. . . . . . . . . . . . . 14 ⊢ (𝑡 ∈ ℝ → 𝑡 ∈ ℂ)
38	37	abscld 15486	. . . . . . . . . . . . 13 ⊢ (𝑡 ∈ ℝ → (abs‘𝑡) ∈ ℝ)
39	38	3ad2ant3 1153	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (abs‘𝑡) ∈ ℝ)
40		simp1 1154	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → 𝑅 ∈ ℝ)
41	37	absge0d 15494	. . . . . . . . . . . . 13 ⊢ (𝑡 ∈ ℝ → 0 ≤ (abs‘𝑡))
42	41	3ad2ant3 1153	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → 0 ≤ (abs‘𝑡))
43		simp2 1155	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → 0 ≤ 𝑅)
44	39, 40, 42, 43	le2sqd 14289	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((abs‘𝑡) ≤ 𝑅 ↔ ((abs‘𝑡)↑2) ≤ (𝑅↑2)))
45	29, 31	subge0d 11799	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (0 ≤ ((𝑅↑2) − (𝑡↑2)) ↔ (𝑡↑2) ≤ (𝑅↑2)))
46	36, 44, 45	3bitr4d 314	. . . . . . . . . 10 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((abs‘𝑡) ≤ 𝑅 ↔ 0 ≤ ((𝑅↑2) − (𝑡↑2))))
47	46	biimpa 481	. . . . . . . . 9 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → 0 ≤ ((𝑅↑2) − (𝑡↑2)))
48	33, 47	resqrtcld 15465	. . . . . . . 8 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
49	48	renegcld 11636	. . . . . . 7 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → -(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
50	49	rexrd 11254	. . . . . 6 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → -(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ^*)
51	48	rexrd 11254	. . . . . 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 595	. . . . 5 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))) = {𝑢 ∈ ℝ^* ∣ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))})
54		iftrue 4493	. . . . . 6 ⊢ ((abs‘𝑡) ≤ 𝑅 → if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅) = (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))))
55	54	adantl 486	. . . . 5 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅) = (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))))
56		absresq 15349	. . . . . . . . . . . 12 ⊢ (𝑢 ∈ ℝ → ((abs‘𝑢)↑2) = (𝑢↑2))
57	32	recnd 11232	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((𝑅↑2) − (𝑡↑2)) ∈ ℂ)
58	57	adantr 485	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑅↑2) − (𝑡↑2)) ∈ ℂ)
59	58	sqsqrtd 15489	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((√‘((𝑅↑2) − (𝑡↑2)))↑2) = ((𝑅↑2) − (𝑡↑2)))
60	56, 59	breqan12rd 5126	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (((abs‘𝑢)↑2) ≤ ((√‘((𝑅↑2) − (𝑡↑2)))↑2) ↔ (𝑢↑2) ≤ ((𝑅↑2) − (𝑡↑2))))
61		recn 11185	. . . . . . . . . . . . . 14 ⊢ (𝑢 ∈ ℝ → 𝑢 ∈ ℂ)
62	61	abscld 15486	. . . . . . . . . . . . 13 ⊢ (𝑢 ∈ ℝ → (abs‘𝑢) ∈ ℝ)
63	62	adantl 486	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (abs‘𝑢) ∈ ℝ)
64	48	adantr 485	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
65	61	absge0d 15494	. . . . . . . . . . . . 13 ⊢ (𝑢 ∈ ℝ → 0 ≤ (abs‘𝑢))
66	65	adantl 486	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → 0 ≤ (abs‘𝑢))
67	33, 47	sqrtge0d 15468	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → 0 ≤ (√‘((𝑅↑2) − (𝑡↑2))))
68	67	adantr 485	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → 0 ≤ (√‘((𝑅↑2) − (𝑡↑2))))
69	63, 64, 66, 68	le2sqd 14289	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → ((abs‘𝑢) ≤ (√‘((𝑅↑2) − (𝑡↑2))) ↔ ((abs‘𝑢)↑2) ≤ ((√‘((𝑅↑2) − (𝑡↑2)))↑2)))
70	31	adantr 485	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑢 ∈ ℝ) → (𝑡↑2) ∈ ℝ)
71		resqcl 14156	. . . . . . . . . . . . . 14 ⊢ (𝑢 ∈ ℝ → (𝑢↑2) ∈ ℝ)
72	71	adantl 486	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑢 ∈ ℝ) → (𝑢↑2) ∈ ℝ)
73	29	adantr 485	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑢 ∈ ℝ) → (𝑅↑2) ∈ ℝ)
74	70, 72, 73	leaddsub2d 11811	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑢 ∈ ℝ) → (((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2) ↔ (𝑢↑2) ≤ ((𝑅↑2) − (𝑡↑2))))
75	74	adantlr 727	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2) ↔ (𝑢↑2) ≤ ((𝑅↑2) − (𝑡↑2))))
76	60, 69, 75	3bitr4rd 315	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2) ↔ (abs‘𝑢) ≤ (√‘((𝑅↑2) − (𝑡↑2)))))
77		simpr 489	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → 𝑢 ∈ ℝ)
78	77, 64	absled 15480	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → ((abs‘𝑢) ≤ (√‘((𝑅↑2) − (𝑡↑2))) ↔ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))))
79		rexr 11250	. . . . . . . . . . . 12 ⊢ (𝑢 ∈ ℝ → 𝑢 ∈ ℝ^*)
80	79	adantl 486	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → 𝑢 ∈ ℝ^*)
81	80	biantrurd 541	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → ((-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))) ↔ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))))
82	76, 78, 81	3bitrd 308	. . . . . . . . 9 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ 𝑢 ∈ ℝ) → (((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2) ↔ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))))
83	82	pm5.32da 589	. . . . . . . 8 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)) ↔ (𝑢 ∈ ℝ ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))))))
84		simprl 782	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → 𝑢 ∈ ℝ^*)
85	48	adantr 485	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
86		mnfxr 11261	. . . . . . . . . . . . 13 ⊢ -∞ ∈ ℝ^*
87	86	a1i 11	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -∞ ∈ ℝ^*)
88	49	adantr 485	. . . . . . . . . . . . 13 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ)
89	88	rexrd 11254	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -(√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ^*)
90	49	mnfltd 13144	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → -∞ < -(√‘((𝑅↑2) − (𝑡↑2))))
91	90	adantr 485	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -∞ < -(√‘((𝑅↑2) − (𝑡↑2))))
92		simprrl 792	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢)
93	87, 89, 84, 91, 92	xrltletrd 13181	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → -∞ < 𝑢)
94		simprrr 793	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))
95		xrre 13190	. . . . . . . . . . 11 ⊢ (((𝑢 ∈ ℝ^* ∧ (√‘((𝑅↑2) − (𝑡↑2))) ∈ ℝ) ∧ (-∞ < 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))) → 𝑢 ∈ ℝ)
96	84, 85, 93, 94, 95	syl22anc 851	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))) → 𝑢 ∈ ℝ)
97	96	ex 417	. . . . . . . . 9 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))) → 𝑢 ∈ ℝ))
98	97	pm4.71rd 571	. . . . . . . 8 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))) ↔ (𝑢 ∈ ℝ ∧ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))))))
99	83, 98	bitr4d 285	. . . . . . 7 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → ((𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)) ↔ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))))
100	99	abbidv 2829	. . . . . 6 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = {𝑢 ∣ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))})
101		df-rab 3417	. . . . . 6 ⊢ {𝑢 ∈ ℝ^* ∣ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))} = {𝑢 ∣ (𝑢 ∈ ℝ^* ∧ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2)))))}
102	100, 101	eqtr4di 2816	. . . . 5 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = {𝑢 ∈ ℝ^* ∣ (-(√‘((𝑅↑2) − (𝑡↑2))) ≤ 𝑢 ∧ 𝑢 ≤ (√‘((𝑅↑2) − (𝑡↑2))))})
103	53, 55, 102	3eqtr4rd 2809	. . . 4 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ (abs‘𝑡) ≤ 𝑅) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
104	40, 39	ltnled 11352	. . . . . . . 8 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑅 < (abs‘𝑡) ↔ ¬ (abs‘𝑡) ≤ 𝑅))
105	104	biimprd 251	. . . . . . 7 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (¬ (abs‘𝑡) ≤ 𝑅 → 𝑅 < (abs‘𝑡)))
106	105	imdistani 578	. . . . . 6 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ ¬ (abs‘𝑡) ≤ 𝑅) → ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)))
107		df-rab 3417	. . . . . . 7 ⊢ {𝑢 ∈ ℝ ∣ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)} = {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))}
108	29	3ad2ant1 1151	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑅↑2) ∈ ℝ)
109	31	3ad2ant1 1151	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑡↑2) ∈ ℝ)
110	71	3ad2ant3 1153	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑢↑2) ∈ ℝ)
111	109, 110	readdcld 11233	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → ((𝑡↑2) + (𝑢↑2)) ∈ ℝ)
112	40, 39, 43, 42	lt2sqd 14288	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑅 < (abs‘𝑡) ↔ (𝑅↑2) < ((abs‘𝑡)↑2)))
113	35	breq2d 5121	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → ((𝑅↑2) < ((abs‘𝑡)↑2) ↔ (𝑅↑2) < (𝑡↑2)))
114	112, 113	bitrd 282	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑅 < (abs‘𝑡) ↔ (𝑅↑2) < (𝑡↑2)))
115	114	biimpa 481	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)) → (𝑅↑2) < (𝑡↑2))
116	115	3adant3 1150	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑅↑2) < (𝑡↑2))
117		sqge0 14168	. . . . . . . . . . . . . 14 ⊢ (𝑢 ∈ ℝ → 0 ≤ (𝑢↑2))
118	117	3ad2ant3 1153	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → 0 ≤ (𝑢↑2))
119	109, 110	addge01d 11797	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (0 ≤ (𝑢↑2) ↔ (𝑡↑2) ≤ ((𝑡↑2) + (𝑢↑2))))
120	118, 119	mpbid 235	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑡↑2) ≤ ((𝑡↑2) + (𝑢↑2)))
121	108, 109, 111, 116, 120	ltletrd 11365	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → (𝑅↑2) < ((𝑡↑2) + (𝑢↑2)))
122	108, 111	ltnled 11352	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → ((𝑅↑2) < ((𝑡↑2) + (𝑢↑2)) ↔ ¬ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))
123	121, 122	mpbid 235	. . . . . . . . . 10 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡) ∧ 𝑢 ∈ ℝ) → ¬ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))
124	123	3expa 1136	. . . . . . . . 9 ⊢ ((((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)) ∧ 𝑢 ∈ ℝ) → ¬ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))
125	124	ralrimiva 3157	. . . . . . . 8 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)) → ∀𝑢 ∈ ℝ ¬ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))
126		rabeq0 4345	. . . . . . . 8 ⊢ ({𝑢 ∈ ℝ ∣ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)} = ∅ ↔ ∀𝑢 ∈ ℝ ¬ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))
127	125, 126	sylibr 237	. . . . . . 7 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)) → {𝑢 ∈ ℝ ∣ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)} = ∅)
128	107, 127	eqtr3id 2812	. . . . . 6 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ 𝑅 < (abs‘𝑡)) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = ∅)
129	106, 128	syl 18	. . . . 5 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ ¬ (abs‘𝑡) ≤ 𝑅) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = ∅)
130		iffalse 4496	. . . . . 6 ⊢ (¬ (abs‘𝑡) ≤ 𝑅 → if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅) = ∅)
131	130	adantl 486	. . . . 5 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ ¬ (abs‘𝑡) ≤ 𝑅) → if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅) = ∅)
132	129, 131	eqtr4d 2801	. . . 4 ⊢ (((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) ∧ ¬ (abs‘𝑡) ≤ 𝑅) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
133	103, 132	pm2.61dan 824	. . 3 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → {𝑢 ∣ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2))} = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
134	27, 133	eqtr3d 2800	. 2 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → {𝑢 ∣ (𝑡 ∈ ℝ ∧ (𝑢 ∈ ℝ ∧ ((𝑡↑2) + (𝑢↑2)) ≤ (𝑅↑2)))} = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))
135	24, 134	eqtrid 2810	1 ⊢ ((𝑅 ∈ ℝ ∧ 0 ≤ 𝑅 ∧ 𝑡 ∈ ℝ) → (𝑆 “ {𝑡}) = if((abs‘𝑡) ≤ 𝑅, (-(√‘((𝑅↑2) − (𝑡↑2)))[,](√‘((𝑅↑2) − (𝑡↑2)))), ∅))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 400 ∧ w3a 1103 = wceq 1570 ∈ wcel 2143 {cab 2741 ∀wral 3079 {crab 3416 Vcvv 3455 ∅c0 4286 ifcif 4487 {csn 4589 ⟨cop 4595 class class class wbr 5109 {copab 5173 “ cima 5664 ‘cfv 6536 (class class class)co 7410 ℂcc 11093 ℝcr 11094 0cc0 11095 + caddc 11098 -∞cmnf 11236 ℝ^*cxr 11237 < clt 11238 ≤ cle 11239 − cmin 11436 -cneg 11437 2c2 12290 [,]cicc 13370 ↑cexp 14093 √csqrt 15280 abscabs 15281

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1825 ax-4 1839 ax-5 1940 ax-6 1997 ax-7 2038 ax-8 2145 ax-9 2153 ax-10 2176 ax-11 2192 ax-12 2213 ax-ext 2735 ax-sep 5257 ax-nul 5269 ax-pow 5336 ax-pr 5404 ax-un 7732 ax-cnex 11151 ax-resscn 11152 ax-1cn 11153 ax-icn 11154 ax-addcl 11155 ax-addrcl 11156 ax-mulcl 11157 ax-mulrcl 11158 ax-mulcom 11159 ax-addass 11160 ax-mulass 11161 ax-distr 11162 ax-i2m1 11163 ax-1ne0 11164 ax-1rid 11165 ax-rnegex 11166 ax-rrecex 11167 ax-cnre 11168 ax-pre-lttri 11169 ax-pre-lttrn 11170 ax-pre-ltadd 11171 ax-pre-mulgt0 11172 ax-pre-sup 11173

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1810 df-nf 1814 df-sb 2097 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3457 df-sbc 3745 df-csb 3854 df-dif 3908 df-un 3910 df-in 3912 df-ss 3922 df-pss 3925 df-nul 4287 df-if 4488 df-pw 4564 df-sn 4590 df-pr 4592 df-op 4596 df-uni 4873 df-iun 4958 df-br 5110 df-opab 5174 df-mpt 5193 df-tr 5219 df-id 5556 df-eprel 5561 df-po 5569 df-so 5570 df-fr 5614 df-we 5616 df-xp 5667 df-rel 5668 df-cnv 5669 df-co 5670 df-dm 5671 df-rn 5672 df-res 5673 df-ima 5674 df-pred 6302 df-ord 6363 df-on 6364 df-lim 6365 df-suc 6366 df-iota 6492 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 7859 df-2nd 7983 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-er 8690 df-en 8940 df-dom 8941 df-sdom 8942 df-sup 9398 df-pnf 11240 df-mnf 11241 df-xr 11242 df-ltxr 11243 df-le 11244 df-sub 11438 df-neg 11439 df-div 11867 df-nn 12229 df-2 12298 df-3 12299 df-n0 12500 df-z 12587 df-uz 12858 df-rp 13012 df-icc 13374 df-seq 14034 df-exp 14094 df-cj 15146 df-re 15147 df-im 15148 df-sqrt 15282 df-abs 15283

This theorem is referenced by: areacirc 38364

W3C validator