| Step |
Hyp |
Ref |
Expression |
| 1 |
|
restin.1 |
|- X = U. J |
| 2 |
|
uniexg |
|- ( J e. V -> U. J e. _V ) |
| 3 |
1 2
|
eqeltrid |
|- ( J e. V -> X e. _V ) |
| 4 |
3
|
adantr |
|- ( ( J e. V /\ A e. W ) -> X e. _V ) |
| 5 |
|
restco |
|- ( ( J e. V /\ X e. _V /\ A e. W ) -> ( ( J |`t X ) |`t A ) = ( J |`t ( X i^i A ) ) ) |
| 6 |
5
|
3com23 |
|- ( ( J e. V /\ A e. W /\ X e. _V ) -> ( ( J |`t X ) |`t A ) = ( J |`t ( X i^i A ) ) ) |
| 7 |
4 6
|
mpd3an3 |
|- ( ( J e. V /\ A e. W ) -> ( ( J |`t X ) |`t A ) = ( J |`t ( X i^i A ) ) ) |
| 8 |
1
|
restid |
|- ( J e. V -> ( J |`t X ) = J ) |
| 9 |
8
|
adantr |
|- ( ( J e. V /\ A e. W ) -> ( J |`t X ) = J ) |
| 10 |
9
|
oveq1d |
|- ( ( J e. V /\ A e. W ) -> ( ( J |`t X ) |`t A ) = ( J |`t A ) ) |
| 11 |
|
incom |
|- ( X i^i A ) = ( A i^i X ) |
| 12 |
11
|
oveq2i |
|- ( J |`t ( X i^i A ) ) = ( J |`t ( A i^i X ) ) |
| 13 |
12
|
a1i |
|- ( ( J e. V /\ A e. W ) -> ( J |`t ( X i^i A ) ) = ( J |`t ( A i^i X ) ) ) |
| 14 |
7 10 13
|
3eqtr3d |
|- ( ( J e. V /\ A e. W ) -> ( J |`t A ) = ( J |`t ( A i^i X ) ) ) |