Metamath Proof Explorer


Theorem incsmflem

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

Ref Expression
Hypotheses incsmflem.x ⊢ Ⅎ x φ
incsmflem.y ⊢ Ⅎ y φ
incsmflem.a ⊢ φ → A ⊆ ℝ
incsmflem.f ⊢ φ → F : A ⟶ ℝ *
incsmflem.i ⊢ φ → ∀ x ∈ A ∀ y ∈ A x ≤ y → F ⁡ x ≤ F ⁡ y
incsmflem.j ⊢ J = topGen ⁡ ran ⁡ .
incsmflem.b ⊢ B = SalGen ⁡ J
incsmflem.r ⊢ φ → R ∈ ℝ *
incsmflem.l ⊢ Y = x ∈ A | F ⁡ x < R
incsmflem.c ⊢ C = sup Y ℝ * <
incsmflem.d ⊢ D = −∞ C
incsmflem.e ⊢ E = −∞ C
Assertion incsmflem ⊢ φ → ∃ b ∈ B Y = b ∩ A

Proof

Step Hyp Ref Expression
1 incsmflem.x ⊢ Ⅎ x φ
2 incsmflem.y ⊢ Ⅎ y φ
3 incsmflem.a ⊢ φ → A ⊆ ℝ
4 incsmflem.f ⊢ φ → F : A ⟶ ℝ *
5 incsmflem.i ⊢ φ → ∀ x ∈ A ∀ y ∈ A x ≤ y → F ⁡ x ≤ F ⁡ y
6 incsmflem.j ⊢ J = topGen ⁡ ran ⁡ .
7 incsmflem.b ⊢ B = SalGen ⁡ J
8 incsmflem.r ⊢ φ → R ∈ ℝ *
9 incsmflem.l ⊢ Y = x ∈ A | F ⁡ x < R
10 incsmflem.c ⊢ C = sup Y ℝ * <
11 incsmflem.d ⊢ D = −∞ C
12 incsmflem.e ⊢ E = −∞ C
13 mnfxr ⊢ −∞ ∈ ℝ *
14 13 a1i ⊢ φ ∧ C ∈ Y → −∞ ∈ ℝ *
15 ssrab2 ⊢ x ∈ A | F ⁡ x < R ⊆ A
16 9 15 eqsstri ⊢ Y ⊆ A
17 16 a1i ⊢ φ → Y ⊆ A
18 17 3 sstrd ⊢ φ → Y ⊆ ℝ
19 18 sselda ⊢ φ ∧ C ∈ Y → C ∈ ℝ
20 14 19 6 7 iocborel ⊢ φ ∧ C ∈ Y → −∞ C ∈ B
21 12 20 eqeltrid ⊢ φ ∧ C ∈ Y → E ∈ B
22 nfcv ⊢ Ⅎ _ x C
23 nfrab1 ⊢ Ⅎ _ x x ∈ A | F ⁡ x < R
24 9 23 nfcxfr ⊢ Ⅎ _ x Y
25 22 24 nfel ⊢ Ⅎ x C ∈ Y
26 1 25 nfan ⊢ Ⅎ x φ ∧ C ∈ Y
27 nfv ⊢ Ⅎ y C ∈ Y
28 2 27 nfan ⊢ Ⅎ y φ ∧ C ∈ Y
29 3 adantr ⊢ φ ∧ C ∈ Y → A ⊆ ℝ
30 4 adantr ⊢ φ ∧ C ∈ Y → F : A ⟶ ℝ *
31 5 adantr ⊢ φ ∧ C ∈ Y → ∀ x ∈ A ∀ y ∈ A x ≤ y → F ⁡ x ≤ F ⁡ y
32 8 adantr ⊢ φ ∧ C ∈ Y → R ∈ ℝ *
33 simpr ⊢ φ ∧ C ∈ Y → C ∈ Y
34 26 28 29 30 31 32 9 10 33 12 pimincfltioc ⊢ φ ∧ C ∈ Y → Y = E ∩ A
35 ineq1 ⊢ b = E → b ∩ A = E ∩ A
36 35 rspceeqv ⊢ E ∈ B ∧ Y = E ∩ A → ∃ b ∈ B Y = b ∩ A
37 21 34 36 syl2anc ⊢ φ ∧ C ∈ Y → ∃ b ∈ B Y = b ∩ A
38 6 7 iooborel ⊢ −∞ C ∈ B
39 11 38 eqeltri ⊢ D ∈ B
40 39 a1i ⊢ φ → D ∈ B
41 40 adantr ⊢ φ ∧ ¬ C ∈ Y → D ∈ B
42 25 nfn ⊢ Ⅎ x ¬ C ∈ Y
43 1 42 nfan ⊢ Ⅎ x φ ∧ ¬ C ∈ Y
44 nfv ⊢ Ⅎ y ¬ C ∈ Y
45 2 44 nfan ⊢ Ⅎ y φ ∧ ¬ C ∈ Y
46 3 adantr ⊢ φ ∧ ¬ C ∈ Y → A ⊆ ℝ
47 4 adantr ⊢ φ ∧ ¬ C ∈ Y → F : A ⟶ ℝ *
48 5 adantr ⊢ φ ∧ ¬ C ∈ Y → ∀ x ∈ A ∀ y ∈ A x ≤ y → F ⁡ x ≤ F ⁡ y
49 8 adantr ⊢ φ ∧ ¬ C ∈ Y → R ∈ ℝ *
50 simpr ⊢ φ ∧ ¬ C ∈ Y → ¬ C ∈ Y
51 43 45 46 47 48 49 9 10 50 11 pimincfltioo ⊢ φ ∧ ¬ C ∈ Y → Y = D ∩ A
52 ineq1 ⊢ b = D → b ∩ A = D ∩ A
53 52 rspceeqv ⊢ D ∈ B ∧ Y = D ∩ A → ∃ b ∈ B Y = b ∩ A
54 41 51 53 syl2anc ⊢ φ ∧ ¬ C ∈ Y → ∃ b ∈ B Y = b ∩ A
55 37 54 pm2.61dan ⊢ φ → ∃ b ∈ B Y = b ∩ A