MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  constr3lem4 Structured version   Unicode version

Theorem constr3lem4 23670
Description: Lemma for constr3trl 23682 etc. (Contributed by Alexander van der Vekens, 10-Nov-2017.) (Proof shortened by Alexander van der Vekens, 16-Dec-2017.)
Hypotheses
Ref Expression
constr3cycl.f  |-  F  =  { <. 0 ,  ( `' E `  { A ,  B } ) >. ,  <. 1 ,  ( `' E `  { B ,  C } ) >. ,  <. 2 ,  ( `' E `  { C ,  A } ) >. }
constr3cycl.p  |-  P  =  ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } )
Assertion
Ref Expression
constr3lem4  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( ( ( P `
 0 )  =  A  /\  ( P `
 1 )  =  B )  /\  (
( P `  2
)  =  C  /\  ( P `  3 )  =  A ) ) )

Proof of Theorem constr3lem4
StepHypRef Expression
1 0z 10760 . . . . . 6  |-  0  e.  ZZ
2 1z 10779 . . . . . 6  |-  1  e.  ZZ
31, 2pm3.2i 455 . . . . 5  |-  ( 0  e.  ZZ  /\  1  e.  ZZ )
43a1i 11 . . . 4  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( 0  e.  ZZ  /\  1  e.  ZZ ) )
5 3simpa 985 . . . 4  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( A  e.  V  /\  B  e.  V
) )
6 0ne1 10492 . . . . 5  |-  0  =/=  1
76a1i 11 . . . 4  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  0  =/=  1 )
8 fnprg 5572 . . . 4  |-  ( ( ( 0  e.  ZZ  /\  1  e.  ZZ )  /\  ( A  e.  V  /\  B  e.  V )  /\  0  =/=  1 )  ->  { <. 0 ,  A >. , 
<. 1 ,  B >. }  Fn  { 0 ,  1 } )
94, 5, 7, 8syl3anc 1219 . . 3  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 } )
10 2z 10781 . . . . . 6  |-  2  e.  ZZ
11 3nn0 10700 . . . . . 6  |-  3  e.  NN0
1210, 11pm3.2i 455 . . . . 5  |-  ( 2  e.  ZZ  /\  3  e.  NN0 )
1312a1i 11 . . . 4  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( 2  e.  ZZ  /\  3  e.  NN0 )
)
14 pm3.22 449 . . . . 5  |-  ( ( A  e.  V  /\  C  e.  V )  ->  ( C  e.  V  /\  A  e.  V
) )
15143adant2 1007 . . . 4  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( C  e.  V  /\  A  e.  V
) )
16 2re 10494 . . . . . 6  |-  2  e.  RR
17 2lt3 10592 . . . . . 6  |-  2  <  3
1816, 17ltneii 9590 . . . . 5  |-  2  =/=  3
1918a1i 11 . . . 4  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  2  =/=  3 )
20 fnprg 5572 . . . 4  |-  ( ( ( 2  e.  ZZ  /\  3  e.  NN0 )  /\  ( C  e.  V  /\  A  e.  V
)  /\  2  =/=  3 )  ->  { <. 2 ,  C >. , 
<. 3 ,  A >. }  Fn  { 2 ,  3 } )
2113, 15, 19, 20syl3anc 1219 . . 3  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 } )
22 0ne2 10636 . . . . 5  |-  0  =/=  2
23 1ne2 10637 . . . . 5  |-  1  =/=  2
24 3ne0 10519 . . . . . 6  |-  3  =/=  0
2524necomi 2718 . . . . 5  |-  0  =/=  3
26 1re 9488 . . . . . 6  |-  1  e.  RR
27 1lt3 10593 . . . . . 6  |-  1  <  3
2826, 27ltneii 9590 . . . . 5  |-  1  =/=  3
29 disjpr2 4038 . . . . 5  |-  ( ( ( 0  =/=  2  /\  1  =/=  2
)  /\  ( 0  =/=  3  /\  1  =/=  3 ) )  -> 
( { 0 ,  1 }  i^i  {
2 ,  3 } )  =  (/) )
3022, 23, 25, 28, 29mp4an 673 . . . 4  |-  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)
3130a1i 11 . . 3  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( { 0 ,  1 }  i^i  {
2 ,  3 } )  =  (/) )
329, 21, 313jca 1168 . 2  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) ) )
33 constr3cycl.p . . . . . 6  |-  P  =  ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } )
3433fveq1i 5792 . . . . 5  |-  ( P `
 0 )  =  ( ( { <. 0 ,  A >. , 
<. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  0
)
35 c0ex 9483 . . . . . . . . . 10  |-  0  e.  _V
3635prid1 4083 . . . . . . . . 9  |-  0  e.  { 0 ,  1 }
3736jctr 542 . . . . . . . 8  |-  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  ->  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  0  e.  { 0 ,  1 } ) )
38373anim3i 1176 . . . . . . 7  |-  ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  0  e.  { 0 ,  1 } ) ) )
3938adantr 465 . . . . . 6  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  0  e.  { 0 ,  1 } ) ) )
40 fvun1 5863 . . . . . 6  |-  ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  0  e.  { 0 ,  1 } ) )  -> 
( ( { <. 0 ,  A >. , 
<. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  0
)  =  ( {
<. 0 ,  A >. ,  <. 1 ,  B >. } `  0 ) )
4139, 40syl 16 . . . . 5  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  (
( { <. 0 ,  A >. ,  <. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  0
)  =  ( {
<. 0 ,  A >. ,  <. 1 ,  B >. } `  0 ) )
4234, 41syl5eq 2504 . . . 4  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( P `  0 )  =  ( { <. 0 ,  A >. , 
<. 1 ,  B >. } `  0 ) )
43 fvpr1g 6024 . . . . . . 7  |-  ( ( 0  e.  ZZ  /\  A  e.  V  /\  0  =/=  1 )  -> 
( { <. 0 ,  A >. ,  <. 1 ,  B >. } `  0
)  =  A )
441, 6, 43mp3an13 1306 . . . . . 6  |-  ( A  e.  V  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. } `  0 )  =  A )
45443ad2ant1 1009 . . . . 5  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. } `  0
)  =  A )
4645adantl 466 . . . 4  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. } `  0 )  =  A )
4742, 46eqtrd 2492 . . 3  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( P `  0 )  =  A )
4833fveq1i 5792 . . . . 5  |-  ( P `
 1 )  =  ( ( { <. 0 ,  A >. , 
<. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  1
)
49 1ex 9484 . . . . . . . . . 10  |-  1  e.  _V
5049prid2 4084 . . . . . . . . 9  |-  1  e.  { 0 ,  1 }
5150jctr 542 . . . . . . . 8  |-  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  ->  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  1  e.  { 0 ,  1 } ) )
52513anim3i 1176 . . . . . . 7  |-  ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  1  e.  { 0 ,  1 } ) ) )
5352adantr 465 . . . . . 6  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  1  e.  { 0 ,  1 } ) ) )
54 fvun1 5863 . . . . . 6  |-  ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  1  e.  { 0 ,  1 } ) )  -> 
( ( { <. 0 ,  A >. , 
<. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  1
)  =  ( {
<. 0 ,  A >. ,  <. 1 ,  B >. } `  1 ) )
5553, 54syl 16 . . . . 5  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  (
( { <. 0 ,  A >. ,  <. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  1
)  =  ( {
<. 0 ,  A >. ,  <. 1 ,  B >. } `  1 ) )
5648, 55syl5eq 2504 . . . 4  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( P `  1 )  =  ( { <. 0 ,  A >. , 
<. 1 ,  B >. } `  1 ) )
57 fvpr2g 6025 . . . . . . 7  |-  ( ( 1  e.  RR  /\  B  e.  V  /\  0  =/=  1 )  -> 
( { <. 0 ,  A >. ,  <. 1 ,  B >. } `  1
)  =  B )
5826, 6, 57mp3an13 1306 . . . . . 6  |-  ( B  e.  V  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. } `  1 )  =  B )
59583ad2ant2 1010 . . . . 5  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. } `  1
)  =  B )
6059adantl 466 . . . 4  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. } `  1 )  =  B )
6156, 60eqtrd 2492 . . 3  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( P `  1 )  =  B )
6233fveq1i 5792 . . . . . 6  |-  ( P `
 2 )  =  ( ( { <. 0 ,  A >. , 
<. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  2
)
63 2ex 10496 . . . . . . . . . . 11  |-  2  e.  _V
6463prid1 4083 . . . . . . . . . 10  |-  2  e.  { 2 ,  3 }
6564jctr 542 . . . . . . . . 9  |-  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  ->  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  2  e.  { 2 ,  3 } ) )
66653anim3i 1176 . . . . . . . 8  |-  ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  2  e.  { 2 ,  3 } ) ) )
6766adantr 465 . . . . . . 7  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  2  e.  { 2 ,  3 } ) ) )
68 fvun2 5864 . . . . . . 7  |-  ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  2  e.  { 2 ,  3 } ) )  -> 
( ( { <. 0 ,  A >. , 
<. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  2
)  =  ( {
<. 2 ,  C >. ,  <. 3 ,  A >. } `  2 ) )
6967, 68syl 16 . . . . . 6  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  (
( { <. 0 ,  A >. ,  <. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  2
)  =  ( {
<. 2 ,  C >. ,  <. 3 ,  A >. } `  2 ) )
7062, 69syl5eq 2504 . . . . 5  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( P `  2 )  =  ( { <. 2 ,  C >. , 
<. 3 ,  A >. } `  2 ) )
71 fvpr1g 6024 . . . . . . . 8  |-  ( ( 2  e.  ZZ  /\  C  e.  V  /\  2  =/=  3 )  -> 
( { <. 2 ,  C >. ,  <. 3 ,  A >. } `  2
)  =  C )
7210, 18, 71mp3an13 1306 . . . . . . 7  |-  ( C  e.  V  ->  ( { <. 2 ,  C >. ,  <. 3 ,  A >. } `  2 )  =  C )
73723ad2ant3 1011 . . . . . 6  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( { <. 2 ,  C >. ,  <. 3 ,  A >. } `  2
)  =  C )
7473adantl 466 . . . . 5  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( { <. 2 ,  C >. ,  <. 3 ,  A >. } `  2 )  =  C )
7570, 74eqtrd 2492 . . . 4  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( P `  2 )  =  C )
7633fveq1i 5792 . . . . . 6  |-  ( P `
 3 )  =  ( ( { <. 0 ,  A >. , 
<. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  3
)
77 3ex 10500 . . . . . . . . . . 11  |-  3  e.  _V
7877prid2 4084 . . . . . . . . . 10  |-  3  e.  { 2 ,  3 }
7978jctr 542 . . . . . . . . 9  |-  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  ->  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  3  e.  { 2 ,  3 } ) )
80793anim3i 1176 . . . . . . . 8  |-  ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  3  e.  { 2 ,  3 } ) ) )
8180adantr 465 . . . . . . 7  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  3  e.  { 2 ,  3 } ) ) )
82 fvun2 5864 . . . . . . 7  |-  ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  { 0 ,  1 }  /\  {
<. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  { 2 ,  3 }  /\  ( ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/)  /\  3  e.  { 2 ,  3 } ) )  -> 
( ( { <. 0 ,  A >. , 
<. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  3
)  =  ( {
<. 2 ,  C >. ,  <. 3 ,  A >. } `  3 ) )
8381, 82syl 16 . . . . . 6  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  (
( { <. 0 ,  A >. ,  <. 1 ,  B >. }  u.  { <. 2 ,  C >. , 
<. 3 ,  A >. } ) `  3
)  =  ( {
<. 2 ,  C >. ,  <. 3 ,  A >. } `  3 ) )
8476, 83syl5eq 2504 . . . . 5  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( P `  3 )  =  ( { <. 2 ,  C >. , 
<. 3 ,  A >. } `  3 ) )
85 fvpr2g 6025 . . . . . . . 8  |-  ( ( 3  e.  NN0  /\  A  e.  V  /\  2  =/=  3 )  -> 
( { <. 2 ,  C >. ,  <. 3 ,  A >. } `  3
)  =  A )
8611, 18, 85mp3an13 1306 . . . . . . 7  |-  ( A  e.  V  ->  ( { <. 2 ,  C >. ,  <. 3 ,  A >. } `  3 )  =  A )
87863ad2ant1 1009 . . . . . 6  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( { <. 2 ,  C >. ,  <. 3 ,  A >. } `  3
)  =  A )
8887adantl 466 . . . . 5  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( { <. 2 ,  C >. ,  <. 3 ,  A >. } `  3 )  =  A )
8984, 88eqtrd 2492 . . . 4  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  ( P `  3 )  =  A )
9075, 89jca 532 . . 3  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  (
( P `  2
)  =  C  /\  ( P `  3 )  =  A ) )
9147, 61, 90jca31 534 . 2  |-  ( ( ( { <. 0 ,  A >. ,  <. 1 ,  B >. }  Fn  {
0 ,  1 }  /\  { <. 2 ,  C >. ,  <. 3 ,  A >. }  Fn  {
2 ,  3 }  /\  ( { 0 ,  1 }  i^i  { 2 ,  3 } )  =  (/) )  /\  ( A  e.  V  /\  B  e.  V  /\  C  e.  V
) )  ->  (
( ( P ` 
0 )  =  A  /\  ( P ` 
1 )  =  B )  /\  ( ( P `  2 )  =  C  /\  ( P `  3 )  =  A ) ) )
9232, 91mpancom 669 1  |-  ( ( A  e.  V  /\  B  e.  V  /\  C  e.  V )  ->  ( ( ( P `
 0 )  =  A  /\  ( P `
 1 )  =  B )  /\  (
( P `  2
)  =  C  /\  ( P `  3 )  =  A ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 369    /\ w3a 965    = wceq 1370    e. wcel 1758    =/= wne 2644    u. cun 3426    i^i cin 3427   (/)c0 3737   {cpr 3979   {ctp 3981   <.cop 3983   `'ccnv 4939    Fn wfn 5513   ` cfv 5518   RRcr 9384   0cc0 9385   1c1 9386   2c2 10474   3c3 10475   NN0cn0 10682   ZZcz 10749
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1592  ax-4 1603  ax-5 1671  ax-6 1710  ax-7 1730  ax-8 1760  ax-9 1762  ax-10 1777  ax-11 1782  ax-12 1794  ax-13 1952  ax-ext 2430  ax-sep 4513  ax-nul 4521  ax-pow 4570  ax-pr 4631  ax-un 6474  ax-resscn 9442  ax-1cn 9443  ax-icn 9444  ax-addcl 9445  ax-addrcl 9446  ax-mulcl 9447  ax-mulrcl 9448  ax-mulcom 9449  ax-addass 9450  ax-mulass 9451  ax-distr 9452  ax-i2m1 9453  ax-1ne0 9454  ax-1rid 9455  ax-rnegex 9456  ax-rrecex 9457  ax-cnre 9458  ax-pre-lttri 9459  ax-pre-lttrn 9460  ax-pre-ltadd 9461  ax-pre-mulgt0 9462
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1373  df-ex 1588  df-nf 1591  df-sb 1703  df-eu 2264  df-mo 2265  df-clab 2437  df-cleq 2443  df-clel 2446  df-nfc 2601  df-ne 2646  df-nel 2647  df-ral 2800  df-rex 2801  df-reu 2802  df-rab 2804  df-v 3072  df-sbc 3287  df-csb 3389  df-dif 3431  df-un 3433  df-in 3435  df-ss 3442  df-pss 3444  df-nul 3738  df-if 3892  df-pw 3962  df-sn 3978  df-pr 3980  df-tp 3982  df-op 3984  df-uni 4192  df-iun 4273  df-br 4393  df-opab 4451  df-mpt 4452  df-tr 4486  df-eprel 4732  df-id 4736  df-po 4741  df-so 4742  df-fr 4779  df-we 4781  df-ord 4822  df-on 4823  df-lim 4824  df-suc 4825  df-xp 4946  df-rel 4947  df-cnv 4948  df-co 4949  df-dm 4950  df-rn 4951  df-res 4952  df-ima 4953  df-iota 5481  df-fun 5520  df-fn 5521  df-f 5522  df-f1 5523  df-fo 5524  df-f1o 5525  df-fv 5526  df-riota 6153  df-ov 6195  df-oprab 6196  df-mpt2 6197  df-om 6579  df-recs 6934  df-rdg 6968  df-er 7203  df-en 7413  df-dom 7414  df-sdom 7415  df-pnf 9523  df-mnf 9524  df-xr 9525  df-ltxr 9526  df-le 9527  df-sub 9700  df-neg 9701  df-nn 10426  df-2 10483  df-3 10484  df-n0 10683  df-z 10750
This theorem is referenced by:  constr3lem6  23672  constr3trllem5  23677  constr3cycllem1  23681  constr3cyclp  23685
  Copyright terms: Public domain W3C validator