Theorem axmulf 9846

Description: Multiplication is an operation on the complex numbers. This theorem can be used as an alternate axiom for complex numbers in place of the less specific axmulcl 9853. This construction-dependent theorem should not be referenced directly; instead, use ax-mulf 9895. (Contributed by NM, 8-Feb-2005.) (New usage is discouraged.)

Assertion

Ref	Expression
axmulf	⊢ · :(ℂ × ℂ)⟶ℂ

Proof of Theorem axmulf

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

Step	Hyp	Ref	Expression
1		moeq 3349	. . . . . . . . 9 ⊢ ∃*𝑧 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩
2	1	mosubop 4898	. . . . . . . 8 ⊢ ∃*𝑧∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩)
3	2	mosubop 4898	. . . . . . 7 ⊢ ∃*𝑧∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩))
4		anass 679	. . . . . . . . . . 11 ⊢ (((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩)))
5	4	2exbii 1765	. . . . . . . . . 10 ⊢ (∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩) ↔ ∃𝑢∃𝑓(𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩)))
6		19.42vv 1907	. . . . . . . . . 10 ⊢ (∃𝑢∃𝑓(𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩)) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩)))
7	5, 6	bitri 263	. . . . . . . . 9 ⊢ (∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩)))
8	7	2exbii 1765	. . . . . . . 8 ⊢ (∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩) ↔ ∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩)))
9	8	mobii 2481	. . . . . . 7 ⊢ (∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩) ↔ ∃*𝑧∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩)))
10	3, 9	mpbir 220	. . . . . 6 ⊢ ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩)
11	10	moani 2513	. . . . 5 ⊢ ∃*𝑧((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩))
12	11	funoprab 6658	. . . 4 ⊢ Fun {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩))}
13		df-mul 9827	. . . . 5 ⊢ · = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩))}
14	13	funeqi 5824	. . . 4 ⊢ (Fun · ↔ Fun {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩))})
15	12, 14	mpbir 220	. . 3 ⊢ Fun ·
16	13	dmeqi 5247	. . . . 5 ⊢ dom · = dom {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩))}
17		dmoprabss 6640	. . . . 5 ⊢ dom {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = ⟨((𝑤 ·R 𝑢) +R (-1R ·R (𝑣 ·R 𝑓))), ((𝑣 ·R 𝑢) +R (𝑤 ·R 𝑓))⟩))} ⊆ (ℂ × ℂ)
18	16, 17	eqsstri 3598	. . . 4 ⊢ dom · ⊆ (ℂ × ℂ)
19		0ncn 9833	. . . . 5 ⊢ ¬ ∅ ∈ ℂ
20		df-c 9821	. . . . . . 7 ⊢ ℂ = (R × R)
21		oveq1 6556	. . . . . . . 8 ⊢ (⟨𝑧, 𝑤⟩ = 𝑥 → (⟨𝑧, 𝑤⟩ · ⟨𝑣, 𝑢⟩) = (𝑥 · ⟨𝑣, 𝑢⟩))
22	21	eleq1d 2672	. . . . . . 7 ⊢ (⟨𝑧, 𝑤⟩ = 𝑥 → ((⟨𝑧, 𝑤⟩ · ⟨𝑣, 𝑢⟩) ∈ (R × R) ↔ (𝑥 · ⟨𝑣, 𝑢⟩) ∈ (R × R)))
23		oveq2 6557	. . . . . . . 8 ⊢ (⟨𝑣, 𝑢⟩ = 𝑦 → (𝑥 · ⟨𝑣, 𝑢⟩) = (𝑥 · 𝑦))
24	23	eleq1d 2672	. . . . . . 7 ⊢ (⟨𝑣, 𝑢⟩ = 𝑦 → ((𝑥 · ⟨𝑣, 𝑢⟩) ∈ (R × R) ↔ (𝑥 · 𝑦) ∈ (R × R)))
25		mulcnsr 9836	. . . . . . . 8 ⊢ (((𝑧 ∈ R ∧ 𝑤 ∈ R) ∧ (𝑣 ∈ R ∧ 𝑢 ∈ R)) → (⟨𝑧, 𝑤⟩ · ⟨𝑣, 𝑢⟩) = ⟨((𝑧 ·R 𝑣) +R (-1R ·R (𝑤 ·R 𝑢))), ((𝑤 ·R 𝑣) +R (𝑧 ·R 𝑢))⟩)
26		mulclsr 9784	. . . . . . . . . . 11 ⊢ ((𝑧 ∈ R ∧ 𝑣 ∈ R) → (𝑧 ·R 𝑣) ∈ R)
27		m1r 9782	. . . . . . . . . . . 12 ⊢ -1R ∈ R
28		mulclsr 9784	. . . . . . . . . . . 12 ⊢ ((𝑤 ∈ R ∧ 𝑢 ∈ R) → (𝑤 ·R 𝑢) ∈ R)
29		mulclsr 9784	. . . . . . . . . . . 12 ⊢ ((-1R ∈ R ∧ (𝑤 ·R 𝑢) ∈ R) → (-1R ·R (𝑤 ·R 𝑢)) ∈ R)
30	27, 28, 29	sylancr 694	. . . . . . . . . . 11 ⊢ ((𝑤 ∈ R ∧ 𝑢 ∈ R) → (-1R ·R (𝑤 ·R 𝑢)) ∈ R)
31		addclsr 9783	. . . . . . . . . . 11 ⊢ (((𝑧 ·R 𝑣) ∈ R ∧ (-1R ·R (𝑤 ·R 𝑢)) ∈ R) → ((𝑧 ·R 𝑣) +R (-1R ·R (𝑤 ·R 𝑢))) ∈ R)
32	26, 30, 31	syl2an 493	. . . . . . . . . 10 ⊢ (((𝑧 ∈ R ∧ 𝑣 ∈ R) ∧ (𝑤 ∈ R ∧ 𝑢 ∈ R)) → ((𝑧 ·R 𝑣) +R (-1R ·R (𝑤 ·R 𝑢))) ∈ R)
33	32	an4s 865	. . . . . . . . 9 ⊢ (((𝑧 ∈ R ∧ 𝑤 ∈ R) ∧ (𝑣 ∈ R ∧ 𝑢 ∈ R)) → ((𝑧 ·R 𝑣) +R (-1R ·R (𝑤 ·R 𝑢))) ∈ R)
34		mulclsr 9784	. . . . . . . . . . 11 ⊢ ((𝑤 ∈ R ∧ 𝑣 ∈ R) → (𝑤 ·R 𝑣) ∈ R)
35		mulclsr 9784	. . . . . . . . . . 11 ⊢ ((𝑧 ∈ R ∧ 𝑢 ∈ R) → (𝑧 ·R 𝑢) ∈ R)
36		addclsr 9783	. . . . . . . . . . 11 ⊢ (((𝑤 ·R 𝑣) ∈ R ∧ (𝑧 ·R 𝑢) ∈ R) → ((𝑤 ·R 𝑣) +R (𝑧 ·R 𝑢)) ∈ R)
37	34, 35, 36	syl2anr 494	. . . . . . . . . 10 ⊢ (((𝑧 ∈ R ∧ 𝑢 ∈ R) ∧ (𝑤 ∈ R ∧ 𝑣 ∈ R)) → ((𝑤 ·R 𝑣) +R (𝑧 ·R 𝑢)) ∈ R)
38	37	an42s 866	. . . . . . . . 9 ⊢ (((𝑧 ∈ R ∧ 𝑤 ∈ R) ∧ (𝑣 ∈ R ∧ 𝑢 ∈ R)) → ((𝑤 ·R 𝑣) +R (𝑧 ·R 𝑢)) ∈ R)
39		opelxpi 5072	. . . . . . . . 9 ⊢ ((((𝑧 ·R 𝑣) +R (-1R ·R (𝑤 ·R 𝑢))) ∈ R ∧ ((𝑤 ·R 𝑣) +R (𝑧 ·R 𝑢)) ∈ R) → ⟨((𝑧 ·R 𝑣) +R (-1R ·R (𝑤 ·R 𝑢))), ((𝑤 ·R 𝑣) +R (𝑧 ·R 𝑢))⟩ ∈ (R × R))
40	33, 38, 39	syl2anc 691	. . . . . . . 8 ⊢ (((𝑧 ∈ R ∧ 𝑤 ∈ R) ∧ (𝑣 ∈ R ∧ 𝑢 ∈ R)) → ⟨((𝑧 ·R 𝑣) +R (-1R ·R (𝑤 ·R 𝑢))), ((𝑤 ·R 𝑣) +R (𝑧 ·R 𝑢))⟩ ∈ (R × R))
41	25, 40	eqeltrd 2688	. . . . . . 7 ⊢ (((𝑧 ∈ R ∧ 𝑤 ∈ R) ∧ (𝑣 ∈ R ∧ 𝑢 ∈ R)) → (⟨𝑧, 𝑤⟩ · ⟨𝑣, 𝑢⟩) ∈ (R × R))
42	20, 22, 24, 41	2optocl 5119	. . . . . 6 ⊢ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) ∈ (R × R))
43	42, 20	syl6eleqr 2699	. . . . 5 ⊢ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) ∈ ℂ)
44	19, 43	oprssdm 6713	. . . 4 ⊢ (ℂ × ℂ) ⊆ dom ·
45	18, 44	eqssi 3584	. . 3 ⊢ dom · = (ℂ × ℂ)
46		df-fn 5807	. . 3 ⊢ ( · Fn (ℂ × ℂ) ↔ (Fun · ∧ dom · = (ℂ × ℂ)))
47	15, 45, 46	mpbir2an 957	. 2 ⊢ · Fn (ℂ × ℂ)
48	43	rgen2a 2960	. 2 ⊢ ∀𝑥 ∈ ℂ ∀𝑦 ∈ ℂ (𝑥 · 𝑦) ∈ ℂ
49		ffnov 6662	. 2 ⊢ ( · :(ℂ × ℂ)⟶ℂ ↔ ( · Fn (ℂ × ℂ) ∧ ∀𝑥 ∈ ℂ ∀𝑦 ∈ ℂ (𝑥 · 𝑦) ∈ ℂ))
50	47, 48, 49	mpbir2an 957	1 ⊢ · :(ℂ × ℂ)⟶ℂ

Syntax hints:   ∧ wa 383   = wceq 1475  ∃wex 1695   ∈ wcel 1977  ∃*wmo 2459  ∀wral 2896  ⟨cop 4131   × cxp 5036  dom cdm 5038  Fun wfun 5798   Fn wfn 5799  ⟶wf 5800  (class class class)co 6549  {coprab 6550  Rcnr 9566  -1_Rcm1r 9569   +_R cplr 9570   ·_R cmr 9571  ℂcc 9813   · cmul 9820

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-inf2 8421

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-om 6958  df-1st 7059  df-2nd 7060  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-oadd 7451  df-omul 7452  df-er 7629  df-ec 7631  df-qs 7635  df-ni 9573  df-pli 9574  df-mi 9575  df-lti 9576  df-plpq 9609  df-mpq 9610  df-ltpq 9611  df-enq 9612  df-nq 9613  df-erq 9614  df-plq 9615  df-mq 9616  df-1nq 9617  df-rq 9618  df-ltnq 9619  df-np 9682  df-1p 9683  df-plp 9684  df-mp 9685  df-ltp 9686  df-enr 9756  df-nr 9757  df-plr 9758  df-mr 9759  df-m1r 9763  df-c 9821  df-mul 9827

This theorem is referenced by:  axmulcl  9853