Metamath Proof Explorer


Theorem difprsn1

Description: Removal of a singleton from an unordered pair. (Contributed by Thierry Arnoux, 4-Feb-2017)

Ref Expression
Assertion difprsn1 ( 𝐴𝐵 → ( { 𝐴 , 𝐵 } ∖ { 𝐴 } ) = { 𝐵 } )

Proof

Step Hyp Ref Expression
1 necom ( 𝐵𝐴𝐴𝐵 )
2 disjsn2 ( 𝐵𝐴 → ( { 𝐵 } ∩ { 𝐴 } ) = ∅ )
3 disj3 ( ( { 𝐵 } ∩ { 𝐴 } ) = ∅ ↔ { 𝐵 } = ( { 𝐵 } ∖ { 𝐴 } ) )
4 2 3 sylib ( 𝐵𝐴 → { 𝐵 } = ( { 𝐵 } ∖ { 𝐴 } ) )
5 df-pr { 𝐴 , 𝐵 } = ( { 𝐴 } ∪ { 𝐵 } )
6 5 equncomi { 𝐴 , 𝐵 } = ( { 𝐵 } ∪ { 𝐴 } )
7 6 difeq1i ( { 𝐴 , 𝐵 } ∖ { 𝐴 } ) = ( ( { 𝐵 } ∪ { 𝐴 } ) ∖ { 𝐴 } )
8 difun2 ( ( { 𝐵 } ∪ { 𝐴 } ) ∖ { 𝐴 } ) = ( { 𝐵 } ∖ { 𝐴 } )
9 7 8 eqtri ( { 𝐴 , 𝐵 } ∖ { 𝐴 } ) = ( { 𝐵 } ∖ { 𝐴 } )
10 4 9 syl6reqr ( 𝐵𝐴 → ( { 𝐴 , 𝐵 } ∖ { 𝐴 } ) = { 𝐵 } )
11 1 10 sylbir ( 𝐴𝐵 → ( { 𝐴 , 𝐵 } ∖ { 𝐴 } ) = { 𝐵 } )