Theorem mulext1 8501

Description: Left extensionality for complex multiplication. (Contributed by Jim Kingdon, 22-Feb-2020.)

Assertion

Ref	Expression
mulext1	⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵))

Proof of Theorem mulext1

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

Step	Hyp	Ref	Expression
1		cnre 7886	. . 3 ⊢ (𝐶 ∈ ℂ → ∃𝑢 ∈ ℝ ∃𝑣 ∈ ℝ 𝐶 = (𝑢 + (i · 𝑣)))
2	1	3ad2ant3 1009	. 2 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) → ∃𝑢 ∈ ℝ ∃𝑣 ∈ ℝ 𝐶 = (𝑢 + (i · 𝑣)))
3		cnre 7886	. . . . . . 7 ⊢ (𝐵 ∈ ℂ → ∃𝑧 ∈ ℝ ∃𝑤 ∈ ℝ 𝐵 = (𝑧 + (i · 𝑤)))
4	3	3ad2ant2 1008	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) → ∃𝑧 ∈ ℝ ∃𝑤 ∈ ℝ 𝐵 = (𝑧 + (i · 𝑤)))
5	4	ad2antrr 480	. . . . 5 ⊢ ((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) → ∃𝑧 ∈ ℝ ∃𝑤 ∈ ℝ 𝐵 = (𝑧 + (i · 𝑤)))
6		cnre 7886	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → ∃𝑥 ∈ ℝ ∃𝑦 ∈ ℝ 𝐴 = (𝑥 + (i · 𝑦)))
7	6	3ad2ant1 1007	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) → ∃𝑥 ∈ ℝ ∃𝑦 ∈ ℝ 𝐴 = (𝑥 + (i · 𝑦)))
8	7	adantr 274	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → ∃𝑥 ∈ ℝ ∃𝑦 ∈ ℝ 𝐴 = (𝑥 + (i · 𝑦)))
9	8	ad3antrrr 484	. . . . . . . 8 ⊢ ((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) → ∃𝑥 ∈ ℝ ∃𝑦 ∈ ℝ 𝐴 = (𝑥 + (i · 𝑦)))
10		simplrl 525	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑥 ∈ ℝ)
11	10	recnd 7918	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑥 ∈ ℂ)
12		simprl 521	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → 𝑢 ∈ ℝ)
13	12	ad2antrr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → 𝑢 ∈ ℝ)
14	13	ad3antrrr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑢 ∈ ℝ)
15	14	recnd 7918	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑢 ∈ ℂ)
16	11, 15	mulcld 7910	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑥 · 𝑢) ∈ ℂ)
17		simplrr 526	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑦 ∈ ℝ)
18	17	recnd 7918	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑦 ∈ ℂ)
19		simprr 522	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → 𝑣 ∈ ℝ)
20	19	ad2antrr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → 𝑣 ∈ ℝ)
21	20	ad3antrrr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑣 ∈ ℝ)
22	21	recnd 7918	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑣 ∈ ℂ)
23	18, 22	mulcld 7910	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑦 · 𝑣) ∈ ℂ)
24	23	negcld 8187	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → -(𝑦 · 𝑣) ∈ ℂ)
25		simprl 521	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → 𝑧 ∈ ℝ)
26	25	ad3antrrr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑧 ∈ ℝ)
27	26	recnd 7918	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑧 ∈ ℂ)
28	27, 15	mulcld 7910	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑧 · 𝑢) ∈ ℂ)
29		simprr 522	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → 𝑤 ∈ ℝ)
30	29	ad3antrrr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑤 ∈ ℝ)
31	30	recnd 7918	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑤 ∈ ℂ)
32	31, 22	mulcld 7910	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑤 · 𝑣) ∈ ℂ)
33	32	negcld 8187	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → -(𝑤 · 𝑣) ∈ ℂ)
34		addext 8499	. . . . . . . . . . . . . . 15 ⊢ ((((𝑥 · 𝑢) ∈ ℂ ∧ -(𝑦 · 𝑣) ∈ ℂ) ∧ ((𝑧 · 𝑢) ∈ ℂ ∧ -(𝑤 · 𝑣) ∈ ℂ)) → (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) → ((𝑥 · 𝑢) # (𝑧 · 𝑢) ∨ -(𝑦 · 𝑣) # -(𝑤 · 𝑣))))
35	16, 24, 28, 33, 34	syl22anc 1228	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) → ((𝑥 · 𝑢) # (𝑧 · 𝑢) ∨ -(𝑦 · 𝑣) # -(𝑤 · 𝑣))))
36		remulext1 8488	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ ℝ ∧ 𝑧 ∈ ℝ ∧ 𝑢 ∈ ℝ) → ((𝑥 · 𝑢) # (𝑧 · 𝑢) → 𝑥 # 𝑧))
37	10, 26, 14, 36	syl3anc 1227	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑥 · 𝑢) # (𝑧 · 𝑢) → 𝑥 # 𝑧))
38		apneg 8500	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑦 · 𝑣) ∈ ℂ ∧ (𝑤 · 𝑣) ∈ ℂ) → ((𝑦 · 𝑣) # (𝑤 · 𝑣) ↔ -(𝑦 · 𝑣) # -(𝑤 · 𝑣)))
39	23, 32, 38	syl2anc 409	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑦 · 𝑣) # (𝑤 · 𝑣) ↔ -(𝑦 · 𝑣) # -(𝑤 · 𝑣)))
40		remulext1 8488	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ℝ ∧ 𝑤 ∈ ℝ ∧ 𝑣 ∈ ℝ) → ((𝑦 · 𝑣) # (𝑤 · 𝑣) → 𝑦 # 𝑤))
41	17, 30, 21, 40	syl3anc 1227	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑦 · 𝑣) # (𝑤 · 𝑣) → 𝑦 # 𝑤))
42	39, 41	sylbird 169	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (-(𝑦 · 𝑣) # -(𝑤 · 𝑣) → 𝑦 # 𝑤))
43	37, 42	orim12d 776	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑥 · 𝑢) # (𝑧 · 𝑢) ∨ -(𝑦 · 𝑣) # -(𝑤 · 𝑣)) → (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
44	35, 43	syld 45	. . . . . . . . . . . . 13 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) → (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
45	15, 18	mulcld 7910	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑢 · 𝑦) ∈ ℂ)
46	22, 11	mulcld 7910	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑣 · 𝑥) ∈ ℂ)
47	15, 31	mulcld 7910	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑢 · 𝑤) ∈ ℂ)
48	22, 27	mulcld 7910	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑣 · 𝑧) ∈ ℂ)
49		addext 8499	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑢 · 𝑦) ∈ ℂ ∧ (𝑣 · 𝑥) ∈ ℂ) ∧ ((𝑢 · 𝑤) ∈ ℂ ∧ (𝑣 · 𝑧) ∈ ℂ)) → (((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)) → ((𝑢 · 𝑦) # (𝑢 · 𝑤) ∨ (𝑣 · 𝑥) # (𝑣 · 𝑧))))
50	45, 46, 47, 48, 49	syl22anc 1228	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)) → ((𝑢 · 𝑦) # (𝑢 · 𝑤) ∨ (𝑣 · 𝑥) # (𝑣 · 𝑧))))
51		remulext2 8489	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ℝ ∧ 𝑤 ∈ ℝ ∧ 𝑢 ∈ ℝ) → ((𝑢 · 𝑦) # (𝑢 · 𝑤) → 𝑦 # 𝑤))
52	17, 30, 14, 51	syl3anc 1227	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑢 · 𝑦) # (𝑢 · 𝑤) → 𝑦 # 𝑤))
53		remulext2 8489	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 ∈ ℝ ∧ 𝑧 ∈ ℝ ∧ 𝑣 ∈ ℝ) → ((𝑣 · 𝑥) # (𝑣 · 𝑧) → 𝑥 # 𝑧))
54	10, 26, 21, 53	syl3anc 1227	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑣 · 𝑥) # (𝑣 · 𝑧) → 𝑥 # 𝑧))
55	52, 54	orim12d 776	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑢 · 𝑦) # (𝑢 · 𝑤) ∨ (𝑣 · 𝑥) # (𝑣 · 𝑧)) → (𝑦 # 𝑤 ∨ 𝑥 # 𝑧)))
56	50, 55	syld 45	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)) → (𝑦 # 𝑤 ∨ 𝑥 # 𝑧)))
57		orcom 718	. . . . . . . . . . . . . 14 ⊢ ((𝑦 # 𝑤 ∨ 𝑥 # 𝑧) ↔ (𝑥 # 𝑧 ∨ 𝑦 # 𝑤))
58	56, 57	syl6ib 160	. . . . . . . . . . . . 13 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)) → (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
59	44, 58	jaod 707	. . . . . . . . . . . 12 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∨ ((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧))) → (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
60		simpr 109	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝐴 = (𝑥 + (i · 𝑦)))
61		simplr 520	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → 𝐶 = (𝑢 + (i · 𝑣)))
62	61	ad3antrrr 484	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝐶 = (𝑢 + (i · 𝑣)))
63	60, 62	oveq12d 5854	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝐴 · 𝐶) = ((𝑥 + (i · 𝑦)) · (𝑢 + (i · 𝑣))))
64		simpllr 524	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝐵 = (𝑧 + (i · 𝑤)))
65	64, 62	oveq12d 5854	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝐵 · 𝐶) = ((𝑧 + (i · 𝑤)) · (𝑢 + (i · 𝑣))))
66	63, 65	breq12d 3989	. . . . . . . . . . . . 13 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) ↔ ((𝑥 + (i · 𝑦)) · (𝑢 + (i · 𝑣))) # ((𝑧 + (i · 𝑤)) · (𝑢 + (i · 𝑣)))))
67		mulreim 8493	. . . . . . . . . . . . . . 15 ⊢ (((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → ((𝑥 + (i · 𝑦)) · (𝑢 + (i · 𝑣))) = (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) + (i · ((𝑢 · 𝑦) + (𝑣 · 𝑥)))))
68	10, 17, 14, 21, 67	syl22anc 1228	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑥 + (i · 𝑦)) · (𝑢 + (i · 𝑣))) = (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) + (i · ((𝑢 · 𝑦) + (𝑣 · 𝑥)))))
69		mulreim 8493	. . . . . . . . . . . . . . 15 ⊢ (((𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → ((𝑧 + (i · 𝑤)) · (𝑢 + (i · 𝑣))) = (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) + (i · ((𝑢 · 𝑤) + (𝑣 · 𝑧)))))
70	26, 30, 14, 21, 69	syl22anc 1228	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑧 + (i · 𝑤)) · (𝑢 + (i · 𝑣))) = (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) + (i · ((𝑢 · 𝑤) + (𝑣 · 𝑧)))))
71	68, 70	breq12d 3989	. . . . . . . . . . . . 13 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑥 + (i · 𝑦)) · (𝑢 + (i · 𝑣))) # ((𝑧 + (i · 𝑤)) · (𝑢 + (i · 𝑣))) ↔ (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) + (i · ((𝑢 · 𝑦) + (𝑣 · 𝑥)))) # (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) + (i · ((𝑢 · 𝑤) + (𝑣 · 𝑧))))))
72	10, 14	remulcld 7920	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑥 · 𝑢) ∈ ℝ)
73	17, 21	remulcld 7920	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑦 · 𝑣) ∈ ℝ)
74	73	renegcld 8269	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → -(𝑦 · 𝑣) ∈ ℝ)
75	72, 74	readdcld 7919	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑥 · 𝑢) + -(𝑦 · 𝑣)) ∈ ℝ)
76	14, 17	remulcld 7920	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑢 · 𝑦) ∈ ℝ)
77	21, 10	remulcld 7920	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑣 · 𝑥) ∈ ℝ)
78	76, 77	readdcld 7919	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑢 · 𝑦) + (𝑣 · 𝑥)) ∈ ℝ)
79	26, 14	remulcld 7920	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑧 · 𝑢) ∈ ℝ)
80	30, 21	remulcld 7920	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑤 · 𝑣) ∈ ℝ)
81	80	renegcld 8269	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → -(𝑤 · 𝑣) ∈ ℝ)
82	79, 81	readdcld 7919	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∈ ℝ)
83	14, 30	remulcld 7920	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑢 · 𝑤) ∈ ℝ)
84	21, 26	remulcld 7920	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑣 · 𝑧) ∈ ℝ)
85	83, 84	readdcld 7919	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑢 · 𝑤) + (𝑣 · 𝑧)) ∈ ℝ)
86		apreim 8492	. . . . . . . . . . . . . 14 ⊢ (((((𝑥 · 𝑢) + -(𝑦 · 𝑣)) ∈ ℝ ∧ ((𝑢 · 𝑦) + (𝑣 · 𝑥)) ∈ ℝ) ∧ (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∈ ℝ ∧ ((𝑢 · 𝑤) + (𝑣 · 𝑧)) ∈ ℝ)) → ((((𝑥 · 𝑢) + -(𝑦 · 𝑣)) + (i · ((𝑢 · 𝑦) + (𝑣 · 𝑥)))) # (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) + (i · ((𝑢 · 𝑤) + (𝑣 · 𝑧)))) ↔ (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∨ ((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)))))
87	75, 78, 82, 85, 86	syl22anc 1228	. . . . . . . . . . . . 13 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((((𝑥 · 𝑢) + -(𝑦 · 𝑣)) + (i · ((𝑢 · 𝑦) + (𝑣 · 𝑥)))) # (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) + (i · ((𝑢 · 𝑤) + (𝑣 · 𝑧)))) ↔ (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∨ ((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)))))
88	66, 71, 87	3bitrd 213	. . . . . . . . . . . 12 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) ↔ (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∨ ((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)))))
89		apreim 8492	. . . . . . . . . . . . 13 ⊢ (((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → ((𝑥 + (i · 𝑦)) # (𝑧 + (i · 𝑤)) ↔ (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
90	10, 17, 26, 30, 89	syl22anc 1228	. . . . . . . . . . . 12 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑥 + (i · 𝑦)) # (𝑧 + (i · 𝑤)) ↔ (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
91	59, 88, 90	3imtr4d 202	. . . . . . . . . . 11 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → (𝑥 + (i · 𝑦)) # (𝑧 + (i · 𝑤))))
92	60, 64	breq12d 3989	. . . . . . . . . . 11 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝐴 # 𝐵 ↔ (𝑥 + (i · 𝑦)) # (𝑧 + (i · 𝑤))))
93	91, 92	sylibrd 168	. . . . . . . . . 10 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵))
94	93	ex 114	. . . . . . . . 9 ⊢ (((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → (𝐴 = (𝑥 + (i · 𝑦)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
95	94	rexlimdvva 2589	. . . . . . . 8 ⊢ ((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) → (∃𝑥 ∈ ℝ ∃𝑦 ∈ ℝ 𝐴 = (𝑥 + (i · 𝑦)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
96	9, 95	mpd 13	. . . . . . 7 ⊢ ((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵))
97	96	ex 114	. . . . . 6 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → (𝐵 = (𝑧 + (i · 𝑤)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
98	97	rexlimdvva 2589	. . . . 5 ⊢ ((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) → (∃𝑧 ∈ ℝ ∃𝑤 ∈ ℝ 𝐵 = (𝑧 + (i · 𝑤)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
99	5, 98	mpd 13	. . . 4 ⊢ ((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵))
100	99	ex 114	. . 3 ⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → (𝐶 = (𝑢 + (i · 𝑣)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
101	100	rexlimdvva 2589	. 2 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) → (∃𝑢 ∈ ℝ ∃𝑣 ∈ ℝ 𝐶 = (𝑢 + (i · 𝑣)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
102	2, 101	mpd 13	1 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵))

Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   ∨ wo 698   ∧ w3a 967   = wceq 1342   ∈ wcel 2135  ∃wrex 2443   class class class wbr 3976  (class class class)co 5836  ℂcc 7742  ℝcr 7743  ici 7746   + caddc 7747   · cmul 7749  -cneg 8061   # cap 8470

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-in1 604  ax-in2 605  ax-io 699  ax-5 1434  ax-7 1435  ax-gen 1436  ax-ie1 1480  ax-ie2 1481  ax-8 1491  ax-10 1492  ax-11 1493  ax-i12 1494  ax-bndl 1496  ax-4 1497  ax-17 1513  ax-i9 1517  ax-ial 1521  ax-i5r 1522  ax-13 2137  ax-14 2138  ax-ext 2146  ax-sep 4094  ax-pow 4147  ax-pr 4181  ax-un 4405  ax-setind 4508  ax-cnex 7835  ax-resscn 7836  ax-1cn 7837  ax-1re 7838  ax-icn 7839  ax-addcl 7840  ax-addrcl 7841  ax-mulcl 7842  ax-mulrcl 7843  ax-addcom 7844  ax-mulcom 7845  ax-addass 7846  ax-mulass 7847  ax-distr 7848  ax-i2m1 7849  ax-0lt1 7850  ax-1rid 7851  ax-0id 7852  ax-rnegex 7853  ax-precex 7854  ax-cnre 7855  ax-pre-ltirr 7856  ax-pre-ltwlin 7857  ax-pre-lttrn 7858  ax-pre-apti 7859  ax-pre-ltadd 7860  ax-pre-mulgt0 7861  ax-pre-mulext 7862

This theorem depends on definitions:  df-bi 116  df-3an 969  df-tru 1345  df-fal 1348  df-nf 1448  df-sb 1750  df-eu 2016  df-mo 2017  df-clab 2151  df-cleq 2157  df-clel 2160  df-nfc 2295  df-ne 2335  df-nel 2430  df-ral 2447  df-rex 2448  df-reu 2449  df-rab 2451  df-v 2723  df-sbc 2947  df-dif 3113  df-un 3115  df-in 3117  df-ss 3124  df-pw 3555  df-sn 3576  df-pr 3577  df-op 3579  df-uni 3784  df-br 3977  df-opab 4038  df-id 4265  df-xp 4604  df-rel 4605  df-cnv 4606  df-co 4607  df-dm 4608  df-iota 5147  df-fun 5184  df-fv 5190  df-riota 5792  df-ov 5839  df-oprab 5840  df-mpo 5841  df-pnf 7926  df-mnf 7927  df-ltxr 7929  df-sub 8062  df-neg 8063  df-reap 8464  df-ap 8471

This theorem is referenced by:  mulext2  8502  mulext  8503  mulap0  8542  apmul1  8675