Theorem incsmf 47022

Description: A real-valued, nondecreasing function is Borel measurable. Proposition 121D (c) of [Fremlin1] p. 36 . (Contributed by Glauco Siliprandi, 26-Jun-2021.)

Hypotheses

Ref	Expression
incsmf.a	⊢ (𝜑 → 𝐴 ⊆ ℝ)
incsmf.f	⊢ (𝜑 → 𝐹:𝐴⟶ℝ)
incsmf.i	⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≤ (𝐹‘𝑦)))
incsmf.j	⊢ 𝐽 = (topGen‘ran (,))
incsmf.b	⊢ 𝐵 = (SalGen‘𝐽)

Assertion

Ref	Expression
incsmf	⊢ (𝜑 → 𝐹 ∈ (SMblFn‘𝐵))

Distinct variable groups:   𝑥,𝐴,𝑦   𝑥,𝐹,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑦)   𝐵(𝑥,𝑦)   𝐽(𝑥,𝑦)

Proof of Theorem incsmf

Dummy variables 𝑏 𝑤 𝑧 𝑎 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		nfv 1916	. 2 ⊢ Ⅎ𝑎𝜑
2		incsmf.j	. . . . 5 ⊢ 𝐽 = (topGen‘ran (,))
3		retop 24709	. . . . 5 ⊢ (topGen‘ran (,)) ∈ Top
4	2, 3	eqeltri 2833	. . . 4 ⊢ 𝐽 ∈ Top
5	4	a1i 11	. . 3 ⊢ (𝜑 → 𝐽 ∈ Top)
6		incsmf.b	. . 3 ⊢ 𝐵 = (SalGen‘𝐽)
7	5, 6	salgencld 46629	. 2 ⊢ (𝜑 → 𝐵 ∈ SAlg)
8		incsmf.a	. . 3 ⊢ (𝜑 → 𝐴 ⊆ ℝ)
9	5, 6	unisalgen2 46634	. . . 4 ⊢ (𝜑 → ∪ 𝐵 = ∪ 𝐽)
10	2	unieqi 4876	. . . . 5 ⊢ ∪ 𝐽 = ∪ (topGen‘ran (,))
11	10	a1i 11	. . . 4 ⊢ (𝜑 → ∪ 𝐽 = ∪ (topGen‘ran (,)))
12		uniretop 24710	. . . . . 6 ⊢ ℝ = ∪ (topGen‘ran (,))
13	12	eqcomi 2746	. . . . 5 ⊢ ∪ (topGen‘ran (,)) = ℝ
14	13	a1i 11	. . . 4 ⊢ (𝜑 → ∪ (topGen‘ran (,)) = ℝ)
15	9, 11, 14	3eqtrrd 2777	. . 3 ⊢ (𝜑 → ℝ = ∪ 𝐵)
16	8, 15	sseqtrd 3971	. 2 ⊢ (𝜑 → 𝐴 ⊆ ∪ 𝐵)
17		incsmf.f	. 2 ⊢ (𝜑 → 𝐹:𝐴⟶ℝ)
18		nfv 1916	. . . 4 ⊢ Ⅎ𝑤(𝜑 ∧ 𝑎 ∈ ℝ)
19		nfv 1916	. . . 4 ⊢ Ⅎ𝑧(𝜑 ∧ 𝑎 ∈ ℝ)
20	8	adantr 480	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ ℝ) → 𝐴 ⊆ ℝ)
21	17	frexr 45665	. . . . 5 ⊢ (𝜑 → 𝐹:𝐴⟶ℝ*)
22	21	adantr 480	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ ℝ) → 𝐹:𝐴⟶ℝ*)
23		incsmf.i	. . . . . 6 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≤ (𝐹‘𝑦)))
24		breq1 5102	. . . . . . . 8 ⊢ (𝑥 = 𝑤 → (𝑥 ≤ 𝑦 ↔ 𝑤 ≤ 𝑦))
25		fveq2 6835	. . . . . . . . 9 ⊢ (𝑥 = 𝑤 → (𝐹‘𝑥) = (𝐹‘𝑤))
26	25	breq1d 5109	. . . . . . . 8 ⊢ (𝑥 = 𝑤 → ((𝐹‘𝑥) ≤ (𝐹‘𝑦) ↔ (𝐹‘𝑤) ≤ (𝐹‘𝑦)))
27	24, 26	imbi12d 344	. . . . . . 7 ⊢ (𝑥 = 𝑤 → ((𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≤ (𝐹‘𝑦)) ↔ (𝑤 ≤ 𝑦 → (𝐹‘𝑤) ≤ (𝐹‘𝑦))))
28		breq2 5103	. . . . . . . 8 ⊢ (𝑦 = 𝑧 → (𝑤 ≤ 𝑦 ↔ 𝑤 ≤ 𝑧))
29		fveq2 6835	. . . . . . . . 9 ⊢ (𝑦 = 𝑧 → (𝐹‘𝑦) = (𝐹‘𝑧))
30	29	breq2d 5111	. . . . . . . 8 ⊢ (𝑦 = 𝑧 → ((𝐹‘𝑤) ≤ (𝐹‘𝑦) ↔ (𝐹‘𝑤) ≤ (𝐹‘𝑧)))
31	28, 30	imbi12d 344	. . . . . . 7 ⊢ (𝑦 = 𝑧 → ((𝑤 ≤ 𝑦 → (𝐹‘𝑤) ≤ (𝐹‘𝑦)) ↔ (𝑤 ≤ 𝑧 → (𝐹‘𝑤) ≤ (𝐹‘𝑧))))
32	27, 31	cbvral2vw 3219	. . . . . 6 ⊢ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≤ (𝐹‘𝑦)) ↔ ∀𝑤 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (𝑤 ≤ 𝑧 → (𝐹‘𝑤) ≤ (𝐹‘𝑧)))
33	23, 32	sylib 218	. . . . 5 ⊢ (𝜑 → ∀𝑤 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (𝑤 ≤ 𝑧 → (𝐹‘𝑤) ≤ (𝐹‘𝑧)))
34	33	adantr 480	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ ℝ) → ∀𝑤 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (𝑤 ≤ 𝑧 → (𝐹‘𝑤) ≤ (𝐹‘𝑧)))
35		rexr 11182	. . . . 5 ⊢ (𝑎 ∈ ℝ → 𝑎 ∈ ℝ*)
36	35	adantl 481	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ ℝ) → 𝑎 ∈ ℝ*)
37	25	breq1d 5109	. . . . 5 ⊢ (𝑥 = 𝑤 → ((𝐹‘𝑥) < 𝑎 ↔ (𝐹‘𝑤) < 𝑎))
38	37	cbvrabv 3410	. . . 4 ⊢ {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎} = {𝑤 ∈ 𝐴 ∣ (𝐹‘𝑤) < 𝑎}
39		eqid 2737	. . . 4 ⊢ sup({𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎}, ℝ*, < ) = sup({𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎}, ℝ*, < )
40		eqid 2737	. . . 4 ⊢ (-∞(,)sup({𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎}, ℝ*, < )) = (-∞(,)sup({𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎}, ℝ*, < ))
41		eqid 2737	. . . 4 ⊢ (-∞(,]sup({𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎}, ℝ*, < )) = (-∞(,]sup({𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎}, ℝ*, < ))
42	18, 19, 20, 22, 34, 2, 6, 36, 38, 39, 40, 41	incsmflem 47021	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ ℝ) → ∃𝑏 ∈ 𝐵 {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎} = (𝑏 ∩ 𝐴))
43		reex 11121	. . . . . . 7 ⊢ ℝ ∈ V
44	43	a1i 11	. . . . . 6 ⊢ (𝜑 → ℝ ∈ V)
45	44, 8	ssexd 5270	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ V)
46		elrest 17351	. . . . 5 ⊢ ((𝐵 ∈ SAlg ∧ 𝐴 ∈ V) → ({𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎} ∈ (𝐵 ↾t 𝐴) ↔ ∃𝑏 ∈ 𝐵 {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎} = (𝑏 ∩ 𝐴)))
47	7, 45, 46	syl2anc 585	. . . 4 ⊢ (𝜑 → ({𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎} ∈ (𝐵 ↾t 𝐴) ↔ ∃𝑏 ∈ 𝐵 {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎} = (𝑏 ∩ 𝐴)))
48	47	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ ℝ) → ({𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎} ∈ (𝐵 ↾t 𝐴) ↔ ∃𝑏 ∈ 𝐵 {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎} = (𝑏 ∩ 𝐴)))
49	42, 48	mpbird 257	. 2 ⊢ ((𝜑 ∧ 𝑎 ∈ ℝ) → {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) < 𝑎} ∈ (𝐵 ↾t 𝐴))
50	1, 7, 16, 17, 49	issmfd 47015	1 ⊢ (𝜑 → 𝐹 ∈ (SMblFn‘𝐵))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114  ∀wral 3052  ∃wrex 3061  {crab 3400  Vcvv 3441   ∩ cin 3901   ⊆ wss 3902  ∪ cuni 4864   class class class wbr 5099  ran crn 5626  ⟶wf 6489  ‘cfv 6493  (class class class)co 7360  supcsup 9347  ℝcr 11029  -∞cmnf 11168  ℝ^*cxr 11169   < clt 11170   ≤ cle 11171  (,)cioo 13265  (,]cioc 13266   ↾_t crest 17344  topGenctg 17361  Topctop 22841  SAlgcsalg 46588  SalGencsalgen 46592  SMblFncsmblfn 46975

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5225  ax-sep 5242  ax-nul 5252  ax-pow 5311  ax-pr 5378  ax-un 7682  ax-inf2 9554  ax-cnex 11086  ax-resscn 11087  ax-1cn 11088  ax-icn 11089  ax-addcl 11090  ax-addrcl 11091  ax-mulcl 11092  ax-mulrcl 11093  ax-mulcom 11094  ax-addass 11095  ax-mulass 11096  ax-distr 11097  ax-i2m1 11098  ax-1ne0 11099  ax-1rid 11100  ax-rnegex 11101  ax-rrecex 11102  ax-cnre 11103  ax-pre-lttri 11104  ax-pre-lttrn 11105  ax-pre-ltadd 11106  ax-pre-mulgt0 11107  ax-pre-sup 11108

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3062  df-rmo 3351  df-reu 3352  df-rab 3401  df-v 3443  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4287  df-if 4481  df-pw 4557  df-sn 4582  df-pr 4584  df-op 4588  df-uni 4865  df-int 4904  df-iun 4949  df-iin 4950  df-br 5100  df-opab 5162  df-mpt 5181  df-tr 5207  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-se 5579  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6260  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-isom 6502  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-om 7811  df-1st 7935  df-2nd 7936  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-rdg 8343  df-er 8637  df-map 8769  df-pm 8770  df-en 8888  df-dom 8889  df-sdom 8890  df-sup 9349  df-inf 9350  df-card 9855  df-acn 9858  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-div 11799  df-nn 12150  df-n0 12406  df-z 12493  df-uz 12756  df-q 12866  df-rp 12910  df-ioo 13269  df-ioc 13270  df-ico 13271  df-fl 13716  df-rest 17346  df-topgen 17367  df-top 22842  df-bases 22894  df-salg 46589  df-salgen 46593  df-smblfn 46976

This theorem is referenced by:  smfid  47032