Metamath Proof Explorer


Theorem ptpjpre1

Description: The preimage of a projection function can be expressed as an indexed cartesian product. (Contributed by Mario Carneiro, 6-Feb-2015)

Ref Expression
Hypothesis ptpjpre1.1 X=kAFk
Assertion ptpjpre1 AVF:ATopIAUFIwXwI-1U=kAifk=IUFk

Proof

Step Hyp Ref Expression
1 ptpjpre1.1 X=kAFk
2 fveq2 k=Iwk=wI
3 fveq2 k=IFk=FI
4 3 unieqd k=IFk=FI
5 2 4 eleq12d k=IwkFkwIFI
6 vex wV
7 6 elixp wkAFkwFnAkAwkFk
8 7 simprbi wkAFkkAwkFk
9 8 1 eleq2s wXkAwkFk
10 9 adantl AVF:ATopIAUFIwXkAwkFk
11 simplrl AVF:ATopIAUFIwXIA
12 5 10 11 rspcdva AVF:ATopIAUFIwXwIFI
13 12 fmpttd AVF:ATopIAUFIwXwI:XFI
14 ffn wXwI:XFIwXwIFnX
15 elpreima wXwIFnXzwXwI-1UzXwXwIzU
16 13 14 15 3syl AVF:ATopIAUFIzwXwI-1UzXwXwIzU
17 fveq1 w=zwI=zI
18 eqid wXwI=wXwI
19 fvex zIV
20 17 18 19 fvmpt zXwXwIz=zI
21 20 eleq1d zXwXwIzUzIU
22 21 pm5.32i zXwXwIzUzXzIU
23 1 eleq2i zXzkAFk
24 vex zV
25 24 elixp zkAFkzFnAkAzkFk
26 23 25 bitri zXzFnAkAzkFk
27 26 anbi1i zXzIUzFnAkAzkFkzIU
28 anass zFnAkAzkFkzIUzFnAkAzkFkzIU
29 27 28 bitri zXzIUzFnAkAzkFkzIU
30 22 29 bitri zXwXwIzUzFnAkAzkFkzIU
31 simprl AVF:ATopIAUFIzIUzkFkzIU
32 fveq2 k=Izk=zI
33 iftrue k=Iifk=IUFk=U
34 32 33 eleq12d k=Izkifk=IUFkzIU
35 31 34 syl5ibrcom AVF:ATopIAUFIzIUzkFkk=Izkifk=IUFk
36 simprr AVF:ATopIAUFIzIUzkFkzkFk
37 iffalse ¬k=Iifk=IUFk=Fk
38 37 eleq2d ¬k=Izkifk=IUFkzkFk
39 36 38 syl5ibrcom AVF:ATopIAUFIzIUzkFk¬k=Izkifk=IUFk
40 35 39 pm2.61d AVF:ATopIAUFIzIUzkFkzkifk=IUFk
41 40 expr AVF:ATopIAUFIzIUzkFkzkifk=IUFk
42 41 ralimdv AVF:ATopIAUFIzIUkAzkFkkAzkifk=IUFk
43 42 expimpd AVF:ATopIAUFIzIUkAzkFkkAzkifk=IUFk
44 43 ancomsd AVF:ATopIAUFIkAzkFkzIUkAzkifk=IUFk
45 elssuni UFIUFI
46 45 ad2antll AVF:ATopIAUFIUFI
47 33 4 sseq12d k=Iifk=IUFkFkUFI
48 46 47 syl5ibrcom AVF:ATopIAUFIk=Iifk=IUFkFk
49 ssid FkFk
50 37 49 eqsstrdi ¬k=Iifk=IUFkFk
51 48 50 pm2.61d1 AVF:ATopIAUFIifk=IUFkFk
52 51 sseld AVF:ATopIAUFIzkifk=IUFkzkFk
53 52 ralimdv AVF:ATopIAUFIkAzkifk=IUFkkAzkFk
54 34 rspcv IAkAzkifk=IUFkzIU
55 54 ad2antrl AVF:ATopIAUFIkAzkifk=IUFkzIU
56 53 55 jcad AVF:ATopIAUFIkAzkifk=IUFkkAzkFkzIU
57 44 56 impbid AVF:ATopIAUFIkAzkFkzIUkAzkifk=IUFk
58 57 anbi2d AVF:ATopIAUFIzFnAkAzkFkzIUzFnAkAzkifk=IUFk
59 30 58 bitrid AVF:ATopIAUFIzXwXwIzUzFnAkAzkifk=IUFk
60 16 59 bitrd AVF:ATopIAUFIzwXwI-1UzFnAkAzkifk=IUFk
61 24 elixp zkAifk=IUFkzFnAkAzkifk=IUFk
62 60 61 bitr4di AVF:ATopIAUFIzwXwI-1UzkAifk=IUFk
63 62 eqrdv AVF:ATopIAUFIwXwI-1U=kAifk=IUFk