Theorem smfresal 47720

Description: Given a sigma-measurable function, the subsets of ℝ whose preimage is in the sigma-algebra induced by the function's domain, form a sigma-algebra. First part of the proof of Proposition 121E (f) of [Fremlin1] p. 38 . (Contributed by Glauco Siliprandi, 26-Jun-2021.)

Hypotheses

Ref	Expression
smfresal.s	⊢ (𝜑 → 𝑆 ∈ SAlg)
smfresal.f	⊢ (𝜑 → 𝐹 ∈ (SMblFn‘𝑆))
smfresal.d	⊢ 𝐷 = dom 𝐹
smfresal.t	⊢ 𝑇 = {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)}

Assertion

Ref	Expression
smfresal	⊢ (𝜑 → 𝑇 ∈ SAlg)

Distinct variable groups:   𝐷,𝑒   𝑒,𝐹   𝑆,𝑒   𝜑,𝑒

Allowed substitution hint:   𝑇(𝑒)

Proof of Theorem smfresal

Dummy variables 𝑛 𝑥 𝑔 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		smfresal.t	. . . 4 ⊢ 𝑇 = {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)}
2		reex 11262	. . . . 5 ⊢ ℝ ∈ V
3	2	pwex 5341	. . . 4 ⊢ 𝒫 ℝ ∈ V
4	1, 3	rabex2 5301	. . 3 ⊢ 𝑇 ∈ V
5	4	a1i 11	. 2 ⊢ (𝜑 → 𝑇 ∈ V)
6		0elpw 5316	. . . . 5 ⊢ ∅ ∈ 𝒫 ℝ
7	6	a1i 11	. . . 4 ⊢ (𝜑 → ∅ ∈ 𝒫 ℝ)
8		ima0 6067	. . . . . 6 ⊢ (◡𝐹 “ ∅) = ∅
9	8	a1i 11	. . . . 5 ⊢ (𝜑 → (◡𝐹 “ ∅) = ∅)
10		smfresal.s	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ SAlg)
11	10	uniexd 7742	. . . . . . . 8 ⊢ (𝜑 → ∪ 𝑆 ∈ V)
12		smfresal.f	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ (SMblFn‘𝑆))
13		smfresal.d	. . . . . . . . 9 ⊢ 𝐷 = dom 𝐹
14	10, 12, 13	smfdmss 47665	. . . . . . . 8 ⊢ (𝜑 → 𝐷 ⊆ ∪ 𝑆)
15	11, 14	ssexd 5285	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ V)
16		eqid 2760	. . . . . . 7 ⊢ (𝑆 ↾t 𝐷) = (𝑆 ↾t 𝐷)
17	10, 15, 16	subsalsal 47291	. . . . . 6 ⊢ (𝜑 → (𝑆 ↾t 𝐷) ∈ SAlg)
18	17	0sald 47282	. . . . 5 ⊢ (𝜑 → ∅ ∈ (𝑆 ↾t 𝐷))
19	9, 18	eqeltrd 2860	. . . 4 ⊢ (𝜑 → (◡𝐹 “ ∅) ∈ (𝑆 ↾t 𝐷))
20	7, 19	jca 521	. . 3 ⊢ (𝜑 → (∅ ∈ 𝒫 ℝ ∧ (◡𝐹 “ ∅) ∈ (𝑆 ↾t 𝐷)))
21		imaeq2 6046	. . . . 5 ⊢ (𝑒 = ∅ → (◡𝐹 “ 𝑒) = (◡𝐹 “ ∅))
22	21	eleq1d 2845	. . . 4 ⊢ (𝑒 = ∅ → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ ∅) ∈ (𝑆 ↾t 𝐷)))
23	22, 1	elrab2 3648	. . 3 ⊢ (∅ ∈ 𝑇 ↔ (∅ ∈ 𝒫 ℝ ∧ (◡𝐹 “ ∅) ∈ (𝑆 ↾t 𝐷)))
24	20, 23	sylibr 237	. 2 ⊢ (𝜑 → ∅ ∈ 𝑇)
25		eqid 2760	. 2 ⊢ ∪ 𝑇 = ∪ 𝑇
26		nfv 1947	. . . . . . 7 ⊢ Ⅎ𝑦𝜑
27		nfcv 2922	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒𝑦
28		nfrab1 3431	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑒{𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)}
29	1, 28	nfcxfr 2920	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒𝑇
30	27, 29	eluni2f 46039	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ∪ 𝑇 ↔ ∃𝑒 ∈ 𝑇 𝑦 ∈ 𝑒)
31	30	bilani 510	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ ∪ 𝑇) → ∃𝑒 ∈ 𝑇 𝑦 ∈ 𝑒)
32		nfv 1947	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒𝜑
33	29	nfuni 4873	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑒∪ 𝑇
34	27, 33	nfel 2936	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒 𝑦 ∈ ∪ 𝑇
35	32, 34	nfan 1932	. . . . . . . . . . 11 ⊢ Ⅎ𝑒(𝜑 ∧ 𝑦 ∈ ∪ 𝑇)
36	27	nfel1 2938	. . . . . . . . . . 11 ⊢ Ⅎ𝑒 𝑦 ∈ ℝ
37	1	eleq2i 2852	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑒 ∈ 𝑇 ↔ 𝑒 ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)})
38	37	biimpi 219	. . . . . . . . . . . . . . . . 17 ⊢ (𝑒 ∈ 𝑇 → 𝑒 ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)})
39		rabidim1 3433	. . . . . . . . . . . . . . . . 17 ⊢ (𝑒 ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)} → 𝑒 ∈ 𝒫 ℝ)
40	38, 39	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝑒 ∈ 𝑇 → 𝑒 ∈ 𝒫 ℝ)
41		elpwi 4563	. . . . . . . . . . . . . . . 16 ⊢ (𝑒 ∈ 𝒫 ℝ → 𝑒 ⊆ ℝ)
42	40, 41	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝑒 ∈ 𝑇 → 𝑒 ⊆ ℝ)
43	42	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝑒 ∈ 𝑇 ∧ 𝑦 ∈ 𝑒) → 𝑒 ⊆ ℝ)
44		simpr 490	. . . . . . . . . . . . . 14 ⊢ ((𝑒 ∈ 𝑇 ∧ 𝑦 ∈ 𝑒) → 𝑦 ∈ 𝑒)
45	43, 44	sseldd 3931	. . . . . . . . . . . . 13 ⊢ ((𝑒 ∈ 𝑇 ∧ 𝑦 ∈ 𝑒) → 𝑦 ∈ ℝ)
46	45	ex 418	. . . . . . . . . . . 12 ⊢ (𝑒 ∈ 𝑇 → (𝑦 ∈ 𝑒 → 𝑦 ∈ ℝ))
47	46	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ ∪ 𝑇) → (𝑒 ∈ 𝑇 → (𝑦 ∈ 𝑒 → 𝑦 ∈ ℝ)))
48	35, 36, 47	rexlimd 3269	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ ∪ 𝑇) → (∃𝑒 ∈ 𝑇 𝑦 ∈ 𝑒 → 𝑦 ∈ ℝ))
49	31, 48	mpd 16	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ ∪ 𝑇) → 𝑦 ∈ ℝ)
50	49	ex 418	. . . . . . . 8 ⊢ (𝜑 → (𝑦 ∈ ∪ 𝑇 → 𝑦 ∈ ℝ))
51		ovexd 7443	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑦 − 1)(,)(𝑦 + 1)) ∈ V)
52		ioossre 13507	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 − 1)(,)(𝑦 + 1)) ⊆ ℝ
53	52	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑦 − 1)(,)(𝑦 + 1)) ⊆ ℝ)
54	51, 53	elpwd 4562	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝒫 ℝ)
55	54	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → ((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝒫 ℝ)
56	10, 12, 13	smff 47664	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐹:𝐷⟶ℝ)
57	56	ffnd 6698	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐹 Fn 𝐷)
58		fncnvima2 7048	. . . . . . . . . . . . . . . 16 ⊢ (𝐹 Fn 𝐷 → (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) = {𝑥 ∈ 𝐷 ∣ (𝐹‘𝑥) ∈ ((𝑦 − 1)(,)(𝑦 + 1))})
59	57, 58	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) = {𝑥 ∈ 𝐷 ∣ (𝐹‘𝑥) ∈ ((𝑦 − 1)(,)(𝑦 + 1))})
60	59	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) = {𝑥 ∈ 𝐷 ∣ (𝐹‘𝑥) ∈ ((𝑦 − 1)(,)(𝑦 + 1))})
61		nfv 1947	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑥(𝜑 ∧ 𝑦 ∈ ℝ)
62	10	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝑆 ∈ SAlg)
63	15	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝐷 ∈ V)
64	56	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝐹:𝐷⟶ℝ)
65		simpr 490	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝑥 ∈ 𝐷)
66	64, 65	ffvelcdmd 7073	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝐹‘𝑥) ∈ ℝ)
67	66	adantlr 728	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ℝ) ∧ 𝑥 ∈ 𝐷) → (𝐹‘𝑥) ∈ ℝ)
68	56	feqmptd 6941	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐷 ↦ (𝐹‘𝑥)))
69	68	eqcomd 2766	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ (𝐹‘𝑥)) = 𝐹)
70	69, 12	eqeltrd 2860	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ (𝐹‘𝑥)) ∈ (SMblFn‘𝑆))
71	70	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (𝑥 ∈ 𝐷 ↦ (𝐹‘𝑥)) ∈ (SMblFn‘𝑆))
72		peano2rem 11596	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ ℝ → (𝑦 − 1) ∈ ℝ)
73	72	rexrd 11330	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ ℝ → (𝑦 − 1) ∈ ℝ*)
74	73	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (𝑦 − 1) ∈ ℝ*)
75		peano2re 11454	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ ℝ → (𝑦 + 1) ∈ ℝ)
76	75	rexrd 11330	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ ℝ → (𝑦 + 1) ∈ ℝ*)
77	76	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (𝑦 + 1) ∈ ℝ*)
78	61, 62, 63, 67, 71, 74, 77	smfpimioompt 47718	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → {𝑥 ∈ 𝐷 ∣ (𝐹‘𝑥) ∈ ((𝑦 − 1)(,)(𝑦 + 1))} ∈ (𝑆 ↾t 𝐷))
79	60, 78	eqeltrd 2860	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) ∈ (𝑆 ↾t 𝐷))
80	55, 79	jca 521	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝒫 ℝ ∧ (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) ∈ (𝑆 ↾t 𝐷)))
81		imaeq2 6046	. . . . . . . . . . . . . 14 ⊢ (𝑒 = ((𝑦 − 1)(,)(𝑦 + 1)) → (◡𝐹 “ 𝑒) = (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))))
82	81	eleq1d 2845	. . . . . . . . . . . . 13 ⊢ (𝑒 = ((𝑦 − 1)(,)(𝑦 + 1)) → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) ∈ (𝑆 ↾t 𝐷)))
83	82, 1	elrab2 3648	. . . . . . . . . . . 12 ⊢ (((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝑇 ↔ (((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝒫 ℝ ∧ (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) ∈ (𝑆 ↾t 𝐷)))
84	80, 83	sylibr 237	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → ((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝑇)
85		id 23	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ ℝ → 𝑦 ∈ ℝ)
86		ltm1 12128	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ ℝ → (𝑦 − 1) < 𝑦)
87		ltp1 12126	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ ℝ → 𝑦 < (𝑦 + 1))
88	73, 76, 85, 86, 87	eliood 46432	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ℝ → 𝑦 ∈ ((𝑦 − 1)(,)(𝑦 + 1)))
89	88	adantl 487	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝑦 ∈ ((𝑦 − 1)(,)(𝑦 + 1)))
90		nfv 1947	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒 𝑦 ∈ ((𝑦 − 1)(,)(𝑦 + 1))
91		nfcv 2922	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒((𝑦 − 1)(,)(𝑦 + 1))
92		eleq2 2849	. . . . . . . . . . . 12 ⊢ (𝑒 = ((𝑦 − 1)(,)(𝑦 + 1)) → (𝑦 ∈ 𝑒 ↔ 𝑦 ∈ ((𝑦 − 1)(,)(𝑦 + 1))))
93	90, 91, 29, 92	rspcef 46010	. . . . . . . . . . 11 ⊢ ((((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝑇 ∧ 𝑦 ∈ ((𝑦 − 1)(,)(𝑦 + 1))) → ∃𝑒 ∈ 𝑇 𝑦 ∈ 𝑒)
94	84, 89, 93	syl2anc 596	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → ∃𝑒 ∈ 𝑇 𝑦 ∈ 𝑒)
95	94, 30	sylibr 237	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝑦 ∈ ∪ 𝑇)
96	95	ex 418	. . . . . . . 8 ⊢ (𝜑 → (𝑦 ∈ ℝ → 𝑦 ∈ ∪ 𝑇))
97	50, 96	impbid 215	. . . . . . 7 ⊢ (𝜑 → (𝑦 ∈ ∪ 𝑇 ↔ 𝑦 ∈ ℝ))
98	26, 97	alrimi 2249	. . . . . 6 ⊢ (𝜑 → ∀𝑦(𝑦 ∈ ∪ 𝑇 ↔ 𝑦 ∈ ℝ))
99		dfcleq 2753	. . . . . 6 ⊢ (∪ 𝑇 = ℝ ↔ ∀𝑦(𝑦 ∈ ∪ 𝑇 ↔ 𝑦 ∈ ℝ))
100	98, 99	sylibr 237	. . . . 5 ⊢ (𝜑 → ∪ 𝑇 = ℝ)
101	100	difeq1d 4072	. . . 4 ⊢ (𝜑 → (∪ 𝑇 ∖ 𝑥) = (ℝ ∖ 𝑥))
102	101	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (∪ 𝑇 ∖ 𝑥) = (ℝ ∖ 𝑥))
103		difss 4082	. . . . . . 7 ⊢ (ℝ ∖ 𝑥) ⊆ ℝ
104	2, 103	ssexi 5283	. . . . . . . 8 ⊢ (ℝ ∖ 𝑥) ∈ V
105		elpwg 4559	. . . . . . . 8 ⊢ ((ℝ ∖ 𝑥) ∈ V → ((ℝ ∖ 𝑥) ∈ 𝒫 ℝ ↔ (ℝ ∖ 𝑥) ⊆ ℝ))
106	104, 105	ax-mp 5	. . . . . . 7 ⊢ ((ℝ ∖ 𝑥) ∈ 𝒫 ℝ ↔ (ℝ ∖ 𝑥) ⊆ ℝ)
107	103, 106	mpbir 234	. . . . . 6 ⊢ (ℝ ∖ 𝑥) ∈ 𝒫 ℝ
108	107	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (ℝ ∖ 𝑥) ∈ 𝒫 ℝ)
109	56	ffund 6702	. . . . . . . . 9 ⊢ (𝜑 → Fun 𝐹)
110		difpreima 7052	. . . . . . . . 9 ⊢ (Fun 𝐹 → (◡𝐹 “ (ℝ ∖ 𝑥)) = ((◡𝐹 “ ℝ) ∖ (◡𝐹 “ 𝑥)))
111	109, 110	syl 18	. . . . . . . 8 ⊢ (𝜑 → (◡𝐹 “ (ℝ ∖ 𝑥)) = ((◡𝐹 “ ℝ) ∖ (◡𝐹 “ 𝑥)))
112		fimacnv 6720	. . . . . . . . . . 11 ⊢ (𝐹:𝐷⟶ℝ → (◡𝐹 “ ℝ) = 𝐷)
113	56, 112	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (◡𝐹 “ ℝ) = 𝐷)
114	10, 14	restuni4 46057	. . . . . . . . . 10 ⊢ (𝜑 → ∪ (𝑆 ↾t 𝐷) = 𝐷)
115	113, 114	eqtr4d 2798	. . . . . . . . 9 ⊢ (𝜑 → (◡𝐹 “ ℝ) = ∪ (𝑆 ↾t 𝐷))
116	115	difeq1d 4072	. . . . . . . 8 ⊢ (𝜑 → ((◡𝐹 “ ℝ) ∖ (◡𝐹 “ 𝑥)) = (∪ (𝑆 ↾t 𝐷) ∖ (◡𝐹 “ 𝑥)))
117	111, 116	eqtrd 2795	. . . . . . 7 ⊢ (𝜑 → (◡𝐹 “ (ℝ ∖ 𝑥)) = (∪ (𝑆 ↾t 𝐷) ∖ (◡𝐹 “ 𝑥)))
118	117	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (◡𝐹 “ (ℝ ∖ 𝑥)) = (∪ (𝑆 ↾t 𝐷) ∖ (◡𝐹 “ 𝑥)))
119	17	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (𝑆 ↾t 𝐷) ∈ SAlg)
120		imaeq2 6046	. . . . . . . . . . . 12 ⊢ (𝑒 = 𝑥 → (◡𝐹 “ 𝑒) = (◡𝐹 “ 𝑥))
121	120	eleq1d 2845	. . . . . . . . . . 11 ⊢ (𝑒 = 𝑥 → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ 𝑥) ∈ (𝑆 ↾t 𝐷)))
122	121, 1	elrab2 3648	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝑇 ↔ (𝑥 ∈ 𝒫 ℝ ∧ (◡𝐹 “ 𝑥) ∈ (𝑆 ↾t 𝐷)))
123	122	biimpi 219	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝑇 → (𝑥 ∈ 𝒫 ℝ ∧ (◡𝐹 “ 𝑥) ∈ (𝑆 ↾t 𝐷)))
124	123	simprd 501	. . . . . . . 8 ⊢ (𝑥 ∈ 𝑇 → (◡𝐹 “ 𝑥) ∈ (𝑆 ↾t 𝐷))
125	124	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (◡𝐹 “ 𝑥) ∈ (𝑆 ↾t 𝐷))
126	119, 125	saldifcld 47279	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (∪ (𝑆 ↾t 𝐷) ∖ (◡𝐹 “ 𝑥)) ∈ (𝑆 ↾t 𝐷))
127	118, 126	eqeltrd 2860	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (◡𝐹 “ (ℝ ∖ 𝑥)) ∈ (𝑆 ↾t 𝐷))
128	108, 127	jca 521	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → ((ℝ ∖ 𝑥) ∈ 𝒫 ℝ ∧ (◡𝐹 “ (ℝ ∖ 𝑥)) ∈ (𝑆 ↾t 𝐷)))
129		imaeq2 6046	. . . . . 6 ⊢ (𝑒 = (ℝ ∖ 𝑥) → (◡𝐹 “ 𝑒) = (◡𝐹 “ (ℝ ∖ 𝑥)))
130	129	eleq1d 2845	. . . . 5 ⊢ (𝑒 = (ℝ ∖ 𝑥) → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ (ℝ ∖ 𝑥)) ∈ (𝑆 ↾t 𝐷)))
131	130, 1	elrab2 3648	. . . 4 ⊢ ((ℝ ∖ 𝑥) ∈ 𝑇 ↔ ((ℝ ∖ 𝑥) ∈ 𝒫 ℝ ∧ (◡𝐹 “ (ℝ ∖ 𝑥)) ∈ (𝑆 ↾t 𝐷)))
132	128, 131	sylibr 237	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (ℝ ∖ 𝑥) ∈ 𝑇)
133	102, 132	eqeltrd 2860	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (∪ 𝑇 ∖ 𝑥) ∈ 𝑇)
134		nnex 12310	. . . . . . . 8 ⊢ ℕ ∈ V
135		fvex 6886	. . . . . . . 8 ⊢ (𝑔‘𝑛) ∈ V
136	134, 135	iunex 7963	. . . . . . 7 ⊢ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ V
137	136	a1i 11	. . . . . 6 ⊢ (𝑔:ℕ⟶𝑇 → ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ V)
138		ffvelcdm 7069	. . . . . . . 8 ⊢ ((𝑔:ℕ⟶𝑇 ∧ 𝑛 ∈ ℕ) → (𝑔‘𝑛) ∈ 𝑇)
139	1	eleq2i 2852	. . . . . . . . 9 ⊢ ((𝑔‘𝑛) ∈ 𝑇 ↔ (𝑔‘𝑛) ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)})
140	139	biimpi 219	. . . . . . . 8 ⊢ ((𝑔‘𝑛) ∈ 𝑇 → (𝑔‘𝑛) ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)})
141		elrabi 3640	. . . . . . . 8 ⊢ ((𝑔‘𝑛) ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)} → (𝑔‘𝑛) ∈ 𝒫 ℝ)
142		elpwi 4563	. . . . . . . 8 ⊢ ((𝑔‘𝑛) ∈ 𝒫 ℝ → (𝑔‘𝑛) ⊆ ℝ)
143	138, 140, 141, 142	4syl 20	. . . . . . 7 ⊢ ((𝑔:ℕ⟶𝑇 ∧ 𝑛 ∈ ℕ) → (𝑔‘𝑛) ⊆ ℝ)
144	143	iunssd 5008	. . . . . 6 ⊢ (𝑔:ℕ⟶𝑇 → ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ⊆ ℝ)
145	137, 144	elpwd 4562	. . . . 5 ⊢ (𝑔:ℕ⟶𝑇 → ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝒫 ℝ)
146	145	adantl 487	. . . 4 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝒫 ℝ)
147		imaiun 7237	. . . . . 6 ⊢ (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) = ∪ 𝑛 ∈ ℕ (◡𝐹 “ (𝑔‘𝑛))
148	147	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) = ∪ 𝑛 ∈ ℕ (◡𝐹 “ (𝑔‘𝑛)))
149	17	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → (𝑆 ↾t 𝐷) ∈ SAlg)
150		nnct 14092	. . . . . . 7 ⊢ ℕ ≼ ω
151	150	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → ℕ ≼ ω)
152		imaeq2 6046	. . . . . . . . . . . 12 ⊢ (𝑒 = (𝑔‘𝑛) → (◡𝐹 “ 𝑒) = (◡𝐹 “ (𝑔‘𝑛)))
153	152	eleq1d 2845	. . . . . . . . . . 11 ⊢ (𝑒 = (𝑔‘𝑛) → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
154	153, 1	elrab2 3648	. . . . . . . . . 10 ⊢ ((𝑔‘𝑛) ∈ 𝑇 ↔ ((𝑔‘𝑛) ∈ 𝒫 ℝ ∧ (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
155	154	biimpi 219	. . . . . . . . 9 ⊢ ((𝑔‘𝑛) ∈ 𝑇 → ((𝑔‘𝑛) ∈ 𝒫 ℝ ∧ (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
156	155	simprd 501	. . . . . . . 8 ⊢ ((𝑔‘𝑛) ∈ 𝑇 → (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷))
157	138, 156	syl 18	. . . . . . 7 ⊢ ((𝑔:ℕ⟶𝑇 ∧ 𝑛 ∈ ℕ) → (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷))
158	157	adantll 727	. . . . . 6 ⊢ (((𝜑 ∧ 𝑔:ℕ⟶𝑇) ∧ 𝑛 ∈ ℕ) → (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷))
159	149, 151, 158	saliuncl 47255	. . . . 5 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → ∪ 𝑛 ∈ ℕ (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷))
160	148, 159	eqeltrd 2860	. . . 4 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷))
161	146, 160	jca 521	. . 3 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → (∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝒫 ℝ ∧ (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
162		imaeq2 6046	. . . . 5 ⊢ (𝑒 = ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) → (◡𝐹 “ 𝑒) = (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)))
163	162	eleq1d 2845	. . . 4 ⊢ (𝑒 = ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
164	163, 1	elrab2 3648	. . 3 ⊢ (∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝑇 ↔ (∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝒫 ℝ ∧ (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
165	161, 164	sylibr 237	. 2 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝑇)
166	5, 24, 25, 133, 165	issalnnd 47277	1 ⊢ (𝜑 → 𝑇 ∈ SAlg)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401  ∀wal 1568   = wceq 1570   ∈ wcel 2145  ∃wrex 3086  {crab 3412  Vcvv 3450   ∖ cdif 3895   ⊆ wss 3898  ∅c0 4278  𝒫 cpw 4556  ∪ cuni 4866  ∪ ciun 4950   class class class wbr 5102   ↦ cmpt 5185  ^◡ccnv 5646  dom cdm 5647   “ cima 5650  Fun wfun 6521   Fn wfn 6522  ⟶wf 6523  ‘cfv 6527  (class class class)co 7408  ωcom 7860   ≼ cdom 8949  ℝcr 11170  1c1 11172   + caddc 11174  ℝ^*cxr 11313   − cmin 11512  ℕcn 12304  (,)cioo 13445   ↾_t crest 17552  SAlgcsalg 47240  SMblFncsmblfn 47627

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7734  ax-inf2 9620  ax-cc 10484  ax-cnex 11227  ax-resscn 11228  ax-1cn 11229  ax-icn 11230  ax-addcl 11231  ax-addrcl 11232  ax-mulcl 11233  ax-mulrcl 11234  ax-mulcom 11235  ax-addass 11236  ax-mulass 11237  ax-distr 11238  ax-i2m1 11239  ax-1ne0 11240  ax-1rid 11241  ax-rnegex 11242  ax-rrecex 11243  ax-cnre 11244  ax-pre-lttri 11245  ax-pre-lttrn 11246  ax-pre-ltadd 11247  ax-pre-mulgt0 11248  ax-pre-sup 11249

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-int 4907  df-iun 4952  df-iin 4953  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-se 5601  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6293  df-ord 6354  df-on 6355  df-lim 6356  df-suc 6357  df-iota 6483  df-fun 6529  df-fn 6530  df-f 6531  df-f1 6532  df-fo 6533  df-f1o 6534  df-fv 6535  df-isom 6536  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-om 7861  df-1st 7984  df-2nd 7985  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8454  df-2o 8455  df-er 8695  df-map 8827  df-pm 8828  df-en 8952  df-dom 8953  df-sdom 8954  df-fin 8955  df-sup 9412  df-inf 9413  df-card 9991  df-acn 9994  df-pnf 11316  df-mnf 11317  df-xr 11318  df-ltxr 11319  df-le 11320  df-sub 11514  df-neg 11515  df-div 11943  df-nn 12305  df-n0 12576  df-z 12663  df-uz 12935  df-q 13045  df-rp 13090  df-ioo 13449  df-ico 13451  df-fl 13900  df-rest 17554  df-salg 47241  df-smblfn 47628

This theorem is used by:  smfpimbor1lem1  47730  smfpimbor1lem2  47731