Step | Hyp | Ref
| Expression |
1 | | dvf 25416 |
. . . . 5
β’ (β
D (β β πΉ)):dom
(β D (β β πΉ))βΆβ |
2 | | ffun 6718 |
. . . . 5
β’ ((β
D (β β πΉ)):dom
(β D (β β πΉ))βΆβ β Fun (β D
(β β πΉ))) |
3 | 1, 2 | ax-mp 5 |
. . . 4
β’ Fun
(β D (β β πΉ)) |
4 | | simpll 766 |
. . . . 5
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D πΉ)) β πΉ:πβΆβ) |
5 | | simplr 768 |
. . . . 5
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D πΉ)) β π β β) |
6 | | simpr 486 |
. . . . 5
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D πΉ)) β π₯ β dom (β D πΉ)) |
7 | 4, 5, 6 | dvcjbr 25458 |
. . . 4
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D πΉ)) β π₯(β D (β β πΉ))(ββ((β D
πΉ)βπ₯))) |
8 | | funbrfv 6940 |
. . . 4
β’ (Fun
(β D (β β πΉ)) β (π₯(β D (β β πΉ))(ββ((β D
πΉ)βπ₯)) β ((β D (β β πΉ))βπ₯) = (ββ((β D πΉ)βπ₯)))) |
9 | 3, 7, 8 | mpsyl 68 |
. . 3
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D πΉ)) β ((β D (β β
πΉ))βπ₯) = (ββ((β D
πΉ)βπ₯))) |
10 | 9 | mpteq2dva 5248 |
. 2
β’ ((πΉ:πβΆβ β§ π β β) β (π₯ β dom (β D πΉ) β¦ ((β D (β β
πΉ))βπ₯)) = (π₯ β dom (β D πΉ) β¦ (ββ((β D πΉ)βπ₯)))) |
11 | | cjf 15048 |
. . . . . . . . . . . . 13
β’
β:ββΆβ |
12 | | fco 6739 |
. . . . . . . . . . . . 13
β’
((β:ββΆβ β§ πΉ:πβΆβ) β (β β
πΉ):πβΆβ) |
13 | 11, 12 | mpan 689 |
. . . . . . . . . . . 12
β’ (πΉ:πβΆβ β (β β
πΉ):πβΆβ) |
14 | 13 | ad2antrr 725 |
. . . . . . . . . . 11
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D (β β
πΉ))) β (β
β πΉ):πβΆβ) |
15 | | simplr 768 |
. . . . . . . . . . 11
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D (β β
πΉ))) β π β
β) |
16 | | simpr 486 |
. . . . . . . . . . 11
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D (β β
πΉ))) β π₯ β dom (β D (β
β πΉ))) |
17 | 14, 15, 16 | dvcjbr 25458 |
. . . . . . . . . 10
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D (β β
πΉ))) β π₯(β D (β β
(β β πΉ)))(ββ((β D (β
β πΉ))βπ₯))) |
18 | | vex 3479 |
. . . . . . . . . . 11
β’ π₯ β V |
19 | | fvex 6902 |
. . . . . . . . . . 11
β’
(ββ((β D (β β πΉ))βπ₯)) β V |
20 | 18, 19 | breldm 5907 |
. . . . . . . . . 10
β’ (π₯(β D (β β
(β β πΉ)))(ββ((β D (β
β πΉ))βπ₯)) β π₯ β dom (β D (β β
(β β πΉ)))) |
21 | 17, 20 | syl 17 |
. . . . . . . . 9
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D (β β
πΉ))) β π₯ β dom (β D (β
β (β β πΉ)))) |
22 | 21 | ex 414 |
. . . . . . . 8
β’ ((πΉ:πβΆβ β§ π β β) β (π₯ β dom (β D (β β
πΉ)) β π₯ β dom (β D (β
β (β β πΉ))))) |
23 | 22 | ssrdv 3988 |
. . . . . . 7
β’ ((πΉ:πβΆβ β§ π β β) β dom (β D
(β β πΉ))
β dom (β D (β β (β β πΉ)))) |
24 | | ffvelcdm 7081 |
. . . . . . . . . . . . 13
β’ ((πΉ:πβΆβ β§ π₯ β π) β (πΉβπ₯) β β) |
25 | 24 | adantlr 714 |
. . . . . . . . . . . 12
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β π) β (πΉβπ₯) β β) |
26 | 25 | cjcjd 15143 |
. . . . . . . . . . 11
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β π) β
(ββ(ββ(πΉβπ₯))) = (πΉβπ₯)) |
27 | 26 | mpteq2dva 5248 |
. . . . . . . . . 10
β’ ((πΉ:πβΆβ β§ π β β) β (π₯ β π β¦
(ββ(ββ(πΉβπ₯)))) = (π₯ β π β¦ (πΉβπ₯))) |
28 | 25 | cjcld 15140 |
. . . . . . . . . . 11
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β π) β (ββ(πΉβπ₯)) β β) |
29 | | simpl 484 |
. . . . . . . . . . . . 13
β’ ((πΉ:πβΆβ β§ π β β) β πΉ:πβΆβ) |
30 | 29 | feqmptd 6958 |
. . . . . . . . . . . 12
β’ ((πΉ:πβΆβ β§ π β β) β πΉ = (π₯ β π β¦ (πΉβπ₯))) |
31 | 11 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((πΉ:πβΆβ β§ π β β) β
β:ββΆβ) |
32 | 31 | feqmptd 6958 |
. . . . . . . . . . . 12
β’ ((πΉ:πβΆβ β§ π β β) β β = (π¦ β β β¦
(ββπ¦))) |
33 | | fveq2 6889 |
. . . . . . . . . . . 12
β’ (π¦ = (πΉβπ₯) β (ββπ¦) = (ββ(πΉβπ₯))) |
34 | 25, 30, 32, 33 | fmptco 7124 |
. . . . . . . . . . 11
β’ ((πΉ:πβΆβ β§ π β β) β (β β
πΉ) = (π₯ β π β¦ (ββ(πΉβπ₯)))) |
35 | | fveq2 6889 |
. . . . . . . . . . 11
β’ (π¦ = (ββ(πΉβπ₯)) β (ββπ¦) = (ββ(ββ(πΉβπ₯)))) |
36 | 28, 34, 32, 35 | fmptco 7124 |
. . . . . . . . . 10
β’ ((πΉ:πβΆβ β§ π β β) β (β β
(β β πΉ)) =
(π₯ β π β¦
(ββ(ββ(πΉβπ₯))))) |
37 | 27, 36, 30 | 3eqtr4d 2783 |
. . . . . . . . 9
β’ ((πΉ:πβΆβ β§ π β β) β (β β
(β β πΉ)) =
πΉ) |
38 | 37 | oveq2d 7422 |
. . . . . . . 8
β’ ((πΉ:πβΆβ β§ π β β) β (β D
(β β (β β πΉ))) = (β D πΉ)) |
39 | 38 | dmeqd 5904 |
. . . . . . 7
β’ ((πΉ:πβΆβ β§ π β β) β dom (β D
(β β (β β πΉ))) = dom (β D πΉ)) |
40 | 23, 39 | sseqtrd 4022 |
. . . . . 6
β’ ((πΉ:πβΆβ β§ π β β) β dom (β D
(β β πΉ))
β dom (β D πΉ)) |
41 | | fvex 6902 |
. . . . . . . 8
β’
(ββ((β D πΉ)βπ₯)) β V |
42 | 18, 41 | breldm 5907 |
. . . . . . 7
β’ (π₯(β D (β β
πΉ))(ββ((β D πΉ)βπ₯)) β π₯ β dom (β D (β β
πΉ))) |
43 | 7, 42 | syl 17 |
. . . . . 6
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D πΉ)) β π₯ β dom (β D (β β
πΉ))) |
44 | 40, 43 | eqelssd 4003 |
. . . . 5
β’ ((πΉ:πβΆβ β§ π β β) β dom (β D
(β β πΉ)) = dom
(β D πΉ)) |
45 | 44 | feq2d 6701 |
. . . 4
β’ ((πΉ:πβΆβ β§ π β β) β ((β D
(β β πΉ)):dom
(β D (β β πΉ))βΆβ β (β D
(β β πΉ)):dom
(β D πΉ)βΆβ)) |
46 | 1, 45 | mpbii 232 |
. . 3
β’ ((πΉ:πβΆβ β§ π β β) β (β D
(β β πΉ)):dom
(β D πΉ)βΆβ) |
47 | 46 | feqmptd 6958 |
. 2
β’ ((πΉ:πβΆβ β§ π β β) β (β D
(β β πΉ)) =
(π₯ β dom (β D
πΉ) β¦ ((β D
(β β πΉ))βπ₯))) |
48 | | dvf 25416 |
. . . . 5
β’ (β
D πΉ):dom (β D πΉ)βΆβ |
49 | 48 | ffvelcdmi 7083 |
. . . 4
β’ (π₯ β dom (β D πΉ) β ((β D πΉ)βπ₯) β β) |
50 | 49 | adantl 483 |
. . 3
β’ (((πΉ:πβΆβ β§ π β β) β§ π₯ β dom (β D πΉ)) β ((β D πΉ)βπ₯) β β) |
51 | 48 | a1i 11 |
. . . 4
β’ ((πΉ:πβΆβ β§ π β β) β (β D πΉ):dom (β D πΉ)βΆβ) |
52 | 51 | feqmptd 6958 |
. . 3
β’ ((πΉ:πβΆβ β§ π β β) β (β D πΉ) = (π₯ β dom (β D πΉ) β¦ ((β D πΉ)βπ₯))) |
53 | | fveq2 6889 |
. . 3
β’ (π¦ = ((β D πΉ)βπ₯) β (ββπ¦) = (ββ((β D πΉ)βπ₯))) |
54 | 50, 52, 32, 53 | fmptco 7124 |
. 2
β’ ((πΉ:πβΆβ β§ π β β) β (β β
(β D πΉ)) = (π₯ β dom (β D πΉ) β¦
(ββ((β D πΉ)βπ₯)))) |
55 | 10, 47, 54 | 3eqtr4d 2783 |
1
β’ ((πΉ:πβΆβ β§ π β β) β (β D
(β β πΉ)) =
(β β (β D πΉ))) |