Step | Hyp | Ref
| Expression |
1 | | nn0uz 12864 |
. . 3
β’
β0 = (β€β₯β0) |
2 | | 0zd 12570 |
. . 3
β’ ((π β {β, β} β§
πΉ β (β
βpm π))
β 0 β β€) |
3 | | fvconst2g 7203 |
. . . . 5
β’ ((πΉ β (β
βpm π)
β§ π β
β0) β ((β0 Γ {πΉ})βπ) = πΉ) |
4 | 3 | adantll 713 |
. . . 4
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ π β
β0) β ((β0 Γ {πΉ})βπ) = πΉ) |
5 | | dmexg 7894 |
. . . . . 6
β’ (πΉ β (β
βpm π)
β dom πΉ β
V) |
6 | 5 | ad2antlr 726 |
. . . . 5
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ π β
β0) β dom πΉ β V) |
7 | | cnex 11191 |
. . . . . 6
β’ β
β V |
8 | 7 | a1i 11 |
. . . . 5
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ π β
β0) β β β V) |
9 | | elpm2g 8838 |
. . . . . . . . 9
β’ ((β
β V β§ π β
{β, β}) β (πΉ β (β βpm π) β (πΉ:dom πΉβΆβ β§ dom πΉ β π))) |
10 | 7, 9 | mpan 689 |
. . . . . . . 8
β’ (π β {β, β}
β (πΉ β (β
βpm π)
β (πΉ:dom πΉβΆβ β§ dom πΉ β π))) |
11 | 10 | biimpa 478 |
. . . . . . 7
β’ ((π β {β, β} β§
πΉ β (β
βpm π))
β (πΉ:dom πΉβΆβ β§ dom πΉ β π)) |
12 | 11 | simpld 496 |
. . . . . 6
β’ ((π β {β, β} β§
πΉ β (β
βpm π))
β πΉ:dom πΉβΆβ) |
13 | 12 | adantr 482 |
. . . . 5
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ π β
β0) β πΉ:dom πΉβΆβ) |
14 | | fpmg 8862 |
. . . . 5
β’ ((dom
πΉ β V β§ β
β V β§ πΉ:dom πΉβΆβ) β πΉ β (β
βpm dom πΉ)) |
15 | 6, 8, 13, 14 | syl3anc 1372 |
. . . 4
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ π β
β0) β πΉ β (β βpm dom
πΉ)) |
16 | 4, 15 | eqeltrd 2834 |
. . 3
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ π β
β0) β ((β0 Γ {πΉ})βπ) β (β βpm dom
πΉ)) |
17 | | vex 3479 |
. . . . . 6
β’ π β V |
18 | | vex 3479 |
. . . . . 6
β’ π β V |
19 | 17, 18 | opco1i 8111 |
. . . . 5
β’ (π((π₯ β V β¦ (π D π₯)) β 1st )π) = ((π₯ β V β¦ (π D π₯))βπ) |
20 | | oveq2 7417 |
. . . . . . 7
β’ (π₯ = π β (π D π₯) = (π D π)) |
21 | | eqid 2733 |
. . . . . . 7
β’ (π₯ β V β¦ (π D π₯)) = (π₯ β V β¦ (π D π₯)) |
22 | | ovex 7442 |
. . . . . . 7
β’ (π D π) β V |
23 | 20, 21, 22 | fvmpt 6999 |
. . . . . 6
β’ (π β V β ((π₯ β V β¦ (π D π₯))βπ) = (π D π)) |
24 | 23 | elv 3481 |
. . . . 5
β’ ((π₯ β V β¦ (π D π₯))βπ) = (π D π) |
25 | 19, 24 | eqtri 2761 |
. . . 4
β’ (π((π₯ β V β¦ (π D π₯)) β 1st )π) = (π D π) |
26 | 7 | a1i 11 |
. . . . 5
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β β β
V) |
27 | 5 | ad2antlr 726 |
. . . . 5
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β dom πΉ β V) |
28 | | dvfg 25423 |
. . . . . 6
β’ (π β {β, β}
β (π D π):dom (π D π)βΆβ) |
29 | 28 | ad2antrr 725 |
. . . . 5
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β (π D π):dom (π D π)βΆβ) |
30 | | recnprss 25421 |
. . . . . . . 8
β’ (π β {β, β}
β π β
β) |
31 | 30 | ad2antrr 725 |
. . . . . . 7
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β π β β) |
32 | | simprl 770 |
. . . . . . . . 9
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β π β (β βpm dom
πΉ)) |
33 | | elpm2g 8838 |
. . . . . . . . . 10
β’ ((β
β V β§ dom πΉ β
V) β (π β
(β βpm dom πΉ) β (π:dom πβΆβ β§ dom π β dom πΉ))) |
34 | 7, 27, 33 | sylancr 588 |
. . . . . . . . 9
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β (π β (β βpm dom
πΉ) β (π:dom πβΆβ β§ dom π β dom πΉ))) |
35 | 32, 34 | mpbid 231 |
. . . . . . . 8
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β (π:dom πβΆβ β§ dom π β dom πΉ)) |
36 | 35 | simpld 496 |
. . . . . . 7
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β π:dom πβΆβ) |
37 | 35 | simprd 497 |
. . . . . . . 8
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β dom π β dom πΉ) |
38 | 11 | simprd 497 |
. . . . . . . . 9
β’ ((π β {β, β} β§
πΉ β (β
βpm π))
β dom πΉ β π) |
39 | 38 | adantr 482 |
. . . . . . . 8
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β dom πΉ β π) |
40 | 37, 39 | sstrd 3993 |
. . . . . . 7
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β dom π β π) |
41 | 31, 36, 40 | dvbss 25418 |
. . . . . 6
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β dom (π D π) β dom π) |
42 | 41, 37 | sstrd 3993 |
. . . . 5
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β dom (π D π) β dom πΉ) |
43 | | elpm2r 8839 |
. . . . 5
β’
(((β β V β§ dom πΉ β V) β§ ((π D π):dom (π D π)βΆβ β§ dom (π D π) β dom πΉ)) β (π D π) β (β βpm dom
πΉ)) |
44 | 26, 27, 29, 42, 43 | syl22anc 838 |
. . . 4
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β (π D π) β (β βpm dom
πΉ)) |
45 | 25, 44 | eqeltrid 2838 |
. . 3
β’ (((π β {β, β} β§
πΉ β (β
βpm π))
β§ (π β (β
βpm dom πΉ)
β§ π β (β
βpm dom πΉ))) β (π((π₯ β V β¦ (π D π₯)) β 1st )π) β (β βpm dom
πΉ)) |
46 | 1, 2, 16, 45 | seqf 13989 |
. 2
β’ ((π β {β, β} β§
πΉ β (β
βpm π))
β seq0(((π₯ β V
β¦ (π D π₯)) β 1st ),
(β0 Γ {πΉ})):β0βΆ(β
βpm dom πΉ)) |
47 | 21 | dvnfval 25439 |
. . . 4
β’ ((π β β β§ πΉ β (β
βpm π))
β (π
Dπ πΉ) =
seq0(((π₯ β V β¦
(π D π₯)) β 1st ),
(β0 Γ {πΉ}))) |
48 | 30, 47 | sylan 581 |
. . 3
β’ ((π β {β, β} β§
πΉ β (β
βpm π))
β (π
Dπ πΉ) =
seq0(((π₯ β V β¦
(π D π₯)) β 1st ),
(β0 Γ {πΉ}))) |
49 | 48 | feq1d 6703 |
. 2
β’ ((π β {β, β} β§
πΉ β (β
βpm π))
β ((π
Dπ πΉ):β0βΆ(β
βpm dom πΉ)
β seq0(((π₯ β V
β¦ (π D π₯)) β 1st ),
(β0 Γ {πΉ})):β0βΆ(β
βpm dom πΉ))) |
50 | 46, 49 | mpbird 257 |
1
β’ ((π β {β, β} β§
πΉ β (β
βpm π))
β (π
Dπ πΉ):β0βΆ(β
βpm dom πΉ)) |