Metamath Proof Explorer


Theorem xpsnprg

Description: The Cartesian product of a singleton and an unordered pair. (Contributed by AV, 21-Aug-2026)

Ref Expression
Assertion xpsnprg ( ( 𝐴𝑉𝐵𝑊𝐶𝑈 ) → ( { 𝐴 } × { 𝐵 , 𝐶 } ) = { ⟨ 𝐴 , 𝐵 ⟩ , ⟨ 𝐴 , 𝐶 ⟩ } )

Proof

Step Hyp Ref Expression
1 df-pr { 𝐵 , 𝐶 } = ( { 𝐵 } ∪ { 𝐶 } )
2 1 xpeq2i ( { 𝐴 } × { 𝐵 , 𝐶 } ) = ( { 𝐴 } × ( { 𝐵 } ∪ { 𝐶 } ) )
3 xpsng ( ( 𝐴𝑉𝐵𝑊 ) → ( { 𝐴 } × { 𝐵 } ) = { ⟨ 𝐴 , 𝐵 ⟩ } )
4 3 3adant3 ( ( 𝐴𝑉𝐵𝑊𝐶𝑈 ) → ( { 𝐴 } × { 𝐵 } ) = { ⟨ 𝐴 , 𝐵 ⟩ } )
5 xpsng ( ( 𝐴𝑉𝐶𝑈 ) → ( { 𝐴 } × { 𝐶 } ) = { ⟨ 𝐴 , 𝐶 ⟩ } )
6 5 3adant2 ( ( 𝐴𝑉𝐵𝑊𝐶𝑈 ) → ( { 𝐴 } × { 𝐶 } ) = { ⟨ 𝐴 , 𝐶 ⟩ } )
7 4 6 uneq12d ( ( 𝐴𝑉𝐵𝑊𝐶𝑈 ) → ( ( { 𝐴 } × { 𝐵 } ) ∪ ( { 𝐴 } × { 𝐶 } ) ) = ( { ⟨ 𝐴 , 𝐵 ⟩ } ∪ { ⟨ 𝐴 , 𝐶 ⟩ } ) )
8 xpundi ( { 𝐴 } × ( { 𝐵 } ∪ { 𝐶 } ) ) = ( ( { 𝐴 } × { 𝐵 } ) ∪ ( { 𝐴 } × { 𝐶 } ) )
9 df-pr { ⟨ 𝐴 , 𝐵 ⟩ , ⟨ 𝐴 , 𝐶 ⟩ } = ( { ⟨ 𝐴 , 𝐵 ⟩ } ∪ { ⟨ 𝐴 , 𝐶 ⟩ } )
10 7 8 9 3eqtr4g ( ( 𝐴𝑉𝐵𝑊𝐶𝑈 ) → ( { 𝐴 } × ( { 𝐵 } ∪ { 𝐶 } ) ) = { ⟨ 𝐴 , 𝐵 ⟩ , ⟨ 𝐴 , 𝐶 ⟩ } )
11 2 10 eqtrid ( ( 𝐴𝑉𝐵𝑊𝐶𝑈 ) → ( { 𝐴 } × { 𝐵 , 𝐶 } ) = { ⟨ 𝐴 , 𝐵 ⟩ , ⟨ 𝐴 , 𝐶 ⟩ } )