Metamath Proof Explorer


Theorem intprOLD

Description: Obsolete version of intpr as of 1-Sep-2024. (Contributed by NM, 14-Oct-1999) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Hypotheses intpr.1
|- A e. _V
intpr.2
|- B e. _V
Assertion intprOLD
|- |^| { A , B } = ( A i^i B )

Proof

Step Hyp Ref Expression
1 intpr.1
 |-  A e. _V
2 intpr.2
 |-  B e. _V
3 19.26
 |-  ( A. y ( ( y = A -> x e. y ) /\ ( y = B -> x e. y ) ) <-> ( A. y ( y = A -> x e. y ) /\ A. y ( y = B -> x e. y ) ) )
4 vex
 |-  y e. _V
5 4 elpr
 |-  ( y e. { A , B } <-> ( y = A \/ y = B ) )
6 5 imbi1i
 |-  ( ( y e. { A , B } -> x e. y ) <-> ( ( y = A \/ y = B ) -> x e. y ) )
7 jaob
 |-  ( ( ( y = A \/ y = B ) -> x e. y ) <-> ( ( y = A -> x e. y ) /\ ( y = B -> x e. y ) ) )
8 6 7 bitri
 |-  ( ( y e. { A , B } -> x e. y ) <-> ( ( y = A -> x e. y ) /\ ( y = B -> x e. y ) ) )
9 8 albii
 |-  ( A. y ( y e. { A , B } -> x e. y ) <-> A. y ( ( y = A -> x e. y ) /\ ( y = B -> x e. y ) ) )
10 1 clel4
 |-  ( x e. A <-> A. y ( y = A -> x e. y ) )
11 2 clel4
 |-  ( x e. B <-> A. y ( y = B -> x e. y ) )
12 10 11 anbi12i
 |-  ( ( x e. A /\ x e. B ) <-> ( A. y ( y = A -> x e. y ) /\ A. y ( y = B -> x e. y ) ) )
13 3 9 12 3bitr4i
 |-  ( A. y ( y e. { A , B } -> x e. y ) <-> ( x e. A /\ x e. B ) )
14 vex
 |-  x e. _V
15 14 elint
 |-  ( x e. |^| { A , B } <-> A. y ( y e. { A , B } -> x e. y ) )
16 elin
 |-  ( x e. ( A i^i B ) <-> ( x e. A /\ x e. B ) )
17 13 15 16 3bitr4i
 |-  ( x e. |^| { A , B } <-> x e. ( A i^i B ) )
18 17 eqriv
 |-  |^| { A , B } = ( A i^i B )