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

Theorem domnchr 19038
Description: The characteristic of a domain can only be zero or a prime. (Contributed by Stefan O'Rear, 6-Sep-2015.)
Assertion
Ref Expression
domnchr  |-  ( R  e. Domn  ->  ( (chr `  R )  =  0  \/  (chr `  R
)  e.  Prime )
)

Proof of Theorem domnchr
Dummy variables  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-ne 2595 . . 3  |-  ( (chr
`  R )  =/=  0  <->  -.  (chr `  R
)  =  0 )
2 domnring 18456 . . . . . . . . . 10  |-  ( R  e. Domn  ->  R  e.  Ring )
3 eqid 2422 . . . . . . . . . . 11  |-  (chr `  R )  =  (chr
`  R )
43chrcl 19032 . . . . . . . . . 10  |-  ( R  e.  Ring  ->  (chr `  R )  e.  NN0 )
52, 4syl 17 . . . . . . . . 9  |-  ( R  e. Domn  ->  (chr `  R
)  e.  NN0 )
65adantr 466 . . . . . . . 8  |-  ( ( R  e. Domn  /\  (chr `  R )  =/=  0
)  ->  (chr `  R
)  e.  NN0 )
7 simpr 462 . . . . . . . 8  |-  ( ( R  e. Domn  /\  (chr `  R )  =/=  0
)  ->  (chr `  R
)  =/=  0 )
8 eldifsn 4061 . . . . . . . 8  |-  ( (chr
`  R )  e.  ( NN0  \  {
0 } )  <->  ( (chr `  R )  e.  NN0  /\  (chr `  R )  =/=  0 ) )
96, 7, 8sylanbrc 668 . . . . . . 7  |-  ( ( R  e. Domn  /\  (chr `  R )  =/=  0
)  ->  (chr `  R
)  e.  ( NN0  \  { 0 } ) )
10 dfn2 10826 . . . . . . 7  |-  NN  =  ( NN0  \  { 0 } )
119, 10syl6eleqr 2511 . . . . . 6  |-  ( ( R  e. Domn  /\  (chr `  R )  =/=  0
)  ->  (chr `  R
)  e.  NN )
12 domnnzr 18455 . . . . . . . 8  |-  ( R  e. Domn  ->  R  e. NzRing )
13 nzrring 18421 . . . . . . . . . 10  |-  ( R  e. NzRing  ->  R  e.  Ring )
14 chrnzr 19036 . . . . . . . . . 10  |-  ( R  e.  Ring  ->  ( R  e. NzRing 
<->  (chr `  R )  =/=  1 ) )
1513, 14syl 17 . . . . . . . . 9  |-  ( R  e. NzRing  ->  ( R  e. NzRing  <->  (chr
`  R )  =/=  1 ) )
1615ibi 244 . . . . . . . 8  |-  ( R  e. NzRing  ->  (chr `  R
)  =/=  1 )
1712, 16syl 17 . . . . . . 7  |-  ( R  e. Domn  ->  (chr `  R
)  =/=  1 )
1817adantr 466 . . . . . 6  |-  ( ( R  e. Domn  /\  (chr `  R )  =/=  0
)  ->  (chr `  R
)  =/=  1 )
19 eluz2b3 11176 . . . . . 6  |-  ( (chr
`  R )  e.  ( ZZ>= `  2 )  <->  ( (chr `  R )  e.  NN  /\  (chr `  R )  =/=  1
) )
2011, 18, 19sylanbrc 668 . . . . 5  |-  ( ( R  e. Domn  /\  (chr `  R )  =/=  0
)  ->  (chr `  R
)  e.  ( ZZ>= ` 
2 ) )
212ad2antrr 730 . . . . . . . . . . . 12  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  R  e.  Ring )
22 eqid 2422 . . . . . . . . . . . . 13  |-  ( ZRHom `  R )  =  ( ZRHom `  R )
2322zrhrhm 19018 . . . . . . . . . . . 12  |-  ( R  e.  Ring  ->  ( ZRHom `  R )  e.  (ring RingHom  R
) )
2421, 23syl 17 . . . . . . . . . . 11  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( ZRHom `  R )  e.  (ring RingHom  R
) )
25 simprl 762 . . . . . . . . . . 11  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  x  e.  ZZ )
26 simprr 764 . . . . . . . . . . 11  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  y  e.  ZZ )
27 zringbas 18980 . . . . . . . . . . . 12  |-  ZZ  =  ( Base ` ring )
28 zringmulr 18983 . . . . . . . . . . . 12  |-  x.  =  ( .r ` ring )
29 eqid 2422 . . . . . . . . . . . 12  |-  ( .r
`  R )  =  ( .r `  R
)
3027, 28, 29rhmmul 17891 . . . . . . . . . . 11  |-  ( ( ( ZRHom `  R
)  e.  (ring RingHom  R )  /\  x  e.  ZZ  /\  y  e.  ZZ )  ->  (
( ZRHom `  R
) `  ( x  x.  y ) )  =  ( ( ( ZRHom `  R ) `  x
) ( .r `  R ) ( ( ZRHom `  R ) `  y ) ) )
3124, 25, 26, 30syl3anc 1264 . . . . . . . . . 10  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( ( ZRHom `  R ) `  ( x  x.  y
) )  =  ( ( ( ZRHom `  R ) `  x
) ( .r `  R ) ( ( ZRHom `  R ) `  y ) ) )
3231eqeq1d 2424 . . . . . . . . 9  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( (
( ZRHom `  R
) `  ( x  x.  y ) )  =  ( 0g `  R
)  <->  ( ( ( ZRHom `  R ) `  x ) ( .r
`  R ) ( ( ZRHom `  R
) `  y )
)  =  ( 0g
`  R ) ) )
33 simpll 758 . . . . . . . . . 10  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  R  e. Domn )
34 eqid 2422 . . . . . . . . . . . . 13  |-  ( Base `  R )  =  (
Base `  R )
3527, 34rhmf 17890 . . . . . . . . . . . 12  |-  ( ( ZRHom `  R )  e.  (ring RingHom  R )  ->  ( ZRHom `  R ) : ZZ --> ( Base `  R
) )
3624, 35syl 17 . . . . . . . . . . 11  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( ZRHom `  R ) : ZZ --> ( Base `  R )
)
3736, 25ffvelrnd 5975 . . . . . . . . . 10  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( ( ZRHom `  R ) `  x )  e.  (
Base `  R )
)
3836, 26ffvelrnd 5975 . . . . . . . . . 10  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( ( ZRHom `  R ) `  y )  e.  (
Base `  R )
)
39 eqid 2422 . . . . . . . . . . 11  |-  ( 0g
`  R )  =  ( 0g `  R
)
4034, 29, 39domneq0 18457 . . . . . . . . . 10  |-  ( ( R  e. Domn  /\  (
( ZRHom `  R
) `  x )  e.  ( Base `  R
)  /\  ( ( ZRHom `  R ) `  y )  e.  (
Base `  R )
)  ->  ( (
( ( ZRHom `  R ) `  x
) ( .r `  R ) ( ( ZRHom `  R ) `  y ) )  =  ( 0g `  R
)  <->  ( ( ( ZRHom `  R ) `  x )  =  ( 0g `  R )  \/  ( ( ZRHom `  R ) `  y
)  =  ( 0g
`  R ) ) ) )
4133, 37, 38, 40syl3anc 1264 . . . . . . . . 9  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( (
( ( ZRHom `  R ) `  x
) ( .r `  R ) ( ( ZRHom `  R ) `  y ) )  =  ( 0g `  R
)  <->  ( ( ( ZRHom `  R ) `  x )  =  ( 0g `  R )  \/  ( ( ZRHom `  R ) `  y
)  =  ( 0g
`  R ) ) ) )
4232, 41bitrd 256 . . . . . . . 8  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( (
( ZRHom `  R
) `  ( x  x.  y ) )  =  ( 0g `  R
)  <->  ( ( ( ZRHom `  R ) `  x )  =  ( 0g `  R )  \/  ( ( ZRHom `  R ) `  y
)  =  ( 0g
`  R ) ) ) )
4342biimpd 210 . . . . . . 7  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( (
( ZRHom `  R
) `  ( x  x.  y ) )  =  ( 0g `  R
)  ->  ( (
( ZRHom `  R
) `  x )  =  ( 0g `  R )  \/  (
( ZRHom `  R
) `  y )  =  ( 0g `  R ) ) ) )
44 zmulcl 10929 . . . . . . . . 9  |-  ( ( x  e.  ZZ  /\  y  e.  ZZ )  ->  ( x  x.  y
)  e.  ZZ )
4544adantl 467 . . . . . . . 8  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( x  x.  y )  e.  ZZ )
463, 22, 39chrdvds 19034 . . . . . . . 8  |-  ( ( R  e.  Ring  /\  (
x  x.  y )  e.  ZZ )  -> 
( (chr `  R
)  ||  ( x  x.  y )  <->  ( ( ZRHom `  R ) `  ( x  x.  y
) )  =  ( 0g `  R ) ) )
4721, 45, 46syl2anc 665 . . . . . . 7  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( (chr `  R )  ||  (
x  x.  y )  <-> 
( ( ZRHom `  R ) `  (
x  x.  y ) )  =  ( 0g
`  R ) ) )
483, 22, 39chrdvds 19034 . . . . . . . . 9  |-  ( ( R  e.  Ring  /\  x  e.  ZZ )  ->  (
(chr `  R )  ||  x  <->  ( ( ZRHom `  R ) `  x
)  =  ( 0g
`  R ) ) )
4921, 25, 48syl2anc 665 . . . . . . . 8  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( (chr `  R )  ||  x  <->  ( ( ZRHom `  R
) `  x )  =  ( 0g `  R ) ) )
503, 22, 39chrdvds 19034 . . . . . . . . 9  |-  ( ( R  e.  Ring  /\  y  e.  ZZ )  ->  (
(chr `  R )  ||  y  <->  ( ( ZRHom `  R ) `  y
)  =  ( 0g
`  R ) ) )
5121, 26, 50syl2anc 665 . . . . . . . 8  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( (chr `  R )  ||  y  <->  ( ( ZRHom `  R
) `  y )  =  ( 0g `  R ) ) )
5249, 51orbi12d 714 . . . . . . 7  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( (
(chr `  R )  ||  x  \/  (chr `  R )  ||  y
)  <->  ( ( ( ZRHom `  R ) `  x )  =  ( 0g `  R )  \/  ( ( ZRHom `  R ) `  y
)  =  ( 0g
`  R ) ) ) )
5343, 47, 523imtr4d 271 . . . . . 6  |-  ( ( ( R  e. Domn  /\  (chr `  R )  =/=  0 )  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  ->  ( (chr `  R )  ||  (
x  x.  y )  ->  ( (chr `  R )  ||  x  \/  (chr `  R )  ||  y ) ) )
5453ralrimivva 2780 . . . . 5  |-  ( ( R  e. Domn  /\  (chr `  R )  =/=  0
)  ->  A. x  e.  ZZ  A. y  e.  ZZ  ( (chr `  R )  ||  (
x  x.  y )  ->  ( (chr `  R )  ||  x  \/  (chr `  R )  ||  y ) ) )
55 isprm6 14602 . . . . 5  |-  ( (chr
`  R )  e. 
Prime 
<->  ( (chr `  R
)  e.  ( ZZ>= ` 
2 )  /\  A. x  e.  ZZ  A. y  e.  ZZ  ( (chr `  R )  ||  (
x  x.  y )  ->  ( (chr `  R )  ||  x  \/  (chr `  R )  ||  y ) ) ) )
5620, 54, 55sylanbrc 668 . . . 4  |-  ( ( R  e. Domn  /\  (chr `  R )  =/=  0
)  ->  (chr `  R
)  e.  Prime )
5756ex 435 . . 3  |-  ( R  e. Domn  ->  ( (chr `  R )  =/=  0  ->  (chr `  R )  e.  Prime ) )
581, 57syl5bir 221 . 2  |-  ( R  e. Domn  ->  ( -.  (chr `  R )  =  0  ->  (chr `  R
)  e.  Prime )
)
5958orrd 379 1  |-  ( R  e. Domn  ->  ( (chr `  R )  =  0  \/  (chr `  R
)  e.  Prime )
)
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 187    \/ wo 369    /\ wa 370    = wceq 1437    e. wcel 1872    =/= wne 2593   A.wral 2708    \ cdif 3369   {csn 3934   class class class wbr 4359   -->wf 5533   ` cfv 5537  (class class class)co 6242   0cc0 9483   1c1 9484    x. cmul 9488   NNcn 10553   2c2 10603   NN0cn0 10813   ZZcz 10881   ZZ>=cuz 11103    || cdvds 14241   Primecprime 14558   Basecbs 15057   .rcmulr 15127   0gc0g 15274   Ringcrg 17716   RingHom crh 17876  NzRingcnzr 18417  Domncdomn 18440  ℤringzring 18974   ZRHomczrh 19006  chrcchr 19008
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1663  ax-4 1676  ax-5 1752  ax-6 1798  ax-7 1843  ax-8 1874  ax-9 1876  ax-10 1891  ax-11 1896  ax-12 1909  ax-13 2058  ax-ext 2402  ax-rep 4472  ax-sep 4482  ax-nul 4491  ax-pow 4538  ax-pr 4596  ax-un 6534  ax-inf2 8092  ax-cnex 9539  ax-resscn 9540  ax-1cn 9541  ax-icn 9542  ax-addcl 9543  ax-addrcl 9544  ax-mulcl 9545  ax-mulrcl 9546  ax-mulcom 9547  ax-addass 9548  ax-mulass 9549  ax-distr 9550  ax-i2m1 9551  ax-1ne0 9552  ax-1rid 9553  ax-rnegex 9554  ax-rrecex 9555  ax-cnre 9556  ax-pre-lttri 9557  ax-pre-lttrn 9558  ax-pre-ltadd 9559  ax-pre-mulgt0 9560  ax-pre-sup 9561  ax-addf 9562  ax-mulf 9563
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-ex 1658  df-nf 1662  df-sb 1791  df-eu 2274  df-mo 2275  df-clab 2409  df-cleq 2415  df-clel 2418  df-nfc 2552  df-ne 2595  df-nel 2596  df-ral 2713  df-rex 2714  df-reu 2715  df-rmo 2716  df-rab 2717  df-v 3018  df-sbc 3236  df-csb 3332  df-dif 3375  df-un 3377  df-in 3379  df-ss 3386  df-pss 3388  df-nul 3698  df-if 3848  df-pw 3919  df-sn 3935  df-pr 3937  df-tp 3939  df-op 3941  df-uni 4156  df-int 4192  df-iun 4237  df-br 4360  df-opab 4419  df-mpt 4420  df-tr 4455  df-eprel 4700  df-id 4704  df-po 4710  df-so 4711  df-fr 4748  df-we 4750  df-xp 4795  df-rel 4796  df-cnv 4797  df-co 4798  df-dm 4799  df-rn 4800  df-res 4801  df-ima 4802  df-pred 5335  df-ord 5381  df-on 5382  df-lim 5383  df-suc 5384  df-iota 5501  df-fun 5539  df-fn 5540  df-f 5541  df-f1 5542  df-fo 5543  df-f1o 5544  df-fv 5545  df-riota 6204  df-ov 6245  df-oprab 6246  df-mpt2 6247  df-om 6644  df-1st 6744  df-2nd 6745  df-wrecs 6976  df-recs 7038  df-rdg 7076  df-1o 7130  df-2o 7131  df-oadd 7134  df-er 7311  df-map 7422  df-en 7518  df-dom 7519  df-sdom 7520  df-fin 7521  df-sup 7902  df-inf 7903  df-pnf 9621  df-mnf 9622  df-xr 9623  df-ltxr 9624  df-le 9625  df-sub 9806  df-neg 9807  df-div 10214  df-nn 10554  df-2 10612  df-3 10613  df-4 10614  df-5 10615  df-6 10616  df-7 10617  df-8 10618  df-9 10619  df-10 10620  df-n0 10814  df-z 10882  df-dec 10996  df-uz 11104  df-rp 11247  df-fz 11729  df-fl 11971  df-mod 12040  df-seq 12157  df-exp 12216  df-cj 13099  df-re 13100  df-im 13101  df-sqrt 13235  df-abs 13236  df-dvds 14242  df-gcd 14405  df-prm 14559  df-struct 15059  df-ndx 15060  df-slot 15061  df-base 15062  df-sets 15063  df-ress 15064  df-plusg 15139  df-mulr 15140  df-starv 15141  df-tset 15145  df-ple 15146  df-ds 15148  df-unif 15149  df-0g 15276  df-mgm 16424  df-sgrp 16463  df-mnd 16473  df-mhm 16518  df-grp 16609  df-minusg 16610  df-sbg 16611  df-mulg 16612  df-subg 16750  df-ghm 16817  df-od 17108  df-cmn 17368  df-mgp 17660  df-ur 17672  df-ring 17718  df-cring 17719  df-rnghom 17879  df-subrg 17942  df-nzr 18418  df-domn 18444  df-cnfld 18907  df-zring 18975  df-zrh 19010  df-chr 19012
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator