Theorem mulid1 7787

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

Assertion

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

Proof of Theorem mulid1

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

Step	Hyp	Ref	Expression
1		cnre 7786	. 2 |- ( A e. CC -> E. x e. RR E. y e. RR A = ( x + ( _i x. y ) ) )
2		recn 7777	. . . . . 6 |- ( x e. RR -> x e. CC )
3		ax-icn 7739	. . . . . . 7 |- _i e. CC
4		recn 7777	. . . . . . 7 |- ( y e. RR -> y e. CC )
5		mulcl 7771	. . . . . . 7 |- ( ( _i e. CC /\ y e. CC ) -> ( _i x. y ) e. CC )
6	3, 4, 5	sylancr 411	. . . . . 6 |- ( y e. RR -> ( _i x. y ) e. CC )
7		ax-1cn 7737	. . . . . . 7 |- 1 e. CC
8		adddir 7781	. . . . . . 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 1305	. . . . . 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 287	. . . . 5 |- ( ( x e. RR /\ y e. RR ) -> ( ( x + ( _i x. y ) ) x. 1 ) = ( ( x x. 1 ) + ( ( _i x. y ) x. 1 ) ) )
11		ax-1rid 7751	. . . . . 6 |- ( x e. RR -> ( x x. 1 ) = x )
12		mulass 7775	. . . . . . . . 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 1307	. . . . . . . 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 7751	. . . . . . . 8 |- ( y e. RR -> ( y x. 1 ) = y )
16	15	oveq2d 5798	. . . . . . 7 |- ( y e. RR -> ( _i x. ( y x. 1 ) ) = ( _i x. y ) )
17	14, 16	eqtrd 2173	. . . . . 6 |- ( y e. RR -> ( ( _i x. y ) x. 1 ) = ( _i x. y ) )
18	11, 17	oveqan12d 5801	. . . . 5 |- ( ( x e. RR /\ y e. RR ) -> ( ( x x. 1 ) + ( ( _i x. y ) x. 1 ) ) = ( x + ( _i x. y ) ) )
19	10, 18	eqtrd 2173	. . . 4 |- ( ( x e. RR /\ y e. RR ) -> ( ( x + ( _i x. y ) ) x. 1 ) = ( x + ( _i x. y ) ) )
20		oveq1 5789	. . . . 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 2155	. . . 4 |- ( A = ( x + ( _i x. y ) ) -> ( ( A x. 1 ) = A <-> ( ( x + ( _i x. y ) ) x. 1 ) = ( x + ( _i x. y ) ) ) )
23	19, 22	syl5ibrcom 156	. . 3 |- ( ( x e. RR /\ y e. RR ) -> ( A = ( x + ( _i x. y ) ) -> ( A x. 1 ) = A ) )
24	23	rexlimivv 2558	. 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 103   = wceq 1332   e. wcel 1481   E.wrex 2418  (class class class)co 5782   CCcc 7642   RRcr 7643   1c1 7645   _ici 7646   + caddc 7647   x. cmul 7649

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 699  ax-5 1424  ax-7 1425  ax-gen 1426  ax-ie1 1470  ax-ie2 1471  ax-8 1483  ax-10 1484  ax-11 1485  ax-i12 1486  ax-bndl 1487  ax-4 1488  ax-17 1507  ax-i9 1511  ax-ial 1515  ax-i5r 1516  ax-ext 2122  ax-resscn 7736  ax-1cn 7737  ax-icn 7739  ax-addcl 7740  ax-mulcl 7742  ax-mulcom 7745  ax-mulass 7747  ax-distr 7748  ax-1rid 7751  ax-cnre 7755

This theorem depends on definitions:  df-bi 116  df-3an 965  df-tru 1335  df-nf 1438  df-sb 1737  df-clab 2127  df-cleq 2133  df-clel 2136  df-nfc 2271  df-ral 2422  df-rex 2423  df-v 2691  df-un 3080  df-in 3082  df-ss 3089  df-sn 3538  df-pr 3539  df-op 3541  df-uni 3745  df-br 3938  df-iota 5096  df-fv 5139  df-ov 5785

This theorem is referenced by:  mulid2  7788  mulid1i  7792  mulid1d  7807  muleqadd  8453  divdivap1  8507  conjmulap  8513  nnmulcl  8765  expmul  10369  binom21  10435  binom2sub1  10437  bernneq  10443  hashiun  11279  fproddccvg  11373  prodmodclem2a  11377  efexp  11425  ecxp  13030