Theorem mulrid 8042

Description: 1 is an identity element for multiplication. Based on ideas by Eric Schmidt. (Contributed by Scott Fenton, 3-Jan-2013.)

Assertion

Ref	Expression
mulrid	|- ( A e. CC -> ( A x. 1 ) = A )

Proof of Theorem mulrid

Dummy variables x y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		cnre 8041	. 2 |- ( A e. CC -> E. x e. RR E. y e. RR A = ( x + ( _i x. y ) ) )
2		recn 8031	. . . . . 6 |- ( x e. RR -> x e. CC )
3		ax-icn 7993	. . . . . . 7 |- _i e. CC
4		recn 8031	. . . . . . 7 |- ( y e. RR -> y e. CC )
5		mulcl 8025	. . . . . . 7 |- ( ( _i e. CC /\ y e. CC ) -> ( _i x. y ) e. CC )
6	3, 4, 5	sylancr 414	. . . . . 6 |- ( y e. RR -> ( _i x. y ) e. CC )
7		ax-1cn 7991	. . . . . . 7 |- 1 e. CC
8		adddir 8036	. . . . . . 7 |- ( ( x e. CC /\ ( _i x. y ) e. CC /\ 1 e. CC ) -> ( ( x + ( _i x. y ) ) x. 1 ) = ( ( x x. 1 ) + ( ( _i x. y ) x. 1 ) ) )
9	7, 8	mp3an3 1337	. . . . . 6 |- ( ( x e. CC /\ ( _i x. y ) e. CC ) -> ( ( x + ( _i x. y ) ) x. 1 ) = ( ( x x. 1 ) + ( ( _i x. y ) x. 1 ) ) )
10	2, 6, 9	syl2an 289	. . . . 5 |- ( ( x e. RR /\ y e. RR ) -> ( ( x + ( _i x. y ) ) x. 1 ) = ( ( x x. 1 ) + ( ( _i x. y ) x. 1 ) ) )
11		ax-1rid 8005	. . . . . 6 |- ( x e. RR -> ( x x. 1 ) = x )
12		mulass 8029	. . . . . . . . 9 |- ( ( _i e. CC /\ y e. CC /\ 1 e. CC ) -> ( ( _i x. y ) x. 1 ) = ( _i x. ( y x. 1 ) ) )
13	3, 7, 12	mp3an13 1339	. . . . . . . 8 |- ( y e. CC -> ( ( _i x. y ) x. 1 ) = ( _i x. ( y x. 1 ) ) )
14	4, 13	syl 14	. . . . . . 7 |- ( y e. RR -> ( ( _i x. y ) x. 1 ) = ( _i x. ( y x. 1 ) ) )
15		ax-1rid 8005	. . . . . . . 8 |- ( y e. RR -> ( y x. 1 ) = y )
16	15	oveq2d 5941	. . . . . . 7 |- ( y e. RR -> ( _i x. ( y x. 1 ) ) = ( _i x. y ) )
17	14, 16	eqtrd 2229	. . . . . 6 |- ( y e. RR -> ( ( _i x. y ) x. 1 ) = ( _i x. y ) )
18	11, 17	oveqan12d 5944	. . . . 5 |- ( ( x e. RR /\ y e. RR ) -> ( ( x x. 1 ) + ( ( _i x. y ) x. 1 ) ) = ( x + ( _i x. y ) ) )
19	10, 18	eqtrd 2229	. . . 4 |- ( ( x e. RR /\ y e. RR ) -> ( ( x + ( _i x. y ) ) x. 1 ) = ( x + ( _i x. y ) ) )
20		oveq1 5932	. . . . 5 |- ( A = ( x + ( _i x. y ) ) -> ( A x. 1 ) = ( ( x + ( _i x. y ) ) x. 1 ) )
21		id 19	. . . . 5 |- ( A = ( x + ( _i x. y ) ) -> A = ( x + ( _i x. y ) ) )
22	20, 21	eqeq12d 2211	. . . 4 |- ( A = ( x + ( _i x. y ) ) -> ( ( A x. 1 ) = A <-> ( ( x + ( _i x. y ) ) x. 1 ) = ( x + ( _i x. y ) ) ) )
23	19, 22	syl5ibrcom 157	. . 3 |- ( ( x e. RR /\ y e. RR ) -> ( A = ( x + ( _i x. y ) ) -> ( A x. 1 ) = A ) )
24	23	rexlimivv 2620	. 2 |- ( E. x e. RR E. y e. RR A = ( x + ( _i x. y ) ) -> ( A x. 1 ) = A )
25	1, 24	syl 14	1 |- ( A e. CC -> ( A x. 1 ) = A )

Syntax hints:   -> wi 4   /\ wa 104   = wceq 1364   e. wcel 2167   E.wrex 2476  (class class class)co 5925   CCcc 7896   RRcr 7897   1c1 7899   _ici 7900   + caddc 7901   x. cmul 7903

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 710  ax-5 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-ext 2178  ax-resscn 7990  ax-1cn 7991  ax-icn 7993  ax-addcl 7994  ax-mulcl 7996  ax-mulcom 7999  ax-mulass 8001  ax-distr 8002  ax-1rid 8005  ax-cnre 8009

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-nf 1475  df-sb 1777  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-ral 2480  df-rex 2481  df-v 2765  df-un 3161  df-in 3163  df-ss 3170  df-sn 3629  df-pr 3630  df-op 3632  df-uni 3841  df-br 4035  df-iota 5220  df-fv 5267  df-ov 5928

This theorem is referenced by:  mullid  8043  mulridi  8047  mulridd  8062  muleqadd  8714  divdivap1  8769  conjmulap  8775  nnmulcl  9030  expmul  10695  binom21  10763  binom2sub1  10765  bernneq  10771  hashiun  11662  fproddccvg  11756  prodmodclem2a  11760  efexp  11866  cncrng  14203  cnfld1  14206  ecxp  15245  lgsdilem2  15385