Metamath Proof Explorer

Theorem reuun2

Description: Transfer uniqueness to a smaller or larger class. (Contributed by NM, 21-Oct-2005)

Ref Expression
Assertion reuun2 
|- ( -. E. x e. B ph -> ( E! x e. ( A u. B ) ph <-> E! x e. A ph ) )

Proof

Step Hyp Ref Expression
1 df-rex 
 |-  ( E. x e. B ph <-> E. x ( x e. B /\ ph ) )
2 euor2 
 |-  ( -. E. x ( x e. B /\ ph ) -> ( E! x ( ( x e. B /\ ph ) \/ ( x e. A /\ ph ) ) <-> E! x ( x e. A /\ ph ) ) )
3 1 2 sylnbi 
 |-  ( -. E. x e. B ph -> ( E! x ( ( x e. B /\ ph ) \/ ( x e. A /\ ph ) ) <-> E! x ( x e. A /\ ph ) ) )
4 df-reu 
 |-  ( E! x e. ( A u. B ) ph <-> E! x ( x e. ( A u. B ) /\ ph ) )
5 elun 
 |-  ( x e. ( A u. B ) <-> ( x e. A \/ x e. B ) )
6 5 anbi1i 
 |-  ( ( x e. ( A u. B ) /\ ph ) <-> ( ( x e. A \/ x e. B ) /\ ph ) )
7 andir 
 |-  ( ( ( x e. A \/ x e. B ) /\ ph ) <-> ( ( x e. A /\ ph ) \/ ( x e. B /\ ph ) ) )
8 orcom 
 |-  ( ( ( x e. A /\ ph ) \/ ( x e. B /\ ph ) ) <-> ( ( x e. B /\ ph ) \/ ( x e. A /\ ph ) ) )
9 7 8 bitri 
 |-  ( ( ( x e. A \/ x e. B ) /\ ph ) <-> ( ( x e. B /\ ph ) \/ ( x e. A /\ ph ) ) )
10 6 9 bitri 
 |-  ( ( x e. ( A u. B ) /\ ph ) <-> ( ( x e. B /\ ph ) \/ ( x e. A /\ ph ) ) )
11 10 eubii 
 |-  ( E! x ( x e. ( A u. B ) /\ ph ) <-> E! x ( ( x e. B /\ ph ) \/ ( x e. A /\ ph ) ) )
12 4 11 bitri 
 |-  ( E! x e. ( A u. B ) ph <-> E! x ( ( x e. B /\ ph ) \/ ( x e. A /\ ph ) ) )
13 df-reu 
 |-  ( E! x e. A ph <-> E! x ( x e. A /\ ph ) )
14 3 12 13 3bitr4g 
 |-  ( -. E. x e. B ph -> ( E! x e. ( A u. B ) ph <-> E! x e. A ph ) )