Metamath Proof Explorer


Theorem mrcuni

Description: Idempotence of closure under a general union. (Contributed by Stefan O'Rear, 31-Jan-2015)

Ref Expression
Hypothesis mrcfval.f F=mrClsC
Assertion mrcuni CMooreXU𝒫XFU=FFU

Proof

Step Hyp Ref Expression
1 mrcfval.f F=mrClsC
2 simpl CMooreXU𝒫XCMooreX
3 simpll CMooreXU𝒫XsUCMooreX
4 ssel2 U𝒫XsUs𝒫X
5 4 elpwid U𝒫XsUsX
6 5 adantll CMooreXU𝒫XsUsX
7 1 mrcssid CMooreXsXsFs
8 3 6 7 syl2anc CMooreXU𝒫XsUsFs
9 1 mrcf CMooreXF:𝒫XC
10 9 ffund CMooreXFunF
11 10 adantr CMooreXU𝒫XFunF
12 9 fdmd CMooreXdomF=𝒫X
13 12 sseq2d CMooreXUdomFU𝒫X
14 13 biimpar CMooreXU𝒫XUdomF
15 funfvima2 FunFUdomFsUFsFU
16 11 14 15 syl2anc CMooreXU𝒫XsUFsFU
17 16 imp CMooreXU𝒫XsUFsFU
18 elssuni FsFUFsFU
19 17 18 syl CMooreXU𝒫XsUFsFU
20 8 19 sstrd CMooreXU𝒫XsUsFU
21 20 ralrimiva CMooreXU𝒫XsUsFU
22 unissb UFUsUsFU
23 21 22 sylibr CMooreXU𝒫XUFU
24 1 mrcssv CMooreXFxX
25 24 adantr CMooreXU𝒫XFxX
26 25 ralrimivw CMooreXU𝒫XxUFxX
27 9 ffnd CMooreXFFn𝒫X
28 sseq1 s=FxsXFxX
29 28 ralima FFn𝒫XU𝒫XsFUsXxUFxX
30 27 29 sylan CMooreXU𝒫XsFUsXxUFxX
31 26 30 mpbird CMooreXU𝒫XsFUsX
32 unissb FUXsFUsX
33 31 32 sylibr CMooreXU𝒫XFUX
34 1 mrcss CMooreXUFUFUXFUFFU
35 2 23 33 34 syl3anc CMooreXU𝒫XFUFFU
36 simpll CMooreXU𝒫XxUCMooreX
37 elssuni xUxU
38 37 adantl CMooreXU𝒫XxUxU
39 sspwuni U𝒫XUX
40 39 biimpi U𝒫XUX
41 40 adantl CMooreXU𝒫XUX
42 41 adantr CMooreXU𝒫XxUUX
43 1 mrcss CMooreXxUUXFxFU
44 36 38 42 43 syl3anc CMooreXU𝒫XxUFxFU
45 44 ralrimiva CMooreXU𝒫XxUFxFU
46 sseq1 s=FxsFUFxFU
47 46 ralima FFn𝒫XU𝒫XsFUsFUxUFxFU
48 27 47 sylan CMooreXU𝒫XsFUsFUxUFxFU
49 45 48 mpbird CMooreXU𝒫XsFUsFU
50 unissb FUFUsFUsFU
51 49 50 sylibr CMooreXU𝒫XFUFU
52 1 mrcssv CMooreXFUX
53 52 adantr CMooreXU𝒫XFUX
54 1 mrcss CMooreXFUFUFUXFFUFFU
55 2 51 53 54 syl3anc CMooreXU𝒫XFFUFFU
56 1 mrcidm CMooreXUXFFU=FU
57 2 41 56 syl2anc CMooreXU𝒫XFFU=FU
58 55 57 sseqtrd CMooreXU𝒫XFFUFU
59 35 58 eqssd CMooreXU𝒫XFU=FFU