| Step |
Hyp |
Ref |
Expression |
| 0 |
|
cui |
|- Unit |
| 1 |
|
vw |
|- w |
| 2 |
|
cvv |
|- _V |
| 3 |
|
cdsr |
|- ||r |
| 4 |
1
|
cv |
|- w |
| 5 |
4 3
|
cfv |
|- ( ||r ` w ) |
| 6 |
|
coppr |
|- oppR |
| 7 |
4 6
|
cfv |
|- ( oppR ` w ) |
| 8 |
7 3
|
cfv |
|- ( ||r ` ( oppR ` w ) ) |
| 9 |
5 8
|
cin |
|- ( ( ||r ` w ) i^i ( ||r ` ( oppR ` w ) ) ) |
| 10 |
9
|
ccnv |
|- `' ( ( ||r ` w ) i^i ( ||r ` ( oppR ` w ) ) ) |
| 11 |
|
cur |
|- 1r |
| 12 |
4 11
|
cfv |
|- ( 1r ` w ) |
| 13 |
12
|
csn |
|- { ( 1r ` w ) } |
| 14 |
10 13
|
cima |
|- ( `' ( ( ||r ` w ) i^i ( ||r ` ( oppR ` w ) ) ) " { ( 1r ` w ) } ) |
| 15 |
1 2 14
|
cmpt |
|- ( w e. _V |-> ( `' ( ( ||r ` w ) i^i ( ||r ` ( oppR ` w ) ) ) " { ( 1r ` w ) } ) ) |
| 16 |
0 15
|
wceq |
|- Unit = ( w e. _V |-> ( `' ( ( ||r ` w ) i^i ( ||r ` ( oppR ` w ) ) ) " { ( 1r ` w ) } ) ) |