Theorem mulcnsr 8054

Description: Multiplication of complex numbers in terms of signed reals. (Contributed by NM, 9-Aug-1995.)

Assertion

Ref	Expression
mulcnsr	⊢ (((𝐴 ∈ R ∧ 𝐵 ∈ R) ∧ (𝐶 ∈ R ∧ 𝐷 ∈ R)) → (⟨𝐴, 𝐵⟩ · ⟨𝐶, 𝐷⟩) = ⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩)

Proof of Theorem mulcnsr

Dummy variables 𝑥 𝑦 𝑧 𝑤 𝑣 𝑢 𝑓 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mulclsr 7973	. . . . 5 ⊢ ((𝐴 ∈ R ∧ 𝐶 ∈ R) → (𝐴 ·R 𝐶) ∈ R)
2	1	ad2ant2r 509	. . . 4 ⊢ (((𝐴 ∈ R ∧ 𝐵 ∈ R) ∧ (𝐶 ∈ R ∧ 𝐷 ∈ R)) → (𝐴 ·R 𝐶) ∈ R)
3		m1r 7971	. . . . 5 ⊢ -1R ∈ R
4		mulclsr 7973	. . . . . 6 ⊢ ((𝐵 ∈ R ∧ 𝐷 ∈ R) → (𝐵 ·R 𝐷) ∈ R)
5	4	ad2ant2l 508	. . . . 5 ⊢ (((𝐴 ∈ R ∧ 𝐵 ∈ R) ∧ (𝐶 ∈ R ∧ 𝐷 ∈ R)) → (𝐵 ·R 𝐷) ∈ R)
6		mulclsr 7973	. . . . 5 ⊢ ((-1R ∈ R ∧ (𝐵 ·R 𝐷) ∈ R) → (-1R ·R (𝐵 ·R 𝐷)) ∈ R)
7	3, 5, 6	sylancr 414	. . . 4 ⊢ (((𝐴 ∈ R ∧ 𝐵 ∈ R) ∧ (𝐶 ∈ R ∧ 𝐷 ∈ R)) → (-1R ·R (𝐵 ·R 𝐷)) ∈ R)
8		addclsr 7972	. . . 4 ⊢ (((𝐴 ·R 𝐶) ∈ R ∧ (-1R ·R (𝐵 ·R 𝐷)) ∈ R) → ((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))) ∈ R)
9	2, 7, 8	syl2anc 411	. . 3 ⊢ (((𝐴 ∈ R ∧ 𝐵 ∈ R) ∧ (𝐶 ∈ R ∧ 𝐷 ∈ R)) → ((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))) ∈ R)
10		mulclsr 7973	. . . . 5 ⊢ ((𝐵 ∈ R ∧ 𝐶 ∈ R) → (𝐵 ·R 𝐶) ∈ R)
11	10	ad2ant2lr 510	. . . 4 ⊢ (((𝐴 ∈ R ∧ 𝐵 ∈ R) ∧ (𝐶 ∈ R ∧ 𝐷 ∈ R)) → (𝐵 ·R 𝐶) ∈ R)
12		mulclsr 7973	. . . . 5 ⊢ ((𝐴 ∈ R ∧ 𝐷 ∈ R) → (𝐴 ·R 𝐷) ∈ R)
13	12	ad2ant2rl 511	. . . 4 ⊢ (((𝐴 ∈ R ∧ 𝐵 ∈ R) ∧ (𝐶 ∈ R ∧ 𝐷 ∈ R)) → (𝐴 ·R 𝐷) ∈ R)
14		addclsr 7972	. . . 4 ⊢ (((𝐵 ·R 𝐶) ∈ R ∧ (𝐴 ·R 𝐷) ∈ R) → ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷)) ∈ R)
15	11, 13, 14	syl2anc 411	. . 3 ⊢ (((𝐴 ∈ R ∧ 𝐵 ∈ R) ∧ (𝐶 ∈ R ∧ 𝐷 ∈ R)) → ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷)) ∈ R)
16		opelxpi 4757	. . 3 ⊢ ((((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))) ∈ R ∧ ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷)) ∈ R) → ⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩ ∈ (R × R))
17	9, 15, 16	syl2anc 411	. 2 ⊢ (((𝐴 ∈ R ∧ 𝐵 ∈ R) ∧ (𝐶 ∈ R ∧ 𝐷 ∈ R)) → ⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩ ∈ (R × R))
18		simpll 527	. . . . 5 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → 𝑤 = 𝐴)
19		simprl 531	. . . . 5 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → 𝑢 = 𝐶)
20	18, 19	oveq12d 6035	. . . 4 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → (𝑤 ·R 𝑢) = (𝐴 ·R 𝐶))
21		simplr 529	. . . . . 6 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → 𝑣 = 𝐵)
22		simprr 533	. . . . . 6 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → 𝑓 = 𝐷)
23	21, 22	oveq12d 6035	. . . . 5 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → (𝑣 ·R 𝑓) = (𝐵 ·R 𝐷))
24	23	oveq2d 6033	. . . 4 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → (-1R ·R (𝑣 ·R 𝑓)) = (-1R ·R (𝐵 ·R 𝐷)))
25	20, 24	oveq12d 6035	. . 3 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → ((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))) = ((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))))
26	21, 19	oveq12d 6035	. . . 4 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → (𝑣 ·R 𝑢) = (𝐵 ·R 𝐶))
27	18, 22	oveq12d 6035	. . . 4 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → (𝑤 ·R 𝑓) = (𝐴 ·R 𝐷))
28	26, 27	oveq12d 6035	. . 3 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓)) = ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷)))
29	25, 28	opeq12d 3870	. 2 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩ = ⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩)
30		df-mul 8043	. . 3 ⊢ · = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩))}
31		df-c 8037	. . . . . . 7 ⊢ ℂ = (R × R)
32	31	eleq2i 2298	. . . . . 6 ⊢ (𝑥 ∈ ℂ ↔ 𝑥 ∈ (R × R))
33	31	eleq2i 2298	. . . . . 6 ⊢ (𝑦 ∈ ℂ ↔ 𝑦 ∈ (R × R))
34	32, 33	anbi12i 460	. . . . 5 ⊢ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ↔ (𝑥 ∈ (R × R) ∧ 𝑦 ∈ (R × R)))
35	34	anbi1i 458	. . . 4 ⊢ (((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩)) ↔ ((𝑥 ∈ (R × R) ∧ 𝑦 ∈ (R × R)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩)))
36	35	oprabbii 6075	. . 3 ⊢ {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩))} = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (R × R) ∧ 𝑦 ∈ (R × R)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩))}
37	30, 36	eqtri 2252	. 2 ⊢ · = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (R × R) ∧ 𝑦 ∈ (R × R)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩))}
38	17, 29, 37	ovi3 6158	1 ⊢ (((𝐴 ∈ R ∧ 𝐵 ∈ R) ∧ (𝐶 ∈ R ∧ 𝐷 ∈ R)) → (⟨𝐴, 𝐵⟩ · ⟨𝐶, 𝐷⟩) = ⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩)

Syntax hints:   → wi 4   ∧ wa 104   = wceq 1397  ∃wex 1540   ∈ wcel 2202  ⟨cop 3672   × cxp 4723  (class class class)co 6017  {coprab 6018  Rcnr 7516  -1_Rcm1r 7519   +_R cplr 7520   ·_R cmr 7521  ℂcc 8029   · cmul 8036

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-in1 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4204  ax-sep 4207  ax-nul 4215  ax-pow 4264  ax-pr 4299  ax-un 4530  ax-setind 4635  ax-iinf 4686

This theorem depends on definitions:  df-bi 117  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ne 2403  df-ral 2515  df-rex 2516  df-reu 2517  df-rab 2519  df-v 2804  df-sbc 3032  df-csb 3128  df-dif 3202  df-un 3204  df-in 3206  df-ss 3213  df-nul 3495  df-pw 3654  df-sn 3675  df-pr 3676  df-op 3678  df-uni 3894  df-int 3929  df-iun 3972  df-br 4089  df-opab 4151  df-mpt 4152  df-tr 4188  df-eprel 4386  df-id 4390  df-po 4393  df-iso 4394  df-iord 4463  df-on 4465  df-suc 4468  df-iom 4689  df-xp 4731  df-rel 4732  df-cnv 4733  df-co 4734  df-dm 4735  df-rn 4736  df-res 4737  df-ima 4738  df-iota 5286  df-fun 5328  df-fn 5329  df-f 5330  df-f1 5331  df-fo 5332  df-f1o 5333  df-fv 5334  df-ov 6020  df-oprab 6021  df-mpo 6022  df-1st 6302  df-2nd 6303  df-recs 6470  df-irdg 6535  df-1o 6581  df-2o 6582  df-oadd 6585  df-omul 6586  df-er 6701  df-ec 6703  df-qs 6707  df-ni 7523  df-pli 7524  df-mi 7525  df-lti 7526  df-plpq 7563  df-mpq 7564  df-enq 7566  df-nqqs 7567  df-plqqs 7568  df-mqqs 7569  df-1nqqs 7570  df-rq 7571  df-ltnqqs 7572  df-enq0 7643  df-nq0 7644  df-0nq0 7645  df-plq0 7646  df-mq0 7647  df-inp 7685  df-i1p 7686  df-iplp 7687  df-imp 7688  df-enr 7945  df-nr 7946  df-plr 7947  df-mr 7948  df-m1r 7952  df-c 8037  df-mul 8043

This theorem is referenced by:  mulresr  8057  mulcnsrec  8062  axmulcl  8085  axi2m1  8094  axcnre  8100