Theorem smfresal 47300

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 11150	. . . . 5 ⊢ ℝ ∈ V
3	2	pwex 5327	. . . 4 ⊢ 𝒫 ℝ ∈ V
4	1, 3	rabex2 5287	. . 3 ⊢ 𝑇 ∈ V
5	4	a1i 11	. 2 ⊢ (𝜑 → 𝑇 ∈ V)
6		0elpw 5302	. . . . 5 ⊢ ∅ ∈ 𝒫 ℝ
7	6	a1i 11	. . . 4 ⊢ (𝜑 → ∅ ∈ 𝒫 ℝ)
8		ima0 6052	. . . . . 6 ⊢ (◡𝐹 “ ∅) = ∅
9	8	a1i 11	. . . . 5 ⊢ (𝜑 → (◡𝐹 “ ∅) = ∅)
10		smfresal.s	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ SAlg)
11	10	uniexd 7710	. . . . . . . 8 ⊢ (𝜑 → ∪ 𝑆 ∈ V)
12		smfresal.f	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ (SMblFn‘𝑆))
13		smfresal.d	. . . . . . . . 9 ⊢ 𝐷 = dom 𝐹
14	10, 12, 13	smfdmss 47245	. . . . . . . 8 ⊢ (𝜑 → 𝐷 ⊆ ∪ 𝑆)
15	11, 14	ssexd 5270	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ V)
16		eqid 2752	. . . . . . 7 ⊢ (𝑆 ↾t 𝐷) = (𝑆 ↾t 𝐷)
17	10, 15, 16	subsalsal 46871	. . . . . 6 ⊢ (𝜑 → (𝑆 ↾t 𝐷) ∈ SAlg)
18	17	0sald 46862	. . . . 5 ⊢ (𝜑 → ∅ ∈ (𝑆 ↾t 𝐷))
19	9, 18	eqeltrd 2852	. . . 4 ⊢ (𝜑 → (◡𝐹 “ ∅) ∈ (𝑆 ↾t 𝐷))
20	7, 19	jca 518	. . 3 ⊢ (𝜑 → (∅ ∈ 𝒫 ℝ ∧ (◡𝐹 “ ∅) ∈ (𝑆 ↾t 𝐷)))
21		imaeq2 6031	. . . . 5 ⊢ (𝑒 = ∅ → (◡𝐹 “ 𝑒) = (◡𝐹 “ ∅))
22	21	eleq1d 2837	. . . 4 ⊢ (𝑒 = ∅ → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ ∅) ∈ (𝑆 ↾t 𝐷)))
23	22, 1	elrab2 3644	. . 3 ⊢ (∅ ∈ 𝑇 ↔ (∅ ∈ 𝒫 ℝ ∧ (◡𝐹 “ ∅) ∈ (𝑆 ↾t 𝐷)))
24	20, 23	sylibr 236	. 2 ⊢ (𝜑 → ∅ ∈ 𝑇)
25		eqid 2752	. 2 ⊢ ∪ 𝑇 = ∪ 𝑇
26		nfv 1924	. . . . . . 7 ⊢ Ⅎ𝑦𝜑
27		nfcv 2914	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒𝑦
28		nfrab1 3424	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑒{𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)}
29	1, 28	nfcxfr 2912	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒𝑇
30	27, 29	eluni2f 45619	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ∪ 𝑇 ↔ ∃𝑒 ∈ 𝑇 𝑦 ∈ 𝑒)
31	30	bilani 507	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ ∪ 𝑇) → ∃𝑒 ∈ 𝑇 𝑦 ∈ 𝑒)
32		nfv 1924	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒𝜑
33	29	nfuni 4862	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑒∪ 𝑇
34	27, 33	nfel 2928	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒 𝑦 ∈ ∪ 𝑇
35	32, 34	nfan 1909	. . . . . . . . . . 11 ⊢ Ⅎ𝑒(𝜑 ∧ 𝑦 ∈ ∪ 𝑇)
36	27	nfel1 2930	. . . . . . . . . . 11 ⊢ Ⅎ𝑒 𝑦 ∈ ℝ
37	1	eleq2i 2844	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑒 ∈ 𝑇 ↔ 𝑒 ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)})
38	37	biimpi 218	. . . . . . . . . . . . . . . . 17 ⊢ (𝑒 ∈ 𝑇 → 𝑒 ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)})
39		rabidim1 3426	. . . . . . . . . . . . . . . . 17 ⊢ (𝑒 ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)} → 𝑒 ∈ 𝒫 ℝ)
40	38, 39	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝑒 ∈ 𝑇 → 𝑒 ∈ 𝒫 ℝ)
41		elpwi 4552	. . . . . . . . . . . . . . . 16 ⊢ (𝑒 ∈ 𝒫 ℝ → 𝑒 ⊆ ℝ)
42	40, 41	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑒 ∈ 𝑇 → 𝑒 ⊆ ℝ)
43	42	adantr 483	. . . . . . . . . . . . . 14 ⊢ ((𝑒 ∈ 𝑇 ∧ 𝑦 ∈ 𝑒) → 𝑒 ⊆ ℝ)
44		simpr 487	. . . . . . . . . . . . . 14 ⊢ ((𝑒 ∈ 𝑇 ∧ 𝑦 ∈ 𝑒) → 𝑦 ∈ 𝑒)
45	43, 44	sseldd 3928	. . . . . . . . . . . . 13 ⊢ ((𝑒 ∈ 𝑇 ∧ 𝑦 ∈ 𝑒) → 𝑦 ∈ ℝ)
46	45	ex 415	. . . . . . . . . . . 12 ⊢ (𝑒 ∈ 𝑇 → (𝑦 ∈ 𝑒 → 𝑦 ∈ ℝ))
47	46	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ ∪ 𝑇) → (𝑒 ∈ 𝑇 → (𝑦 ∈ 𝑒 → 𝑦 ∈ ℝ)))
48	35, 36, 47	rexlimd 3259	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ ∪ 𝑇) → (∃𝑒 ∈ 𝑇 𝑦 ∈ 𝑒 → 𝑦 ∈ ℝ))
49	31, 48	mpd 15	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ ∪ 𝑇) → 𝑦 ∈ ℝ)
50	49	ex 415	. . . . . . . 8 ⊢ (𝜑 → (𝑦 ∈ ∪ 𝑇 → 𝑦 ∈ ℝ))
51		ovexd 7416	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑦 − 1)(,)(𝑦 + 1)) ∈ V)
52		ioossre 13397	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 − 1)(,)(𝑦 + 1)) ⊆ ℝ
53	52	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑦 − 1)(,)(𝑦 + 1)) ⊆ ℝ)
54	51, 53	elpwd 4551	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝒫 ℝ)
55	54	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → ((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝒫 ℝ)
56	10, 12, 13	smff 47244	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐹:𝐷⟶ℝ)
57	56	ffnd 6677	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐹 Fn 𝐷)
58		fncnvima2 7027	. . . . . . . . . . . . . . . 16 ⊢ (𝐹 Fn 𝐷 → (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) = {𝑥 ∈ 𝐷 ∣ (𝐹‘𝑥) ∈ ((𝑦 − 1)(,)(𝑦 + 1))})
59	57, 58	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) = {𝑥 ∈ 𝐷 ∣ (𝐹‘𝑥) ∈ ((𝑦 − 1)(,)(𝑦 + 1))})
60	59	adantr 483	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) = {𝑥 ∈ 𝐷 ∣ (𝐹‘𝑥) ∈ ((𝑦 − 1)(,)(𝑦 + 1))})
61		nfv 1924	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑥(𝜑 ∧ 𝑦 ∈ ℝ)
62	10	adantr 483	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝑆 ∈ SAlg)
63	15	adantr 483	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝐷 ∈ V)
64	56	adantr 483	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝐹:𝐷⟶ℝ)
65		simpr 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝑥 ∈ 𝐷)
66	64, 65	ffvelcdmd 7051	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝐹‘𝑥) ∈ ℝ)
67	66	adantlr 723	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ℝ) ∧ 𝑥 ∈ 𝐷) → (𝐹‘𝑥) ∈ ℝ)
68	56	feqmptd 6920	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐷 ↦ (𝐹‘𝑥)))
69	68	eqcomd 2758	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ (𝐹‘𝑥)) = 𝐹)
70	69, 12	eqeltrd 2852	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ (𝐹‘𝑥)) ∈ (SMblFn‘𝑆))
71	70	adantr 483	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (𝑥 ∈ 𝐷 ↦ (𝐹‘𝑥)) ∈ (SMblFn‘𝑆))
72		peano2rem 11484	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ ℝ → (𝑦 − 1) ∈ ℝ)
73	72	rexrd 11218	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ ℝ → (𝑦 − 1) ∈ ℝ*)
74	73	adantl 484	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (𝑦 − 1) ∈ ℝ*)
75		peano2re 11342	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ ℝ → (𝑦 + 1) ∈ ℝ)
76	75	rexrd 11218	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ ℝ → (𝑦 + 1) ∈ ℝ*)
77	76	adantl 484	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (𝑦 + 1) ∈ ℝ*)
78	61, 62, 63, 67, 71, 74, 77	smfpimioompt 47298	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → {𝑥 ∈ 𝐷 ∣ (𝐹‘𝑥) ∈ ((𝑦 − 1)(,)(𝑦 + 1))} ∈ (𝑆 ↾t 𝐷))
79	60, 78	eqeltrd 2852	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) ∈ (𝑆 ↾t 𝐷))
80	55, 79	jca 518	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝒫 ℝ ∧ (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) ∈ (𝑆 ↾t 𝐷)))
81		imaeq2 6031	. . . . . . . . . . . . . 14 ⊢ (𝑒 = ((𝑦 − 1)(,)(𝑦 + 1)) → (◡𝐹 “ 𝑒) = (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))))
82	81	eleq1d 2837	. . . . . . . . . . . . 13 ⊢ (𝑒 = ((𝑦 − 1)(,)(𝑦 + 1)) → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) ∈ (𝑆 ↾t 𝐷)))
83	82, 1	elrab2 3644	. . . . . . . . . . . 12 ⊢ (((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝑇 ↔ (((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝒫 ℝ ∧ (◡𝐹 “ ((𝑦 − 1)(,)(𝑦 + 1))) ∈ (𝑆 ↾t 𝐷)))
84	80, 83	sylibr 236	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → ((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝑇)
85		id 22	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ ℝ → 𝑦 ∈ ℝ)
86		ltm1 12019	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ ℝ → (𝑦 − 1) < 𝑦)
87		ltp1 12017	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ ℝ → 𝑦 < (𝑦 + 1))
88	73, 76, 85, 86, 87	eliood 46012	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ℝ → 𝑦 ∈ ((𝑦 − 1)(,)(𝑦 + 1)))
89	88	adantl 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝑦 ∈ ((𝑦 − 1)(,)(𝑦 + 1)))
90		nfv 1924	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒 𝑦 ∈ ((𝑦 − 1)(,)(𝑦 + 1))
91		nfcv 2914	. . . . . . . . . . . 12 ⊢ Ⅎ𝑒((𝑦 − 1)(,)(𝑦 + 1))
92		eleq2 2841	. . . . . . . . . . . 12 ⊢ (𝑒 = ((𝑦 − 1)(,)(𝑦 + 1)) → (𝑦 ∈ 𝑒 ↔ 𝑦 ∈ ((𝑦 − 1)(,)(𝑦 + 1))))
93	90, 91, 29, 92	rspcef 45590	. . . . . . . . . . 11 ⊢ ((((𝑦 − 1)(,)(𝑦 + 1)) ∈ 𝑇 ∧ 𝑦 ∈ ((𝑦 − 1)(,)(𝑦 + 1))) → ∃𝑒 ∈ 𝑇 𝑦 ∈ 𝑒)
94	84, 89, 93	syl2anc 592	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → ∃𝑒 ∈ 𝑇 𝑦 ∈ 𝑒)
95	94, 30	sylibr 236	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝑦 ∈ ∪ 𝑇)
96	95	ex 415	. . . . . . . 8 ⊢ (𝜑 → (𝑦 ∈ ℝ → 𝑦 ∈ ∪ 𝑇))
97	50, 96	impbid 214	. . . . . . 7 ⊢ (𝜑 → (𝑦 ∈ ∪ 𝑇 ↔ 𝑦 ∈ ℝ))
98	26, 97	alrimi 2238	. . . . . 6 ⊢ (𝜑 → ∀𝑦(𝑦 ∈ ∪ 𝑇 ↔ 𝑦 ∈ ℝ))
99		dfcleq 2745	. . . . . 6 ⊢ (∪ 𝑇 = ℝ ↔ ∀𝑦(𝑦 ∈ ∪ 𝑇 ↔ 𝑦 ∈ ℝ))
100	98, 99	sylibr 236	. . . . 5 ⊢ (𝜑 → ∪ 𝑇 = ℝ)
101	100	difeq1d 4070	. . . 4 ⊢ (𝜑 → (∪ 𝑇 ∖ 𝑥) = (ℝ ∖ 𝑥))
102	101	adantr 483	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (∪ 𝑇 ∖ 𝑥) = (ℝ ∖ 𝑥))
103		difss 4080	. . . . . . 7 ⊢ (ℝ ∖ 𝑥) ⊆ ℝ
104	2, 103	ssexi 5268	. . . . . . . 8 ⊢ (ℝ ∖ 𝑥) ∈ V
105		elpwg 4548	. . . . . . . 8 ⊢ ((ℝ ∖ 𝑥) ∈ V → ((ℝ ∖ 𝑥) ∈ 𝒫 ℝ ↔ (ℝ ∖ 𝑥) ⊆ ℝ))
106	104, 105	ax-mp 5	. . . . . . 7 ⊢ ((ℝ ∖ 𝑥) ∈ 𝒫 ℝ ↔ (ℝ ∖ 𝑥) ⊆ ℝ)
107	103, 106	mpbir 233	. . . . . 6 ⊢ (ℝ ∖ 𝑥) ∈ 𝒫 ℝ
108	107	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (ℝ ∖ 𝑥) ∈ 𝒫 ℝ)
109	56	ffund 6681	. . . . . . . . 9 ⊢ (𝜑 → Fun 𝐹)
110		difpreima 7031	. . . . . . . . 9 ⊢ (Fun 𝐹 → (◡𝐹 “ (ℝ ∖ 𝑥)) = ((◡𝐹 “ ℝ) ∖ (◡𝐹 “ 𝑥)))
111	109, 110	syl 17	. . . . . . . 8 ⊢ (𝜑 → (◡𝐹 “ (ℝ ∖ 𝑥)) = ((◡𝐹 “ ℝ) ∖ (◡𝐹 “ 𝑥)))
112		fimacnv 6699	. . . . . . . . . . 11 ⊢ (𝐹:𝐷⟶ℝ → (◡𝐹 “ ℝ) = 𝐷)
113	56, 112	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (◡𝐹 “ ℝ) = 𝐷)
114	10, 14	restuni4 45637	. . . . . . . . . 10 ⊢ (𝜑 → ∪ (𝑆 ↾t 𝐷) = 𝐷)
115	113, 114	eqtr4d 2790	. . . . . . . . 9 ⊢ (𝜑 → (◡𝐹 “ ℝ) = ∪ (𝑆 ↾t 𝐷))
116	115	difeq1d 4070	. . . . . . . 8 ⊢ (𝜑 → ((◡𝐹 “ ℝ) ∖ (◡𝐹 “ 𝑥)) = (∪ (𝑆 ↾t 𝐷) ∖ (◡𝐹 “ 𝑥)))
117	111, 116	eqtrd 2787	. . . . . . 7 ⊢ (𝜑 → (◡𝐹 “ (ℝ ∖ 𝑥)) = (∪ (𝑆 ↾t 𝐷) ∖ (◡𝐹 “ 𝑥)))
118	117	adantr 483	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (◡𝐹 “ (ℝ ∖ 𝑥)) = (∪ (𝑆 ↾t 𝐷) ∖ (◡𝐹 “ 𝑥)))
119	17	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (𝑆 ↾t 𝐷) ∈ SAlg)
120		imaeq2 6031	. . . . . . . . . . . 12 ⊢ (𝑒 = 𝑥 → (◡𝐹 “ 𝑒) = (◡𝐹 “ 𝑥))
121	120	eleq1d 2837	. . . . . . . . . . 11 ⊢ (𝑒 = 𝑥 → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ 𝑥) ∈ (𝑆 ↾t 𝐷)))
122	121, 1	elrab2 3644	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝑇 ↔ (𝑥 ∈ 𝒫 ℝ ∧ (◡𝐹 “ 𝑥) ∈ (𝑆 ↾t 𝐷)))
123	122	biimpi 218	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝑇 → (𝑥 ∈ 𝒫 ℝ ∧ (◡𝐹 “ 𝑥) ∈ (𝑆 ↾t 𝐷)))
124	123	simprd 498	. . . . . . . 8 ⊢ (𝑥 ∈ 𝑇 → (◡𝐹 “ 𝑥) ∈ (𝑆 ↾t 𝐷))
125	124	adantl 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (◡𝐹 “ 𝑥) ∈ (𝑆 ↾t 𝐷))
126	119, 125	saldifcld 46859	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (∪ (𝑆 ↾t 𝐷) ∖ (◡𝐹 “ 𝑥)) ∈ (𝑆 ↾t 𝐷))
127	118, 126	eqeltrd 2852	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (◡𝐹 “ (ℝ ∖ 𝑥)) ∈ (𝑆 ↾t 𝐷))
128	108, 127	jca 518	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → ((ℝ ∖ 𝑥) ∈ 𝒫 ℝ ∧ (◡𝐹 “ (ℝ ∖ 𝑥)) ∈ (𝑆 ↾t 𝐷)))
129		imaeq2 6031	. . . . . 6 ⊢ (𝑒 = (ℝ ∖ 𝑥) → (◡𝐹 “ 𝑒) = (◡𝐹 “ (ℝ ∖ 𝑥)))
130	129	eleq1d 2837	. . . . 5 ⊢ (𝑒 = (ℝ ∖ 𝑥) → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ (ℝ ∖ 𝑥)) ∈ (𝑆 ↾t 𝐷)))
131	130, 1	elrab2 3644	. . . 4 ⊢ ((ℝ ∖ 𝑥) ∈ 𝑇 ↔ ((ℝ ∖ 𝑥) ∈ 𝒫 ℝ ∧ (◡𝐹 “ (ℝ ∖ 𝑥)) ∈ (𝑆 ↾t 𝐷)))
132	128, 131	sylibr 236	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (ℝ ∖ 𝑥) ∈ 𝑇)
133	102, 132	eqeltrd 2852	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑇) → (∪ 𝑇 ∖ 𝑥) ∈ 𝑇)
134		nnex 12202	. . . . . . . 8 ⊢ ℕ ∈ V
135		fvex 6865	. . . . . . . 8 ⊢ (𝑔‘𝑛) ∈ V
136	134, 135	iunex 7934	. . . . . . 7 ⊢ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ V
137	136	a1i 11	. . . . . 6 ⊢ (𝑔:ℕ⟶𝑇 → ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ V)
138		ffvelcdm 7047	. . . . . . . 8 ⊢ ((𝑔:ℕ⟶𝑇 ∧ 𝑛 ∈ ℕ) → (𝑔‘𝑛) ∈ 𝑇)
139	1	eleq2i 2844	. . . . . . . . 9 ⊢ ((𝑔‘𝑛) ∈ 𝑇 ↔ (𝑔‘𝑛) ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)})
140	139	biimpi 218	. . . . . . . 8 ⊢ ((𝑔‘𝑛) ∈ 𝑇 → (𝑔‘𝑛) ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)})
141		elrabi 3637	. . . . . . . 8 ⊢ ((𝑔‘𝑛) ∈ {𝑒 ∈ 𝒫 ℝ ∣ (◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷)} → (𝑔‘𝑛) ∈ 𝒫 ℝ)
142		elpwi 4552	. . . . . . . 8 ⊢ ((𝑔‘𝑛) ∈ 𝒫 ℝ → (𝑔‘𝑛) ⊆ ℝ)
143	138, 140, 141, 142	4syl 19	. . . . . . 7 ⊢ ((𝑔:ℕ⟶𝑇 ∧ 𝑛 ∈ ℕ) → (𝑔‘𝑛) ⊆ ℝ)
144	143	iunssd 4998	. . . . . 6 ⊢ (𝑔:ℕ⟶𝑇 → ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ⊆ ℝ)
145	137, 144	elpwd 4551	. . . . 5 ⊢ (𝑔:ℕ⟶𝑇 → ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝒫 ℝ)
146	145	adantl 484	. . . 4 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝒫 ℝ)
147		imaiun 7214	. . . . . 6 ⊢ (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) = ∪ 𝑛 ∈ ℕ (◡𝐹 “ (𝑔‘𝑛))
148	147	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) = ∪ 𝑛 ∈ ℕ (◡𝐹 “ (𝑔‘𝑛)))
149	17	adantr 483	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → (𝑆 ↾t 𝐷) ∈ SAlg)
150		nnct 13980	. . . . . . 7 ⊢ ℕ ≼ ω
151	150	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → ℕ ≼ ω)
152		imaeq2 6031	. . . . . . . . . . . 12 ⊢ (𝑒 = (𝑔‘𝑛) → (◡𝐹 “ 𝑒) = (◡𝐹 “ (𝑔‘𝑛)))
153	152	eleq1d 2837	. . . . . . . . . . 11 ⊢ (𝑒 = (𝑔‘𝑛) → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
154	153, 1	elrab2 3644	. . . . . . . . . 10 ⊢ ((𝑔‘𝑛) ∈ 𝑇 ↔ ((𝑔‘𝑛) ∈ 𝒫 ℝ ∧ (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
155	154	biimpi 218	. . . . . . . . 9 ⊢ ((𝑔‘𝑛) ∈ 𝑇 → ((𝑔‘𝑛) ∈ 𝒫 ℝ ∧ (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
156	155	simprd 498	. . . . . . . 8 ⊢ ((𝑔‘𝑛) ∈ 𝑇 → (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷))
157	138, 156	syl 17	. . . . . . 7 ⊢ ((𝑔:ℕ⟶𝑇 ∧ 𝑛 ∈ ℕ) → (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷))
158	157	adantll 722	. . . . . 6 ⊢ (((𝜑 ∧ 𝑔:ℕ⟶𝑇) ∧ 𝑛 ∈ ℕ) → (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷))
159	149, 151, 158	saliuncl 46835	. . . . 5 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → ∪ 𝑛 ∈ ℕ (◡𝐹 “ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷))
160	148, 159	eqeltrd 2852	. . . 4 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷))
161	146, 160	jca 518	. . 3 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → (∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝒫 ℝ ∧ (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
162		imaeq2 6031	. . . . 5 ⊢ (𝑒 = ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) → (◡𝐹 “ 𝑒) = (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)))
163	162	eleq1d 2837	. . . 4 ⊢ (𝑒 = ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) → ((◡𝐹 “ 𝑒) ∈ (𝑆 ↾t 𝐷) ↔ (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
164	163, 1	elrab2 3644	. . 3 ⊢ (∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝑇 ↔ (∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝒫 ℝ ∧ (◡𝐹 “ ∪ 𝑛 ∈ ℕ (𝑔‘𝑛)) ∈ (𝑆 ↾t 𝐷)))
165	161, 164	sylibr 236	. 2 ⊢ ((𝜑 ∧ 𝑔:ℕ⟶𝑇) → ∪ 𝑛 ∈ ℕ (𝑔‘𝑛) ∈ 𝑇)
166	5, 24, 25, 133, 165	issalnnd 46857	1 ⊢ (𝜑 → 𝑇 ∈ SAlg)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398  ∀wal 1548   = wceq 1550   ∈ wcel 2132  ∃wrex 3076  {crab 3404  Vcvv 3444   ∖ cdif 3892   ⊆ wss 3895  ∅c0 4276  𝒫 cpw 4545  ∪ cuni 4855  ∪ ciun 4939   class class class wbr 5090   ↦ cmpt 5171  ^◡ccnv 5635  dom cdm 5636   “ cima 5639  Fun wfun 6500   Fn wfn 6501  ⟶wf 6502  ‘cfv 6506  (class class class)co 7381  ωcom 7831   ≼ cdom 8910  ℝcr 11058  1c1 11060   + caddc 11062  ℝ^*cxr 11201   − cmin 11400  ℕcn 12196  (,)cioo 13335   ↾_t crest 17421  SAlgcsalg 46820  SMblFncsmblfn 47207

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1805  ax-4 1819  ax-5 1920  ax-6 1977  ax-7 2018  ax-8 2134  ax-9 2142  ax-10 2165  ax-11 2181  ax-12 2202  ax-ext 2724  ax-rep 5217  ax-sep 5236  ax-nul 5246  ax-pow 5312  ax-pr 5380  ax-un 7703  ax-inf2 9582  ax-cc 10378  ax-ac2 10406  ax-cnex 11115  ax-resscn 11116  ax-1cn 11117  ax-icn 11118  ax-addcl 11119  ax-addrcl 11120  ax-mulcl 11121  ax-mulrcl 11122  ax-mulcom 11123  ax-addass 11124  ax-mulass 11125  ax-distr 11126  ax-i2m1 11127  ax-1ne0 11128  ax-1rid 11129  ax-rnegex 11130  ax-rrecex 11131  ax-cnre 11132  ax-pre-lttri 11133  ax-pre-lttrn 11134  ax-pre-ltadd 11135  ax-pre-mulgt0 11136  ax-pre-sup 11137

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 857  df-3or 1096  df-3an 1097  df-tru 1553  df-fal 1563  df-ex 1790  df-nf 1794  df-sb 2081  df-mo 2556  df-eu 2586  df-clab 2731  df-cleq 2744  df-clel 2827  df-nfc 2901  df-ne 2948  df-nel 3052  df-ral 3067  df-rex 3077  df-rmo 3357  df-reu 3358  df-rab 3405  df-v 3446  df-sbc 3736  df-csb 3844  df-dif 3898  df-un 3900  df-in 3902  df-ss 3912  df-pss 3915  df-nul 4277  df-if 4471  df-pw 4547  df-sn 4573  df-pr 4575  df-op 4579  df-uni 4856  df-int 4896  df-iun 4941  df-iin 4942  df-br 5091  df-opab 5153  df-mpt 5172  df-tr 5198  df-id 5531  df-eprel 5536  df-po 5544  df-so 5545  df-fr 5589  df-se 5590  df-we 5591  df-xp 5642  df-rel 5643  df-cnv 5644  df-co 5645  df-dm 5646  df-rn 5647  df-res 5648  df-ima 5649  df-pred 6273  df-ord 6334  df-on 6335  df-lim 6336  df-suc 6337  df-iota 6462  df-fun 6508  df-fn 6509  df-f 6510  df-f1 6511  df-fo 6512  df-f1o 6513  df-fv 6514  df-isom 6515  df-riota 7338  df-ov 7384  df-oprab 7385  df-mpo 7386  df-om 7832  df-1st 7955  df-2nd 7956  df-frecs 8246  df-wrecs 8277  df-recs 8326  df-rdg 8365  df-1o 8421  df-2o 8422  df-er 8662  df-map 8794  df-pm 8795  df-en 8913  df-dom 8914  df-sdom 8915  df-fin 8916  df-sup 9374  df-inf 9375  df-card 9883  df-acn 9886  df-ac 10058  df-pnf 11204  df-mnf 11205  df-xr 11206  df-ltxr 11207  df-le 11208  df-sub 11402  df-neg 11403  df-div 11831  df-nn 12197  df-n0 12468  df-z 12555  df-uz 12826  df-q 12936  df-rp 12980  df-ioo 13339  df-ico 13341  df-fl 13788  df-rest 17423  df-salg 46821  df-smblfn 47208

This theorem is referenced by:  smfpimbor1lem1  47310  smfpimbor1lem2  47311