Theorem mulext1 8543

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 7928	. . 3 ⊢ (𝐶 ∈ ℂ → ∃𝑢 ∈ ℝ ∃𝑣 ∈ ℝ 𝐶 = (𝑢 + (i · 𝑣)))
2	1	3ad2ant3 1020	. 2 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) → ∃𝑢 ∈ ℝ ∃𝑣 ∈ ℝ 𝐶 = (𝑢 + (i · 𝑣)))
3		cnre 7928	. . . . . . 7 ⊢ (𝐵 ∈ ℂ → ∃𝑧 ∈ ℝ ∃𝑤 ∈ ℝ 𝐵 = (𝑧 + (i · 𝑤)))
4	3	3ad2ant2 1019	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) → ∃𝑧 ∈ ℝ ∃𝑤 ∈ ℝ 𝐵 = (𝑧 + (i · 𝑤)))
5	4	ad2antrr 488	. . . . 5 ⊢ ((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) → ∃𝑧 ∈ ℝ ∃𝑤 ∈ ℝ 𝐵 = (𝑧 + (i · 𝑤)))
6		cnre 7928	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → ∃𝑥 ∈ ℝ ∃𝑦 ∈ ℝ 𝐴 = (𝑥 + (i · 𝑦)))
7	6	3ad2ant1 1018	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) → ∃𝑥 ∈ ℝ ∃𝑦 ∈ ℝ 𝐴 = (𝑥 + (i · 𝑦)))
8	7	adantr 276	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → ∃𝑥 ∈ ℝ ∃𝑦 ∈ ℝ 𝐴 = (𝑥 + (i · 𝑦)))
9	8	ad3antrrr 492	. . . . . . . 8 ⊢ ((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) → ∃𝑥 ∈ ℝ ∃𝑦 ∈ ℝ 𝐴 = (𝑥 + (i · 𝑦)))
10		simplrl 535	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑥 ∈ ℝ)
11	10	recnd 7960	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑥 ∈ ℂ)
12		simprl 529	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → 𝑢 ∈ ℝ)
13	12	ad2antrr 488	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → 𝑢 ∈ ℝ)
14	13	ad3antrrr 492	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑢 ∈ ℝ)
15	14	recnd 7960	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑢 ∈ ℂ)
16	11, 15	mulcld 7952	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑥 · 𝑢) ∈ ℂ)
17		simplrr 536	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑦 ∈ ℝ)
18	17	recnd 7960	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑦 ∈ ℂ)
19		simprr 531	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → 𝑣 ∈ ℝ)
20	19	ad2antrr 488	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → 𝑣 ∈ ℝ)
21	20	ad3antrrr 492	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑣 ∈ ℝ)
22	21	recnd 7960	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑣 ∈ ℂ)
23	18, 22	mulcld 7952	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑦 · 𝑣) ∈ ℂ)
24	23	negcld 8229	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → -(𝑦 · 𝑣) ∈ ℂ)
25		simprl 529	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → 𝑧 ∈ ℝ)
26	25	ad3antrrr 492	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑧 ∈ ℝ)
27	26	recnd 7960	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑧 ∈ ℂ)
28	27, 15	mulcld 7952	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑧 · 𝑢) ∈ ℂ)
29		simprr 531	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → 𝑤 ∈ ℝ)
30	29	ad3antrrr 492	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑤 ∈ ℝ)
31	30	recnd 7960	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝑤 ∈ ℂ)
32	31, 22	mulcld 7952	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑤 · 𝑣) ∈ ℂ)
33	32	negcld 8229	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → -(𝑤 · 𝑣) ∈ ℂ)
34		addext 8541	. . . . . . . . . . . . . . 15 ⊢ ((((𝑥 · 𝑢) ∈ ℂ ∧ -(𝑦 · 𝑣) ∈ ℂ) ∧ ((𝑧 · 𝑢) ∈ ℂ ∧ -(𝑤 · 𝑣) ∈ ℂ)) → (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) → ((𝑥 · 𝑢) # (𝑧 · 𝑢) ∨ -(𝑦 · 𝑣) # -(𝑤 · 𝑣))))
35	16, 24, 28, 33, 34	syl22anc 1239	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) → ((𝑥 · 𝑢) # (𝑧 · 𝑢) ∨ -(𝑦 · 𝑣) # -(𝑤 · 𝑣))))
36		remulext1 8530	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ ℝ ∧ 𝑧 ∈ ℝ ∧ 𝑢 ∈ ℝ) → ((𝑥 · 𝑢) # (𝑧 · 𝑢) → 𝑥 # 𝑧))
37	10, 26, 14, 36	syl3anc 1238	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑥 · 𝑢) # (𝑧 · 𝑢) → 𝑥 # 𝑧))
38		apneg 8542	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑦 · 𝑣) ∈ ℂ ∧ (𝑤 · 𝑣) ∈ ℂ) → ((𝑦 · 𝑣) # (𝑤 · 𝑣) ↔ -(𝑦 · 𝑣) # -(𝑤 · 𝑣)))
39	23, 32, 38	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑦 · 𝑣) # (𝑤 · 𝑣) ↔ -(𝑦 · 𝑣) # -(𝑤 · 𝑣)))
40		remulext1 8530	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ℝ ∧ 𝑤 ∈ ℝ ∧ 𝑣 ∈ ℝ) → ((𝑦 · 𝑣) # (𝑤 · 𝑣) → 𝑦 # 𝑤))
41	17, 30, 21, 40	syl3anc 1238	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑦 · 𝑣) # (𝑤 · 𝑣) → 𝑦 # 𝑤))
42	39, 41	sylbird 170	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (-(𝑦 · 𝑣) # -(𝑤 · 𝑣) → 𝑦 # 𝑤))
43	37, 42	orim12d 786	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑥 · 𝑢) # (𝑧 · 𝑢) ∨ -(𝑦 · 𝑣) # -(𝑤 · 𝑣)) → (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
44	35, 43	syld 45	. . . . . . . . . . . . 13 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) → (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
45	15, 18	mulcld 7952	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑢 · 𝑦) ∈ ℂ)
46	22, 11	mulcld 7952	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑣 · 𝑥) ∈ ℂ)
47	15, 31	mulcld 7952	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑢 · 𝑤) ∈ ℂ)
48	22, 27	mulcld 7952	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑣 · 𝑧) ∈ ℂ)
49		addext 8541	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑢 · 𝑦) ∈ ℂ ∧ (𝑣 · 𝑥) ∈ ℂ) ∧ ((𝑢 · 𝑤) ∈ ℂ ∧ (𝑣 · 𝑧) ∈ ℂ)) → (((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)) → ((𝑢 · 𝑦) # (𝑢 · 𝑤) ∨ (𝑣 · 𝑥) # (𝑣 · 𝑧))))
50	45, 46, 47, 48, 49	syl22anc 1239	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)) → ((𝑢 · 𝑦) # (𝑢 · 𝑤) ∨ (𝑣 · 𝑥) # (𝑣 · 𝑧))))
51		remulext2 8531	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ℝ ∧ 𝑤 ∈ ℝ ∧ 𝑢 ∈ ℝ) → ((𝑢 · 𝑦) # (𝑢 · 𝑤) → 𝑦 # 𝑤))
52	17, 30, 14, 51	syl3anc 1238	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑢 · 𝑦) # (𝑢 · 𝑤) → 𝑦 # 𝑤))
53		remulext2 8531	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 ∈ ℝ ∧ 𝑧 ∈ ℝ ∧ 𝑣 ∈ ℝ) → ((𝑣 · 𝑥) # (𝑣 · 𝑧) → 𝑥 # 𝑧))
54	10, 26, 21, 53	syl3anc 1238	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑣 · 𝑥) # (𝑣 · 𝑧) → 𝑥 # 𝑧))
55	52, 54	orim12d 786	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑢 · 𝑦) # (𝑢 · 𝑤) ∨ (𝑣 · 𝑥) # (𝑣 · 𝑧)) → (𝑦 # 𝑤 ∨ 𝑥 # 𝑧)))
56	50, 55	syld 45	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)) → (𝑦 # 𝑤 ∨ 𝑥 # 𝑧)))
57		orcom 728	. . . . . . . . . . . . . 14 ⊢ ((𝑦 # 𝑤 ∨ 𝑥 # 𝑧) ↔ (𝑥 # 𝑧 ∨ 𝑦 # 𝑤))
58	56, 57	syl6ib 161	. . . . . . . . . . . . 13 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)) → (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
59	44, 58	jaod 717	. . . . . . . . . . . 12 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∨ ((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧))) → (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
60		simpr 110	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝐴 = (𝑥 + (i · 𝑦)))
61		simplr 528	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → 𝐶 = (𝑢 + (i · 𝑣)))
62	61	ad3antrrr 492	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝐶 = (𝑢 + (i · 𝑣)))
63	60, 62	oveq12d 5883	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝐴 · 𝐶) = ((𝑥 + (i · 𝑦)) · (𝑢 + (i · 𝑣))))
64		simpllr 534	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → 𝐵 = (𝑧 + (i · 𝑤)))
65	64, 62	oveq12d 5883	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝐵 · 𝐶) = ((𝑧 + (i · 𝑤)) · (𝑢 + (i · 𝑣))))
66	63, 65	breq12d 4011	. . . . . . . . . . . . 13 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) ↔ ((𝑥 + (i · 𝑦)) · (𝑢 + (i · 𝑣))) # ((𝑧 + (i · 𝑤)) · (𝑢 + (i · 𝑣)))))
67		mulreim 8535	. . . . . . . . . . . . . . 15 ⊢ (((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → ((𝑥 + (i · 𝑦)) · (𝑢 + (i · 𝑣))) = (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) + (i · ((𝑢 · 𝑦) + (𝑣 · 𝑥)))))
68	10, 17, 14, 21, 67	syl22anc 1239	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑥 + (i · 𝑦)) · (𝑢 + (i · 𝑣))) = (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) + (i · ((𝑢 · 𝑦) + (𝑣 · 𝑥)))))
69		mulreim 8535	. . . . . . . . . . . . . . 15 ⊢ (((𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → ((𝑧 + (i · 𝑤)) · (𝑢 + (i · 𝑣))) = (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) + (i · ((𝑢 · 𝑤) + (𝑣 · 𝑧)))))
70	26, 30, 14, 21, 69	syl22anc 1239	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑧 + (i · 𝑤)) · (𝑢 + (i · 𝑣))) = (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) + (i · ((𝑢 · 𝑤) + (𝑣 · 𝑧)))))
71	68, 70	breq12d 4011	. . . . . . . . . . . . 13 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (((𝑥 + (i · 𝑦)) · (𝑢 + (i · 𝑣))) # ((𝑧 + (i · 𝑤)) · (𝑢 + (i · 𝑣))) ↔ (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) + (i · ((𝑢 · 𝑦) + (𝑣 · 𝑥)))) # (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) + (i · ((𝑢 · 𝑤) + (𝑣 · 𝑧))))))
72	10, 14	remulcld 7962	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑥 · 𝑢) ∈ ℝ)
73	17, 21	remulcld 7962	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑦 · 𝑣) ∈ ℝ)
74	73	renegcld 8311	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → -(𝑦 · 𝑣) ∈ ℝ)
75	72, 74	readdcld 7961	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑥 · 𝑢) + -(𝑦 · 𝑣)) ∈ ℝ)
76	14, 17	remulcld 7962	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑢 · 𝑦) ∈ ℝ)
77	21, 10	remulcld 7962	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑣 · 𝑥) ∈ ℝ)
78	76, 77	readdcld 7961	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑢 · 𝑦) + (𝑣 · 𝑥)) ∈ ℝ)
79	26, 14	remulcld 7962	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑧 · 𝑢) ∈ ℝ)
80	30, 21	remulcld 7962	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑤 · 𝑣) ∈ ℝ)
81	80	renegcld 8311	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → -(𝑤 · 𝑣) ∈ ℝ)
82	79, 81	readdcld 7961	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∈ ℝ)
83	14, 30	remulcld 7962	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑢 · 𝑤) ∈ ℝ)
84	21, 26	remulcld 7962	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝑣 · 𝑧) ∈ ℝ)
85	83, 84	readdcld 7961	. . . . . . . . . . . . . 14 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑢 · 𝑤) + (𝑣 · 𝑧)) ∈ ℝ)
86		apreim 8534	. . . . . . . . . . . . . 14 ⊢ (((((𝑥 · 𝑢) + -(𝑦 · 𝑣)) ∈ ℝ ∧ ((𝑢 · 𝑦) + (𝑣 · 𝑥)) ∈ ℝ) ∧ (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∈ ℝ ∧ ((𝑢 · 𝑤) + (𝑣 · 𝑧)) ∈ ℝ)) → ((((𝑥 · 𝑢) + -(𝑦 · 𝑣)) + (i · ((𝑢 · 𝑦) + (𝑣 · 𝑥)))) # (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) + (i · ((𝑢 · 𝑤) + (𝑣 · 𝑧)))) ↔ (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∨ ((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)))))
87	75, 78, 82, 85, 86	syl22anc 1239	. . . . . . . . . . . . 13 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((((𝑥 · 𝑢) + -(𝑦 · 𝑣)) + (i · ((𝑢 · 𝑦) + (𝑣 · 𝑥)))) # (((𝑧 · 𝑢) + -(𝑤 · 𝑣)) + (i · ((𝑢 · 𝑤) + (𝑣 · 𝑧)))) ↔ (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∨ ((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)))))
88	66, 71, 87	3bitrd 214	. . . . . . . . . . . 12 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) ↔ (((𝑥 · 𝑢) + -(𝑦 · 𝑣)) # ((𝑧 · 𝑢) + -(𝑤 · 𝑣)) ∨ ((𝑢 · 𝑦) + (𝑣 · 𝑥)) # ((𝑢 · 𝑤) + (𝑣 · 𝑧)))))
89		apreim 8534	. . . . . . . . . . . . 13 ⊢ (((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → ((𝑥 + (i · 𝑦)) # (𝑧 + (i · 𝑤)) ↔ (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
90	10, 17, 26, 30, 89	syl22anc 1239	. . . . . . . . . . . 12 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝑥 + (i · 𝑦)) # (𝑧 + (i · 𝑤)) ↔ (𝑥 # 𝑧 ∨ 𝑦 # 𝑤)))
91	59, 88, 90	3imtr4d 203	. . . . . . . . . . 11 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → (𝑥 + (i · 𝑦)) # (𝑧 + (i · 𝑤))))
92	60, 64	breq12d 4011	. . . . . . . . . . 11 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → (𝐴 # 𝐵 ↔ (𝑥 + (i · 𝑦)) # (𝑧 + (i · 𝑤))))
93	91, 92	sylibrd 169	. . . . . . . . . 10 ⊢ ((((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝐴 = (𝑥 + (i · 𝑦))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵))
94	93	ex 115	. . . . . . . . 9 ⊢ (((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → (𝐴 = (𝑥 + (i · 𝑦)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
95	94	rexlimdvva 2600	. . . . . . . 8 ⊢ ((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) → (∃𝑥 ∈ ℝ ∃𝑦 ∈ ℝ 𝐴 = (𝑥 + (i · 𝑦)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
96	9, 95	mpd 13	. . . . . . 7 ⊢ ((((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) ∧ 𝐵 = (𝑧 + (i · 𝑤))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵))
97	96	ex 115	. . . . . 6 ⊢ (((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) ∧ (𝑧 ∈ ℝ ∧ 𝑤 ∈ ℝ)) → (𝐵 = (𝑧 + (i · 𝑤)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
98	97	rexlimdvva 2600	. . . . 5 ⊢ ((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) → (∃𝑧 ∈ ℝ ∃𝑤 ∈ ℝ 𝐵 = (𝑧 + (i · 𝑤)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
99	5, 98	mpd 13	. . . 4 ⊢ ((((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) ∧ 𝐶 = (𝑢 + (i · 𝑣))) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵))
100	99	ex 115	. . 3 ⊢ (((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) ∧ (𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ)) → (𝐶 = (𝑢 + (i · 𝑣)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
101	100	rexlimdvva 2600	. 2 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) → (∃𝑢 ∈ ℝ ∃𝑣 ∈ ℝ 𝐶 = (𝑢 + (i · 𝑣)) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵)))
102	2, 101	mpd 13	1 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ) → ((𝐴 · 𝐶) # (𝐵 · 𝐶) → 𝐴 # 𝐵))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 708   ∧ w3a 978   = wceq 1353   ∈ wcel 2146  ∃wrex 2454   class class class wbr 3998  (class class class)co 5865  ℂcc 7784  ℝcr 7785  ici 7788   + caddc 7789   · cmul 7791  -cneg 8103   # cap 8512

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 614  ax-in2 615  ax-io 709  ax-5 1445  ax-7 1446  ax-gen 1447  ax-ie1 1491  ax-ie2 1492  ax-8 1502  ax-10 1503  ax-11 1504  ax-i12 1505  ax-bndl 1507  ax-4 1508  ax-17 1524  ax-i9 1528  ax-ial 1532  ax-i5r 1533  ax-13 2148  ax-14 2149  ax-ext 2157  ax-sep 4116  ax-pow 4169  ax-pr 4203  ax-un 4427  ax-setind 4530  ax-cnex 7877  ax-resscn 7878  ax-1cn 7879  ax-1re 7880  ax-icn 7881  ax-addcl 7882  ax-addrcl 7883  ax-mulcl 7884  ax-mulrcl 7885  ax-addcom 7886  ax-mulcom 7887  ax-addass 7888  ax-mulass 7889  ax-distr 7890  ax-i2m1 7891  ax-0lt1 7892  ax-1rid 7893  ax-0id 7894  ax-rnegex 7895  ax-precex 7896  ax-cnre 7897  ax-pre-ltirr 7898  ax-pre-ltwlin 7899  ax-pre-lttrn 7900  ax-pre-apti 7901  ax-pre-ltadd 7902  ax-pre-mulgt0 7903  ax-pre-mulext 7904

This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1459  df-sb 1761  df-eu 2027  df-mo 2028  df-clab 2162  df-cleq 2168  df-clel 2171  df-nfc 2306  df-ne 2346  df-nel 2441  df-ral 2458  df-rex 2459  df-reu 2460  df-rab 2462  df-v 2737  df-sbc 2961  df-dif 3129  df-un 3131  df-in 3133  df-ss 3140  df-pw 3574  df-sn 3595  df-pr 3596  df-op 3598  df-uni 3806  df-br 3999  df-opab 4060  df-id 4287  df-xp 4626  df-rel 4627  df-cnv 4628  df-co 4629  df-dm 4630  df-iota 5170  df-fun 5210  df-fv 5216  df-riota 5821  df-ov 5868  df-oprab 5869  df-mpo 5870  df-pnf 7968  df-mnf 7969  df-ltxr 7971  df-sub 8104  df-neg 8105  df-reap 8506  df-ap 8513

This theorem is referenced by:  mulext2  8544  mulext  8545  mulap0  8584  apmul1  8717