Step | Hyp | Ref
| Expression |
1 | | moeq 3637 |
. . . . . . . . 9
⊢
∃*𝑧 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉 |
2 | 1 | mosubop 5419 |
. . . . . . . 8
⊢
∃*𝑧∃𝑢∃𝑓(𝑦 = 〈𝑢, 𝑓〉 ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉) |
3 | 2 | mosubop 5419 |
. . . . . . 7
⊢
∃*𝑧∃𝑤∃𝑣(𝑥 = 〈𝑤, 𝑣〉 ∧ ∃𝑢∃𝑓(𝑦 = 〈𝑢, 𝑓〉 ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉)) |
4 | | anass 468 |
. . . . . . . . . . 11
⊢ (((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉) ↔ (𝑥 = 〈𝑤, 𝑣〉 ∧ (𝑦 = 〈𝑢, 𝑓〉 ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉))) |
5 | 4 | 2exbii 1852 |
. . . . . . . . . 10
⊢
(∃𝑢∃𝑓((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉) ↔ ∃𝑢∃𝑓(𝑥 = 〈𝑤, 𝑣〉 ∧ (𝑦 = 〈𝑢, 𝑓〉 ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉))) |
6 | | 19.42vv 1962 |
. . . . . . . . . 10
⊢
(∃𝑢∃𝑓(𝑥 = 〈𝑤, 𝑣〉 ∧ (𝑦 = 〈𝑢, 𝑓〉 ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉)) ↔ (𝑥 = 〈𝑤, 𝑣〉 ∧ ∃𝑢∃𝑓(𝑦 = 〈𝑢, 𝑓〉 ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉))) |
7 | 5, 6 | bitri 274 |
. . . . . . . . 9
⊢
(∃𝑢∃𝑓((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉) ↔ (𝑥 = 〈𝑤, 𝑣〉 ∧ ∃𝑢∃𝑓(𝑦 = 〈𝑢, 𝑓〉 ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉))) |
8 | 7 | 2exbii 1852 |
. . . . . . . 8
⊢
(∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉) ↔ ∃𝑤∃𝑣(𝑥 = 〈𝑤, 𝑣〉 ∧ ∃𝑢∃𝑓(𝑦 = 〈𝑢, 𝑓〉 ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉))) |
9 | 8 | mobii 2548 |
. . . . . . 7
⊢
(∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉) ↔ ∃*𝑧∃𝑤∃𝑣(𝑥 = 〈𝑤, 𝑣〉 ∧ ∃𝑢∃𝑓(𝑦 = 〈𝑢, 𝑓〉 ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉))) |
10 | 3, 9 | mpbir 230 |
. . . . . 6
⊢
∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉) |
11 | 10 | moani 2553 |
. . . . 5
⊢
∃*𝑧((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧
∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉)) |
12 | 11 | funoprab 7374 |
. . . 4
⊢ Fun
{〈〈𝑥, 𝑦〉, 𝑧〉 ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉))} |
13 | | df-mul 10814 |
. . . . 5
⊢ ·
= {〈〈𝑥, 𝑦〉, 𝑧〉 ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉))} |
14 | 13 | funeqi 6439 |
. . . 4
⊢ (Fun
· ↔ Fun {〈〈𝑥, 𝑦〉, 𝑧〉 ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉))}) |
15 | 12, 14 | mpbir 230 |
. . 3
⊢ Fun
· |
16 | 13 | dmeqi 5802 |
. . . . 5
⊢ dom
· = dom {〈〈𝑥, 𝑦〉, 𝑧〉 ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉))} |
17 | | dmoprabss 7355 |
. . . . 5
⊢ dom
{〈〈𝑥, 𝑦〉, 𝑧〉 ∣ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = 〈𝑤, 𝑣〉 ∧ 𝑦 = 〈𝑢, 𝑓〉) ∧ 𝑧 = 〈((𝑤 ·R 𝑢) +R
(-1R ·R (𝑣
·R 𝑓))), ((𝑣 ·R 𝑢) +R
(𝑤
·R 𝑓))〉))} ⊆ (ℂ ×
ℂ) |
18 | 16, 17 | eqsstri 3951 |
. . . 4
⊢ dom
· ⊆ (ℂ × ℂ) |
19 | | 0ncn 10820 |
. . . . 5
⊢ ¬
∅ ∈ ℂ |
20 | | df-c 10808 |
. . . . . . 7
⊢ ℂ =
(R × R) |
21 | | oveq1 7262 |
. . . . . . . 8
⊢
(〈𝑧, 𝑤〉 = 𝑥 → (〈𝑧, 𝑤〉 · 〈𝑣, 𝑢〉) = (𝑥 · 〈𝑣, 𝑢〉)) |
22 | 21 | eleq1d 2823 |
. . . . . . 7
⊢
(〈𝑧, 𝑤〉 = 𝑥 → ((〈𝑧, 𝑤〉 · 〈𝑣, 𝑢〉) ∈ (R ×
R) ↔ (𝑥
· 〈𝑣, 𝑢〉) ∈ (R
× R))) |
23 | | oveq2 7263 |
. . . . . . . 8
⊢
(〈𝑣, 𝑢〉 = 𝑦 → (𝑥 · 〈𝑣, 𝑢〉) = (𝑥 · 𝑦)) |
24 | 23 | eleq1d 2823 |
. . . . . . 7
⊢
(〈𝑣, 𝑢〉 = 𝑦 → ((𝑥 · 〈𝑣, 𝑢〉) ∈ (R ×
R) ↔ (𝑥
· 𝑦) ∈
(R × R))) |
25 | | mulcnsr 10823 |
. . . . . . . 8
⊢ (((𝑧 ∈ R ∧
𝑤 ∈ R)
∧ (𝑣 ∈
R ∧ 𝑢
∈ R)) → (〈𝑧, 𝑤〉 · 〈𝑣, 𝑢〉) = 〈((𝑧 ·R 𝑣) +R
(-1R ·R (𝑤
·R 𝑢))), ((𝑤 ·R 𝑣) +R
(𝑧
·R 𝑢))〉) |
26 | | mulclsr 10771 |
. . . . . . . . . . 11
⊢ ((𝑧 ∈ R ∧
𝑣 ∈ R)
→ (𝑧
·R 𝑣) ∈ R) |
27 | | m1r 10769 |
. . . . . . . . . . . 12
⊢
-1R ∈ R |
28 | | mulclsr 10771 |
. . . . . . . . . . . 12
⊢ ((𝑤 ∈ R ∧
𝑢 ∈ R)
→ (𝑤
·R 𝑢) ∈ R) |
29 | | mulclsr 10771 |
. . . . . . . . . . . 12
⊢
((-1R ∈ R ∧ (𝑤
·R 𝑢) ∈ R) →
(-1R ·R (𝑤
·R 𝑢)) ∈ R) |
30 | 27, 28, 29 | sylancr 586 |
. . . . . . . . . . 11
⊢ ((𝑤 ∈ R ∧
𝑢 ∈ R)
→ (-1R ·R (𝑤
·R 𝑢)) ∈ R) |
31 | | addclsr 10770 |
. . . . . . . . . . 11
⊢ (((𝑧
·R 𝑣) ∈ R ∧
(-1R ·R (𝑤
·R 𝑢)) ∈ R) → ((𝑧
·R 𝑣) +R
(-1R ·R (𝑤
·R 𝑢))) ∈ R) |
32 | 26, 30, 31 | syl2an 595 |
. . . . . . . . . 10
⊢ (((𝑧 ∈ R ∧
𝑣 ∈ R)
∧ (𝑤 ∈
R ∧ 𝑢
∈ R)) → ((𝑧 ·R 𝑣) +R
(-1R ·R (𝑤
·R 𝑢))) ∈ R) |
33 | 32 | an4s 656 |
. . . . . . . . 9
⊢ (((𝑧 ∈ R ∧
𝑤 ∈ R)
∧ (𝑣 ∈
R ∧ 𝑢
∈ R)) → ((𝑧 ·R 𝑣) +R
(-1R ·R (𝑤
·R 𝑢))) ∈ R) |
34 | | mulclsr 10771 |
. . . . . . . . . . 11
⊢ ((𝑤 ∈ R ∧
𝑣 ∈ R)
→ (𝑤
·R 𝑣) ∈ R) |
35 | | mulclsr 10771 |
. . . . . . . . . . 11
⊢ ((𝑧 ∈ R ∧
𝑢 ∈ R)
→ (𝑧
·R 𝑢) ∈ R) |
36 | | addclsr 10770 |
. . . . . . . . . . 11
⊢ (((𝑤
·R 𝑣) ∈ R ∧ (𝑧
·R 𝑢) ∈ R) → ((𝑤
·R 𝑣) +R (𝑧
·R 𝑢)) ∈ R) |
37 | 34, 35, 36 | syl2anr 596 |
. . . . . . . . . 10
⊢ (((𝑧 ∈ R ∧
𝑢 ∈ R)
∧ (𝑤 ∈
R ∧ 𝑣
∈ R)) → ((𝑤 ·R 𝑣) +R
(𝑧
·R 𝑢)) ∈ R) |
38 | 37 | an42s 657 |
. . . . . . . . 9
⊢ (((𝑧 ∈ R ∧
𝑤 ∈ R)
∧ (𝑣 ∈
R ∧ 𝑢
∈ R)) → ((𝑤 ·R 𝑣) +R
(𝑧
·R 𝑢)) ∈ R) |
39 | 33, 38 | opelxpd 5618 |
. . . . . . . 8
⊢ (((𝑧 ∈ R ∧
𝑤 ∈ R)
∧ (𝑣 ∈
R ∧ 𝑢
∈ R)) → 〈((𝑧 ·R 𝑣) +R
(-1R ·R (𝑤
·R 𝑢))), ((𝑤 ·R 𝑣) +R
(𝑧
·R 𝑢))〉 ∈ (R ×
R)) |
40 | 25, 39 | eqeltrd 2839 |
. . . . . . 7
⊢ (((𝑧 ∈ R ∧
𝑤 ∈ R)
∧ (𝑣 ∈
R ∧ 𝑢
∈ R)) → (〈𝑧, 𝑤〉 · 〈𝑣, 𝑢〉) ∈ (R ×
R)) |
41 | 20, 22, 24, 40 | 2optocl 5672 |
. . . . . 6
⊢ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) ∈ (R ×
R)) |
42 | 41, 20 | eleqtrrdi 2850 |
. . . . 5
⊢ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) ∈ ℂ) |
43 | 19, 42 | oprssdm 7431 |
. . . 4
⊢ (ℂ
× ℂ) ⊆ dom · |
44 | 18, 43 | eqssi 3933 |
. . 3
⊢ dom
· = (ℂ × ℂ) |
45 | | df-fn 6421 |
. . 3
⊢ (
· Fn (ℂ × ℂ) ↔ (Fun · ∧ dom · =
(ℂ × ℂ))) |
46 | 15, 44, 45 | mpbir2an 707 |
. 2
⊢ ·
Fn (ℂ × ℂ) |
47 | 42 | rgen2 3126 |
. 2
⊢
∀𝑥 ∈
ℂ ∀𝑦 ∈
ℂ (𝑥 · 𝑦) ∈
ℂ |
48 | | ffnov 7379 |
. 2
⊢ (
· :(ℂ × ℂ)⟶ℂ ↔ ( · Fn
(ℂ × ℂ) ∧ ∀𝑥 ∈ ℂ ∀𝑦 ∈ ℂ (𝑥 · 𝑦) ∈ ℂ)) |
49 | 46, 47, 48 | mpbir2an 707 |
1
⊢ ·
:(ℂ × ℂ)⟶ℂ |