Theorem smfsupmpt 43083

Description: The supremum of a countable set of sigma-measurable functions is sigma-measurable. Proposition 121F (b) of [Fremlin1] p. 38 . (Contributed by Glauco Siliprandi, 23-Oct-2021.)

Hypotheses

Ref	Expression
smfsupmpt.n	⊢ Ⅎ𝑛𝜑
smfsupmpt.x	⊢ Ⅎ𝑥𝜑
smfsupmpt.y	⊢ Ⅎ𝑦𝜑
smfsupmpt.m	⊢ (𝜑 → 𝑀 ∈ ℤ)
smfsupmpt.z	⊢ 𝑍 = (ℤ≥‘𝑀)
smfsupmpt.s	⊢ (𝜑 → 𝑆 ∈ SAlg)
smfsupmpt.b	⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉)
smfsupmpt.f	⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍) → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ (SMblFn‘𝑆))
smfsupmpt.d	⊢ 𝐷 = {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴 ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦}
smfsupmpt.g	⊢ 𝐺 = (𝑥 ∈ 𝐷 ↦ sup(ran (𝑛 ∈ 𝑍 ↦ 𝐵), ℝ, < ))

Assertion

Ref	Expression
smfsupmpt	⊢ (𝜑 → 𝐺 ∈ (SMblFn‘𝑆))

Distinct variable groups:   𝑥,𝐴,𝑦   𝑦,𝐵   𝑆,𝑛   𝑛,𝑍,𝑥,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑦,𝑛)   𝐴(𝑛)   𝐵(𝑥,𝑛)   𝐷(𝑥,𝑦,𝑛)   𝑆(𝑥,𝑦)   𝐺(𝑥,𝑦,𝑛)   𝑀(𝑥,𝑦,𝑛)   𝑉(𝑥,𝑦,𝑛)

Proof of Theorem smfsupmpt

Step	Hyp	Ref	Expression
1		smfsupmpt.g	. . . 4 ⊢ 𝐺 = (𝑥 ∈ 𝐷 ↦ sup(ran (𝑛 ∈ 𝑍 ↦ 𝐵), ℝ, < ))
2	1	a1i 11	. . 3 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐷 ↦ sup(ran (𝑛 ∈ 𝑍 ↦ 𝐵), ℝ, < )))
3		smfsupmpt.x	. . . . 5 ⊢ Ⅎ𝑥𝜑
4		smfsupmpt.d	. . . . . . 7 ⊢ 𝐷 = {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴 ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦}
5	4	a1i 11	. . . . . 6 ⊢ (𝜑 → 𝐷 = {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴 ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦})
6		smfsupmpt.n	. . . . . . . . 9 ⊢ Ⅎ𝑛𝜑
7		eqidd 2822	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵)) = (𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵)))
8		smfsupmpt.f	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍) → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ (SMblFn‘𝑆))
9	7, 8	fvmpt2d 6775	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍) → ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) = (𝑥 ∈ 𝐴 ↦ 𝐵))
10	9	dmeqd 5768	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍) → dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) = dom (𝑥 ∈ 𝐴 ↦ 𝐵))
11		nfcv 2977	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥𝑛
12		nfcv 2977	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥𝑍
13	11, 12	nfel 2992	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥 𝑛 ∈ 𝑍
14	3, 13	nfan 1896	. . . . . . . . . . 11 ⊢ Ⅎ𝑥(𝜑 ∧ 𝑛 ∈ 𝑍)
15		eqid 2821	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝐴 ↦ 𝐵) = (𝑥 ∈ 𝐴 ↦ 𝐵)
16		smfsupmpt.s	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑆 ∈ SAlg)
17	16	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍) → 𝑆 ∈ SAlg)
18		smfsupmpt.b	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉)
19	18	3expa 1114	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑛 ∈ 𝑍) ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉)
20	14, 17, 19, 8	smffmpt 43073	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍) → (𝑥 ∈ 𝐴 ↦ 𝐵):𝐴⟶ℝ)
21	20	fvmptelrn 6871	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑛 ∈ 𝑍) ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℝ)
22	14, 15, 21	dmmptdf 41481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍) → dom (𝑥 ∈ 𝐴 ↦ 𝐵) = 𝐴)
23		eqidd 2822	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍) → 𝐴 = 𝐴)
24	10, 22, 23	3eqtrrd 2861	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍) → 𝐴 = dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛))
25	6, 24	iineq2d 4934	. . . . . . . 8 ⊢ (𝜑 → ∩ 𝑛 ∈ 𝑍 𝐴 = ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛))
26		nfcv 2977	. . . . . . . . 9 ⊢ Ⅎ𝑥∩ 𝑛 ∈ 𝑍 𝐴
27		nfmpt1 5156	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥(𝑥 ∈ 𝐴 ↦ 𝐵)
28	12, 27	nfmpt 5155	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥(𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))
29	28, 11	nffv 6674	. . . . . . . . . . 11 ⊢ Ⅎ𝑥((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)
30	29	nfdm 5817	. . . . . . . . . 10 ⊢ Ⅎ𝑥dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)
31	12, 30	nfiin 4942	. . . . . . . . 9 ⊢ Ⅎ𝑥∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)
32	26, 31	rabeqf 3481	. . . . . . . 8 ⊢ (∩ 𝑛 ∈ 𝑍 𝐴 = ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) → {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴 ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦} = {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦})
33	25, 32	syl 17	. . . . . . 7 ⊢ (𝜑 → {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴 ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦} = {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦})
34		smfsupmpt.y	. . . . . . . . . 10 ⊢ Ⅎ𝑦𝜑
35		nfv 1911	. . . . . . . . . 10 ⊢ Ⅎ𝑦 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)
36	34, 35	nfan 1896	. . . . . . . . 9 ⊢ Ⅎ𝑦(𝜑 ∧ 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛))
37		nfcv 2977	. . . . . . . . . . . 12 ⊢ Ⅎ𝑛𝑥
38		nfii1 4946	. . . . . . . . . . . 12 ⊢ Ⅎ𝑛∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)
39	37, 38	nfel 2992	. . . . . . . . . . 11 ⊢ Ⅎ𝑛 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)
40	6, 39	nfan 1896	. . . . . . . . . 10 ⊢ Ⅎ𝑛(𝜑 ∧ 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛))
41		simpll 765	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)) ∧ 𝑛 ∈ 𝑍) → 𝜑)
42		simpr 487	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)) ∧ 𝑛 ∈ 𝑍) → 𝑛 ∈ 𝑍)
43		eliinid 41370	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∧ 𝑛 ∈ 𝑍) → 𝑥 ∈ dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛))
44	43	adantll 712	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)) ∧ 𝑛 ∈ 𝑍) → 𝑥 ∈ dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛))
45	24	eqcomd 2827	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍) → dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) = 𝐴)
46	45	adantlr 713	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)) ∧ 𝑛 ∈ 𝑍) → dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) = 𝐴)
47	44, 46	eleqtrd 2915	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)) ∧ 𝑛 ∈ 𝑍) → 𝑥 ∈ 𝐴)
48	9	fveq1d 6666	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍) → (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) = ((𝑥 ∈ 𝐴 ↦ 𝐵)‘𝑥))
49	48	3adant3 1128	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍 ∧ 𝑥 ∈ 𝐴) → (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) = ((𝑥 ∈ 𝐴 ↦ 𝐵)‘𝑥))
50		simp3 1134	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍 ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ 𝐴)
51	15	fvmpt2 6773	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝐵 ∈ 𝑉) → ((𝑥 ∈ 𝐴 ↦ 𝐵)‘𝑥) = 𝐵)
52	50, 18, 51	syl2anc 586	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍 ∧ 𝑥 ∈ 𝐴) → ((𝑥 ∈ 𝐴 ↦ 𝐵)‘𝑥) = 𝐵)
53	49, 52	eqtr2d 2857	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍 ∧ 𝑥 ∈ 𝐴) → 𝐵 = (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥))
54	53	breq1d 5068	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍 ∧ 𝑥 ∈ 𝐴) → (𝐵 ≤ 𝑦 ↔ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦))
55	41, 42, 47, 54	syl3anc 1367	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)) ∧ 𝑛 ∈ 𝑍) → (𝐵 ≤ 𝑦 ↔ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦))
56	40, 55	ralbida 3230	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)) → (∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦 ↔ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦))
57	36, 56	rexbid 3320	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)) → (∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦 ↔ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦))
58	3, 57	rabbida 3474	. . . . . . 7 ⊢ (𝜑 → {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦} = {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦})
59	33, 58	eqtrd 2856	. . . . . 6 ⊢ (𝜑 → {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴 ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦} = {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦})
60	5, 59	eqtrd 2856	. . . . 5 ⊢ (𝜑 → 𝐷 = {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦})
61	3, 60	alrimi 2209	. . . 4 ⊢ (𝜑 → ∀𝑥 𝐷 = {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦})
62		nfcv 2977	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑛ℝ
63		nfra1 3219	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑛∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦
64	62, 63	nfrex 3309	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑛∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦
65		nfii1 4946	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑛∩ 𝑛 ∈ 𝑍 𝐴
66	64, 65	nfrabw 3385	. . . . . . . . . . . 12 ⊢ Ⅎ𝑛{𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴 ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦}
67	4, 66	nfcxfr 2975	. . . . . . . . . . 11 ⊢ Ⅎ𝑛𝐷
68	37, 67	nfel 2992	. . . . . . . . . 10 ⊢ Ⅎ𝑛 𝑥 ∈ 𝐷
69	6, 68	nfan 1896	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝜑 ∧ 𝑥 ∈ 𝐷)
70		simpll 765	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑛 ∈ 𝑍) → 𝜑)
71		simpr 487	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑛 ∈ 𝑍) → 𝑛 ∈ 𝑍)
72	4	eleq2i 2904	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ 𝐷 ↔ 𝑥 ∈ {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴 ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦})
73	72	biimpi 218	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ 𝐷 → 𝑥 ∈ {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴 ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦})
74		rabidim1 3380	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴 ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 𝐵 ≤ 𝑦} → 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴)
75	73, 74	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝐷 → 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴)
76	75	adantr 483	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ 𝐷 ∧ 𝑛 ∈ 𝑍) → 𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴)
77		simpr 487	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ 𝐷 ∧ 𝑛 ∈ 𝑍) → 𝑛 ∈ 𝑍)
78		eliinid 41370	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ ∩ 𝑛 ∈ 𝑍 𝐴 ∧ 𝑛 ∈ 𝑍) → 𝑥 ∈ 𝐴)
79	76, 77, 78	syl2anc 586	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ 𝐷 ∧ 𝑛 ∈ 𝑍) → 𝑥 ∈ 𝐴)
80	79	adantll 712	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑛 ∈ 𝑍) → 𝑥 ∈ 𝐴)
81	53	idi 1	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑍 ∧ 𝑥 ∈ 𝐴) → 𝐵 = (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥))
82	70, 71, 80, 81	syl3anc 1367	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑛 ∈ 𝑍) → 𝐵 = (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥))
83	69, 82	mpteq2da 5152	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝑛 ∈ 𝑍 ↦ 𝐵) = (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)))
84	83	rneqd 5802	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → ran (𝑛 ∈ 𝑍 ↦ 𝐵) = ran (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)))
85	84	supeq1d 8904	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → sup(ran (𝑛 ∈ 𝑍 ↦ 𝐵), ℝ, < ) = sup(ran (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)), ℝ, < ))
86	85	ex 415	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝐷 → sup(ran (𝑛 ∈ 𝑍 ↦ 𝐵), ℝ, < ) = sup(ran (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)), ℝ, < )))
87	3, 86	ralrimi 3216	. . . 4 ⊢ (𝜑 → ∀𝑥 ∈ 𝐷 sup(ran (𝑛 ∈ 𝑍 ↦ 𝐵), ℝ, < ) = sup(ran (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)), ℝ, < ))
88		mpteq12f 5141	. . . 4 ⊢ ((∀𝑥 𝐷 = {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦} ∧ ∀𝑥 ∈ 𝐷 sup(ran (𝑛 ∈ 𝑍 ↦ 𝐵), ℝ, < ) = sup(ran (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)), ℝ, < )) → (𝑥 ∈ 𝐷 ↦ sup(ran (𝑛 ∈ 𝑍 ↦ 𝐵), ℝ, < )) = (𝑥 ∈ {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦} ↦ sup(ran (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)), ℝ, < )))
89	61, 87, 88	syl2anc 586	. . 3 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ sup(ran (𝑛 ∈ 𝑍 ↦ 𝐵), ℝ, < )) = (𝑥 ∈ {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦} ↦ sup(ran (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)), ℝ, < )))
90	2, 89	eqtrd 2856	. 2 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦} ↦ sup(ran (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)), ℝ, < )))
91		nfmpt1 5156	. . 3 ⊢ Ⅎ𝑛(𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))
92		smfsupmpt.m	. . 3 ⊢ (𝜑 → 𝑀 ∈ ℤ)
93		smfsupmpt.z	. . 3 ⊢ 𝑍 = (ℤ≥‘𝑀)
94		eqid 2821	. . . 4 ⊢ (𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵)) = (𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))
95	6, 8, 94	fmptdf 6875	. . 3 ⊢ (𝜑 → (𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵)):𝑍⟶(SMblFn‘𝑆))
96		eqid 2821	. . 3 ⊢ {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦} = {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦}
97		eqid 2821	. . 3 ⊢ (𝑥 ∈ {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦} ↦ sup(ran (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)), ℝ, < )) = (𝑥 ∈ {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦} ↦ sup(ran (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)), ℝ, < ))
98	91, 28, 92, 93, 16, 95, 96, 97	smfsup 43082	. 2 ⊢ (𝜑 → (𝑥 ∈ {𝑥 ∈ ∩ 𝑛 ∈ 𝑍 dom ((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛) ∣ ∃𝑦 ∈ ℝ ∀𝑛 ∈ 𝑍 (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥) ≤ 𝑦} ↦ sup(ran (𝑛 ∈ 𝑍 ↦ (((𝑛 ∈ 𝑍 ↦ (𝑥 ∈ 𝐴 ↦ 𝐵))‘𝑛)‘𝑥)), ℝ, < )) ∈ (SMblFn‘𝑆))
99	90, 98	eqeltrd 2913	1 ⊢ (𝜑 → 𝐺 ∈ (SMblFn‘𝑆))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1083  ∀wal 1531   = wceq 1533  Ⅎwnf 1780   ∈ wcel 2110  ∀wral 3138  ∃wrex 3139  {crab 3142  ∩ ciin 4912   class class class wbr 5058   ↦ cmpt 5138  dom cdm 5549  ran crn 5550  ‘cfv 6349  supcsup 8898  ℝcr 10530   < clt 10669   ≤ cle 10670  ℤcz 11975  ℤ_≥cuz 12237  SAlgcsalg 42587  SMblFncsmblfn 42971

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793  ax-rep 5182  ax-sep 5195  ax-nul 5202  ax-pow 5258  ax-pr 5321  ax-un 7455  ax-inf2 9098  ax-cc 9851  ax-ac2 9879  ax-cnex 10587  ax-resscn 10588  ax-1cn 10589  ax-icn 10590  ax-addcl 10591  ax-addrcl 10592  ax-mulcl 10593  ax-mulrcl 10594  ax-mulcom 10595  ax-addass 10596  ax-mulass 10597  ax-distr 10598  ax-i2m1 10599  ax-1ne0 10600  ax-1rid 10601  ax-rnegex 10602  ax-rrecex 10603  ax-cnre 10604  ax-pre-lttri 10605  ax-pre-lttrn 10606  ax-pre-ltadd 10607  ax-pre-mulgt0 10608  ax-pre-sup 10609

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3772  df-csb 3883  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-pss 3953  df-nul 4291  df-if 4467  df-pw 4540  df-sn 4561  df-pr 4563  df-tp 4565  df-op 4567  df-uni 4832  df-int 4869  df-iun 4913  df-iin 4914  df-br 5059  df-opab 5121  df-mpt 5139  df-tr 5165  df-id 5454  df-eprel 5459  df-po 5468  df-so 5469  df-fr 5508  df-se 5509  df-we 5510  df-xp 5555  df-rel 5556  df-cnv 5557  df-co 5558  df-dm 5559  df-rn 5560  df-res 5561  df-ima 5562  df-pred 6142  df-ord 6188  df-on 6189  df-lim 6190  df-suc 6191  df-iota 6308  df-fun 6351  df-fn 6352  df-f 6353  df-f1 6354  df-fo 6355  df-f1o 6356  df-fv 6357  df-isom 6358  df-riota 7108  df-ov 7153  df-oprab 7154  df-mpo 7155  df-om 7575  df-1st 7683  df-2nd 7684  df-wrecs 7941  df-recs 8002  df-rdg 8040  df-1o 8096  df-oadd 8100  df-omul 8101  df-er 8283  df-map 8402  df-pm 8403  df-en 8504  df-dom 8505  df-sdom 8506  df-fin 8507  df-sup 8900  df-inf 8901  df-oi 8968  df-card 9362  df-acn 9365  df-ac 9536  df-pnf 10671  df-mnf 10672  df-xr 10673  df-ltxr 10674  df-le 10675  df-sub 10866  df-neg 10867  df-div 11292  df-nn 11633  df-n0 11892  df-z 11976  df-uz 12238  df-q 12343  df-rp 12384  df-ioo 12736  df-ioc 12737  df-ico 12738  df-fl 13156  df-rest 16690  df-topgen 16711  df-top 21496  df-bases 21548  df-salg 42588  df-salgen 42592  df-smblfn 42972

This theorem is referenced by:  smfinflem  43085