Metamath Proof Explorer

Theorem rrx2xpref1o

Description: There is a bijection between the set of ordered pairs of real numbers (the cartesian product of the real numbers) and the set of points in the two dimensional Euclidean plane (represented as mappings from ( 0 ..^ 2 ) to the real numbers). (Contributed by AV, 12-Mar-2023)

Ref Expression
Hypotheses rrx2xpreen.r 
|- R = ( RR ^m ( 0 ..^ 2 ) )
rrx2xpref1o.1 
|- F = ( x e. RR , y e. RR |-> <" x y "> )
Assertion rrx2xpref1o 
|- F : ( RR X. RR ) -1-1-onto-> R

Proof

Step Hyp Ref Expression
1 rrx2xpreen.r 
 |-  R = ( RR ^m ( 0 ..^ 2 ) )
2 rrx2xpref1o.1 
 |-  F = ( x e. RR , y e. RR |-> <" x y "> )
3 simprl 
 |-  ( ( T. /\ ( x e. RR /\ y e. RR ) ) -> x e. RR )
4 simprr 
 |-  ( ( T. /\ ( x e. RR /\ y e. RR ) ) -> y e. RR )
5 3 4 s2cld 
 |-  ( ( T. /\ ( x e. RR /\ y e. RR ) ) -> <" x y "> e. Word RR )
6 eqid 
 |-  ( 0 ..^ 2 ) = ( 0 ..^ 2 )
7 6 1 rrx2pxel 
 |-  ( z e. R -> ( z ` 0 ) e. RR )
8 6 1 rrx2pyel 
 |-  ( z e. R -> ( z ` 1 ) e. RR )
9 7 8 jca 
 |-  ( z e. R -> ( ( z ` 0 ) e. RR /\ ( z ` 1 ) e. RR ) )
10 9 adantl 
 |-  ( ( T. /\ z e. R ) -> ( ( z ` 0 ) e. RR /\ ( z ` 1 ) e. RR ) )
11 simprl 
 |-  ( ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) -> ( z ` 0 ) = x )
12 7 adantr 
 |-  ( ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) -> ( z ` 0 ) e. RR )
13 11 12 eqeltrrd 
 |-  ( ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) -> x e. RR )
14 simprr 
 |-  ( ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) -> ( z ` 1 ) = y )
15 8 adantr 
 |-  ( ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) -> ( z ` 1 ) e. RR )
16 14 15 eqeltrrd 
 |-  ( ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) -> y e. RR )
17 13 16 jca 
 |-  ( ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) -> ( x e. RR /\ y e. RR ) )
18 17 pm4.71ri 
 |-  ( ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) <-> ( ( x e. RR /\ y e. RR ) /\ ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) ) )
19 eqcom 
 |-  ( x = ( z ` 0 ) <-> ( z ` 0 ) = x )
20 eqcom 
 |-  ( y = ( z ` 1 ) <-> ( z ` 1 ) = y )
21 19 20 anbi12i 
 |-  ( ( x = ( z ` 0 ) /\ y = ( z ` 1 ) ) <-> ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) )
22 21 anbi2i 
 |-  ( ( z e. R /\ ( x = ( z ` 0 ) /\ y = ( z ` 1 ) ) ) <-> ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) )
23 simpl 
 |-  ( ( x e. RR /\ y e. RR ) -> x e. RR )
24 simpr 
 |-  ( ( x e. RR /\ y e. RR ) -> y e. RR )
25 6 1 23 24 prelrrx2bd 
 |-  ( ( x e. RR /\ y e. RR ) -> ( z = <" x y "> <-> ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) ) )
26 25 pm5.32i 
 |-  ( ( ( x e. RR /\ y e. RR ) /\ z = <" x y "> ) <-> ( ( x e. RR /\ y e. RR ) /\ ( z e. R /\ ( ( z ` 0 ) = x /\ ( z ` 1 ) = y ) ) ) )
27 18 22 26 3bitr4ri 
 |-  ( ( ( x e. RR /\ y e. RR ) /\ z = <" x y "> ) <-> ( z e. R /\ ( x = ( z ` 0 ) /\ y = ( z ` 1 ) ) ) )
28 27 a1i 
 |-  ( T. -> ( ( ( x e. RR /\ y e. RR ) /\ z = <" x y "> ) <-> ( z e. R /\ ( x = ( z ` 0 ) /\ y = ( z ` 1 ) ) ) ) )
29 2 5 10 28 f1od2 
 |-  ( T. -> F : ( RR X. RR ) -1-1-onto-> R )
30 29 mptru 
 |-  F : ( RR X. RR ) -1-1-onto-> R