Metamath Proof Explorer


Theorem sssmf

Description: The restriction of a sigma-measurable function, is sigma-measurable. (Contributed by Glauco Siliprandi, 26-Jun-2021)

Ref Expression
Hypotheses sssmf.s φ S SAlg
sssmf.f φ F SMblFn S
Assertion sssmf φ F B SMblFn S

Proof

Step Hyp Ref Expression
1 sssmf.s φ S SAlg
2 sssmf.f φ F SMblFn S
3 nfv a φ
4 inss2 B dom F dom F
5 eqid dom F = dom F
6 1 2 5 smfdmss φ dom F S
7 4 6 sstrid φ B dom F S
8 resindm F B dom F = F B
9 8 a1i φ F B dom F = F B
10 1 2 5 smff φ F : dom F
11 4 a1i φ B dom F dom F
12 10 11 fssresd φ F B dom F : B dom F
13 9 12 feq1dd φ F B : B dom F
14 1 adantr φ a S SAlg
15 2 adantr φ a F SMblFn S
16 simpr φ a a
17 14 15 5 16 smfpreimalt φ a x dom F | F x < a S 𝑡 dom F
18 2 dmexd φ dom F V
19 elrest S SAlg dom F V x dom F | F x < a S 𝑡 dom F w S x dom F | F x < a = w dom F
20 1 18 19 syl2anc φ x dom F | F x < a S 𝑡 dom F w S x dom F | F x < a = w dom F
21 20 adantr φ a x dom F | F x < a S 𝑡 dom F w S x dom F | F x < a = w dom F
22 17 21 mpbid φ a w S x dom F | F x < a = w dom F
23 elinel1 x B dom F x B
24 23 fvresd x B dom F F B x = F x
25 24 breq1d x B dom F F B x < a F x < a
26 25 rabbiia x B dom F | F B x < a = x B dom F | F x < a
27 rabss2 B dom F dom F x B dom F | F x < a x dom F | F x < a
28 4 27 ax-mp x B dom F | F x < a x dom F | F x < a
29 id x dom F | F x < a = w dom F x dom F | F x < a = w dom F
30 inss1 w dom F w
31 29 30 eqsstrdi x dom F | F x < a = w dom F x dom F | F x < a w
32 28 31 sstrid x dom F | F x < a = w dom F x B dom F | F x < a w
33 ssrab2 x B dom F | F x < a B dom F
34 33 a1i x dom F | F x < a = w dom F x B dom F | F x < a B dom F
35 32 34 ssind x dom F | F x < a = w dom F x B dom F | F x < a w B dom F
36 nfrab1 _ x x dom F | F x < a
37 36 nfeq1 x x dom F | F x < a = w dom F
38 nfcv _ x w B dom F
39 nfrab1 _ x x B dom F | F x < a
40 elinel2 x w B dom F x B dom F
41 40 adantl x dom F | F x < a = w dom F x w B dom F x B dom F
42 elinel1 x w B dom F x w
43 40 elin2d x w B dom F x dom F
44 42 43 elind x w B dom F x w dom F
45 44 adantl x dom F | F x < a = w dom F x w B dom F x w dom F
46 29 eqcomd x dom F | F x < a = w dom F w dom F = x dom F | F x < a
47 46 adantr x dom F | F x < a = w dom F x w B dom F w dom F = x dom F | F x < a
48 45 47 eleqtrd x dom F | F x < a = w dom F x w B dom F x x dom F | F x < a
49 rabidim2 x x dom F | F x < a F x < a
50 48 49 syl x dom F | F x < a = w dom F x w B dom F F x < a
51 41 50 rabidd x dom F | F x < a = w dom F x w B dom F x x B dom F | F x < a
52 37 38 39 51 ssdf2 x dom F | F x < a = w dom F w B dom F x B dom F | F x < a
53 35 52 eqssd x dom F | F x < a = w dom F x B dom F | F x < a = w B dom F
54 26 53 eqtrid x dom F | F x < a = w dom F x B dom F | F B x < a = w B dom F
55 54 3ad2ant3 φ a w S x dom F | F x < a = w dom F x B dom F | F B x < a = w B dom F
56 14 3ad2ant1 φ a w S x dom F | F x < a = w dom F S SAlg
57 simp1l φ a w S x dom F | F x < a = w dom F φ
58 18 11 ssexd φ B dom F V
59 57 58 syl φ a w S x dom F | F x < a = w dom F B dom F V
60 simp2 φ a w S x dom F | F x < a = w dom F w S
61 eqid w B dom F = w B dom F
62 56 59 60 61 elrestd φ a w S x dom F | F x < a = w dom F w B dom F S 𝑡 B dom F
63 55 62 eqeltrd φ a w S x dom F | F x < a = w dom F x B dom F | F B x < a S 𝑡 B dom F
64 63 rexlimdv3a φ a w S x dom F | F x < a = w dom F x B dom F | F B x < a S 𝑡 B dom F
65 22 64 mpd φ a x B dom F | F B x < a S 𝑡 B dom F
66 3 1 7 13 65 issmfd φ F B SMblFn S