| Step |
Hyp |
Ref |
Expression |
| 1 |
|
df-bj-proj |
|- ( A Proj B ) = { x | { x } e. ( B " { A } ) } |
| 2 |
1
|
eqabri |
|- ( x e. ( A Proj B ) <-> { x } e. ( B " { A } ) ) |
| 3 |
|
df-bj-proj |
|- ( A Proj C ) = { x | { x } e. ( C " { A } ) } |
| 4 |
3
|
eqabri |
|- ( x e. ( A Proj C ) <-> { x } e. ( C " { A } ) ) |
| 5 |
2 4
|
orbi12i |
|- ( ( x e. ( A Proj B ) \/ x e. ( A Proj C ) ) <-> ( { x } e. ( B " { A } ) \/ { x } e. ( C " { A } ) ) ) |
| 6 |
|
elun |
|- ( x e. ( ( A Proj B ) u. ( A Proj C ) ) <-> ( x e. ( A Proj B ) \/ x e. ( A Proj C ) ) ) |
| 7 |
|
df-bj-proj |
|- ( A Proj ( B u. C ) ) = { x | { x } e. ( ( B u. C ) " { A } ) } |
| 8 |
7
|
eqabri |
|- ( x e. ( A Proj ( B u. C ) ) <-> { x } e. ( ( B u. C ) " { A } ) ) |
| 9 |
|
imaundir |
|- ( ( B u. C ) " { A } ) = ( ( B " { A } ) u. ( C " { A } ) ) |
| 10 |
9
|
eleq2i |
|- ( { x } e. ( ( B u. C ) " { A } ) <-> { x } e. ( ( B " { A } ) u. ( C " { A } ) ) ) |
| 11 |
|
elun |
|- ( { x } e. ( ( B " { A } ) u. ( C " { A } ) ) <-> ( { x } e. ( B " { A } ) \/ { x } e. ( C " { A } ) ) ) |
| 12 |
8 10 11
|
3bitri |
|- ( x e. ( A Proj ( B u. C ) ) <-> ( { x } e. ( B " { A } ) \/ { x } e. ( C " { A } ) ) ) |
| 13 |
5 6 12
|
3bitr4ri |
|- ( x e. ( A Proj ( B u. C ) ) <-> x e. ( ( A Proj B ) u. ( A Proj C ) ) ) |
| 14 |
13
|
eqriv |
|- ( A Proj ( B u. C ) ) = ( ( A Proj B ) u. ( A Proj C ) ) |