Metamath Proof Explorer


Theorem uniprOLD

Description: Obsolete version of unipr as of 1-Sep-2024. (Contributed by NM, 23-Aug-1993) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Hypotheses unipr.1
|- A e. _V
unipr.2
|- B e. _V
Assertion uniprOLD
|- U. { A , B } = ( A u. B )

Proof

Step Hyp Ref Expression
1 unipr.1
 |-  A e. _V
2 unipr.2
 |-  B e. _V
3 19.43
 |-  ( E. y ( ( x e. y /\ y = A ) \/ ( x e. y /\ y = B ) ) <-> ( E. y ( x e. y /\ y = A ) \/ E. y ( x e. y /\ y = B ) ) )
4 vex
 |-  y e. _V
5 4 elpr
 |-  ( y e. { A , B } <-> ( y = A \/ y = B ) )
6 5 anbi2i
 |-  ( ( x e. y /\ y e. { A , B } ) <-> ( x e. y /\ ( y = A \/ y = B ) ) )
7 andi
 |-  ( ( x e. y /\ ( y = A \/ y = B ) ) <-> ( ( x e. y /\ y = A ) \/ ( x e. y /\ y = B ) ) )
8 6 7 bitri
 |-  ( ( x e. y /\ y e. { A , B } ) <-> ( ( x e. y /\ y = A ) \/ ( x e. y /\ y = B ) ) )
9 8 exbii
 |-  ( E. y ( x e. y /\ y e. { A , B } ) <-> E. y ( ( x e. y /\ y = A ) \/ ( x e. y /\ y = B ) ) )
10 1 clel3
 |-  ( x e. A <-> E. y ( y = A /\ x e. y ) )
11 exancom
 |-  ( E. y ( y = A /\ x e. y ) <-> E. y ( x e. y /\ y = A ) )
12 10 11 bitri
 |-  ( x e. A <-> E. y ( x e. y /\ y = A ) )
13 2 clel3
 |-  ( x e. B <-> E. y ( y = B /\ x e. y ) )
14 exancom
 |-  ( E. y ( y = B /\ x e. y ) <-> E. y ( x e. y /\ y = B ) )
15 13 14 bitri
 |-  ( x e. B <-> E. y ( x e. y /\ y = B ) )
16 12 15 orbi12i
 |-  ( ( x e. A \/ x e. B ) <-> ( E. y ( x e. y /\ y = A ) \/ E. y ( x e. y /\ y = B ) ) )
17 3 9 16 3bitr4ri
 |-  ( ( x e. A \/ x e. B ) <-> E. y ( x e. y /\ y e. { A , B } ) )
18 17 abbii
 |-  { x | ( x e. A \/ x e. B ) } = { x | E. y ( x e. y /\ y e. { A , B } ) }
19 df-un
 |-  ( A u. B ) = { x | ( x e. A \/ x e. B ) }
20 df-uni
 |-  U. { A , B } = { x | E. y ( x e. y /\ y e. { A , B } ) }
21 18 19 20 3eqtr4ri
 |-  U. { A , B } = ( A u. B )