MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  mulsrpr Structured version   Visualization version   GIF version

Theorem mulsrpr 10491
Description: Multiplication of signed reals in terms of positive reals. (Contributed by NM, 3-Sep-1995.) (Revised by Mario Carneiro, 12-Aug-2015.) (New usage is discouraged.)
Assertion
Ref Expression
mulsrpr (((𝐴P𝐵P) ∧ (𝐶P𝐷P)) → ([⟨𝐴, 𝐵⟩] ~R ·R [⟨𝐶, 𝐷⟩] ~R ) = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R )

Proof of Theorem mulsrpr
Dummy variables 𝑥 𝑦 𝑧 𝑤 𝑣 𝑢 𝑡 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 opelxpi 5560 . . . 4 ((𝐴P𝐵P) → ⟨𝐴, 𝐵⟩ ∈ (P × P))
2 enrex 10482 . . . . 5 ~R ∈ V
32ecelqsi 8340 . . . 4 (⟨𝐴, 𝐵⟩ ∈ (P × P) → [⟨𝐴, 𝐵⟩] ~R ∈ ((P × P) / ~R ))
41, 3syl 17 . . 3 ((𝐴P𝐵P) → [⟨𝐴, 𝐵⟩] ~R ∈ ((P × P) / ~R ))
5 opelxpi 5560 . . . 4 ((𝐶P𝐷P) → ⟨𝐶, 𝐷⟩ ∈ (P × P))
62ecelqsi 8340 . . . 4 (⟨𝐶, 𝐷⟩ ∈ (P × P) → [⟨𝐶, 𝐷⟩] ~R ∈ ((P × P) / ~R ))
75, 6syl 17 . . 3 ((𝐶P𝐷P) → [⟨𝐶, 𝐷⟩] ~R ∈ ((P × P) / ~R ))
84, 7anim12i 615 . 2 (((𝐴P𝐵P) ∧ (𝐶P𝐷P)) → ([⟨𝐴, 𝐵⟩] ~R ∈ ((P × P) / ~R ) ∧ [⟨𝐶, 𝐷⟩] ~R ∈ ((P × P) / ~R )))
9 eqid 2801 . . . 4 [⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R
10 eqid 2801 . . . 4 [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R
119, 10pm3.2i 474 . . 3 ([⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R )
12 eqid 2801 . . 3 [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R
13 opeq12 4770 . . . . . . . . 9 ((𝑤 = 𝐴𝑣 = 𝐵) → ⟨𝑤, 𝑣⟩ = ⟨𝐴, 𝐵⟩)
1413eceq1d 8315 . . . . . . . 8 ((𝑤 = 𝐴𝑣 = 𝐵) → [⟨𝑤, 𝑣⟩] ~R = [⟨𝐴, 𝐵⟩] ~R )
1514eqeq2d 2812 . . . . . . 7 ((𝑤 = 𝐴𝑣 = 𝐵) → ([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ↔ [⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ))
1615anbi1d 632 . . . . . 6 ((𝑤 = 𝐴𝑣 = 𝐵) → (([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ↔ ([⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R )))
17 simpl 486 . . . . . . . . . . 11 ((𝑤 = 𝐴𝑣 = 𝐵) → 𝑤 = 𝐴)
1817oveq1d 7154 . . . . . . . . . 10 ((𝑤 = 𝐴𝑣 = 𝐵) → (𝑤 ·P 𝐶) = (𝐴 ·P 𝐶))
19 simpr 488 . . . . . . . . . . 11 ((𝑤 = 𝐴𝑣 = 𝐵) → 𝑣 = 𝐵)
2019oveq1d 7154 . . . . . . . . . 10 ((𝑤 = 𝐴𝑣 = 𝐵) → (𝑣 ·P 𝐷) = (𝐵 ·P 𝐷))
2118, 20oveq12d 7157 . . . . . . . . 9 ((𝑤 = 𝐴𝑣 = 𝐵) → ((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)) = ((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)))
2217oveq1d 7154 . . . . . . . . . 10 ((𝑤 = 𝐴𝑣 = 𝐵) → (𝑤 ·P 𝐷) = (𝐴 ·P 𝐷))
2319oveq1d 7154 . . . . . . . . . 10 ((𝑤 = 𝐴𝑣 = 𝐵) → (𝑣 ·P 𝐶) = (𝐵 ·P 𝐶))
2422, 23oveq12d 7157 . . . . . . . . 9 ((𝑤 = 𝐴𝑣 = 𝐵) → ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶)) = ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶)))
2521, 24opeq12d 4776 . . . . . . . 8 ((𝑤 = 𝐴𝑣 = 𝐵) → ⟨((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)), ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶))⟩ = ⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩)
2625eceq1d 8315 . . . . . . 7 ((𝑤 = 𝐴𝑣 = 𝐵) → [⟨((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)), ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶))⟩] ~R = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R )
2726eqeq2d 2812 . . . . . 6 ((𝑤 = 𝐴𝑣 = 𝐵) → ([⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)), ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶))⟩] ~R ↔ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ))
2816, 27anbi12d 633 . . . . 5 ((𝑤 = 𝐴𝑣 = 𝐵) → ((([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)), ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶))⟩] ~R ) ↔ (([⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R )))
2928spc2egv 3551 . . . 4 ((𝐴P𝐵P) → ((([⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ) → ∃𝑤𝑣(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)), ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶))⟩] ~R )))
30 opeq12 4770 . . . . . . . . . 10 ((𝑢 = 𝐶𝑡 = 𝐷) → ⟨𝑢, 𝑡⟩ = ⟨𝐶, 𝐷⟩)
3130eceq1d 8315 . . . . . . . . 9 ((𝑢 = 𝐶𝑡 = 𝐷) → [⟨𝑢, 𝑡⟩] ~R = [⟨𝐶, 𝐷⟩] ~R )
3231eqeq2d 2812 . . . . . . . 8 ((𝑢 = 𝐶𝑡 = 𝐷) → ([⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ↔ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ))
3332anbi2d 631 . . . . . . 7 ((𝑢 = 𝐶𝑡 = 𝐷) → (([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ↔ ([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R )))
34 simpl 486 . . . . . . . . . . . 12 ((𝑢 = 𝐶𝑡 = 𝐷) → 𝑢 = 𝐶)
3534oveq2d 7155 . . . . . . . . . . 11 ((𝑢 = 𝐶𝑡 = 𝐷) → (𝑤 ·P 𝑢) = (𝑤 ·P 𝐶))
36 simpr 488 . . . . . . . . . . . 12 ((𝑢 = 𝐶𝑡 = 𝐷) → 𝑡 = 𝐷)
3736oveq2d 7155 . . . . . . . . . . 11 ((𝑢 = 𝐶𝑡 = 𝐷) → (𝑣 ·P 𝑡) = (𝑣 ·P 𝐷))
3835, 37oveq12d 7157 . . . . . . . . . 10 ((𝑢 = 𝐶𝑡 = 𝐷) → ((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)) = ((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)))
3936oveq2d 7155 . . . . . . . . . . 11 ((𝑢 = 𝐶𝑡 = 𝐷) → (𝑤 ·P 𝑡) = (𝑤 ·P 𝐷))
4034oveq2d 7155 . . . . . . . . . . 11 ((𝑢 = 𝐶𝑡 = 𝐷) → (𝑣 ·P 𝑢) = (𝑣 ·P 𝐶))
4139, 40oveq12d 7157 . . . . . . . . . 10 ((𝑢 = 𝐶𝑡 = 𝐷) → ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢)) = ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶)))
4238, 41opeq12d 4776 . . . . . . . . 9 ((𝑢 = 𝐶𝑡 = 𝐷) → ⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩ = ⟨((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)), ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶))⟩)
4342eceq1d 8315 . . . . . . . 8 ((𝑢 = 𝐶𝑡 = 𝐷) → [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R = [⟨((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)), ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶))⟩] ~R )
4443eqeq2d 2812 . . . . . . 7 ((𝑢 = 𝐶𝑡 = 𝐷) → ([⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ↔ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)), ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶))⟩] ~R ))
4533, 44anbi12d 633 . . . . . 6 ((𝑢 = 𝐶𝑡 = 𝐷) → ((([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ (([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)), ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶))⟩] ~R )))
4645spc2egv 3551 . . . . 5 ((𝐶P𝐷P) → ((([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)), ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶))⟩] ~R ) → ∃𝑢𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
47462eximdv 1920 . . . 4 ((𝐶P𝐷P) → (∃𝑤𝑣(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝐶) +P (𝑣 ·P 𝐷)), ((𝑤 ·P 𝐷) +P (𝑣 ·P 𝐶))⟩] ~R ) → ∃𝑤𝑣𝑢𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
4829, 47sylan9 511 . . 3 (((𝐴P𝐵P) ∧ (𝐶P𝐷P)) → ((([⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ) → ∃𝑤𝑣𝑢𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
4911, 12, 48mp2ani 697 . 2 (((𝐴P𝐵P) ∧ (𝐶P𝐷P)) → ∃𝑤𝑣𝑢𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))
50 ecexg 8280 . . . 4 ( ~R ∈ V → [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ∈ V)
512, 50ax-mp 5 . . 3 [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ∈ V
52 simp1 1133 . . . . . . . 8 ((𝑥 = [⟨𝐴, 𝐵⟩] ~R𝑦 = [⟨𝐶, 𝐷⟩] ~R𝑧 = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ) → 𝑥 = [⟨𝐴, 𝐵⟩] ~R )
5352eqeq1d 2803 . . . . . . 7 ((𝑥 = [⟨𝐴, 𝐵⟩] ~R𝑦 = [⟨𝐶, 𝐷⟩] ~R𝑧 = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ) → (𝑥 = [⟨𝑤, 𝑣⟩] ~R ↔ [⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ))
54 simp2 1134 . . . . . . . 8 ((𝑥 = [⟨𝐴, 𝐵⟩] ~R𝑦 = [⟨𝐶, 𝐷⟩] ~R𝑧 = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ) → 𝑦 = [⟨𝐶, 𝐷⟩] ~R )
5554eqeq1d 2803 . . . . . . 7 ((𝑥 = [⟨𝐴, 𝐵⟩] ~R𝑦 = [⟨𝐶, 𝐷⟩] ~R𝑧 = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ) → (𝑦 = [⟨𝑢, 𝑡⟩] ~R ↔ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ))
5653, 55anbi12d 633 . . . . . 6 ((𝑥 = [⟨𝐴, 𝐵⟩] ~R𝑦 = [⟨𝐶, 𝐷⟩] ~R𝑧 = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ) → ((𝑥 = [⟨𝑤, 𝑣⟩] ~R𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ↔ ([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R )))
57 simp3 1135 . . . . . . 7 ((𝑥 = [⟨𝐴, 𝐵⟩] ~R𝑦 = [⟨𝐶, 𝐷⟩] ~R𝑧 = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ) → 𝑧 = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R )
5857eqeq1d 2803 . . . . . 6 ((𝑥 = [⟨𝐴, 𝐵⟩] ~R𝑦 = [⟨𝐶, 𝐷⟩] ~R𝑧 = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ) → (𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ↔ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))
5956, 58anbi12d 633 . . . . 5 ((𝑥 = [⟨𝐴, 𝐵⟩] ~R𝑦 = [⟨𝐶, 𝐷⟩] ~R𝑧 = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ) → (((𝑥 = [⟨𝑤, 𝑣⟩] ~R𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ (([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
60594exbidv 1927 . . . 4 ((𝑥 = [⟨𝐴, 𝐵⟩] ~R𝑦 = [⟨𝐶, 𝐷⟩] ~R𝑧 = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ) → (∃𝑤𝑣𝑢𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ∃𝑤𝑣𝑢𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
61 mulsrmo 10489 . . . 4 ((𝑥 ∈ ((P × P) / ~R ) ∧ 𝑦 ∈ ((P × P) / ~R )) → ∃*𝑧𝑤𝑣𝑢𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))
62 df-mr 10473 . . . . 5 ·R = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥R𝑦R) ∧ ∃𝑤𝑣𝑢𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))}
63 df-nr 10471 . . . . . . . . 9 R = ((P × P) / ~R )
6463eleq2i 2884 . . . . . . . 8 (𝑥R𝑥 ∈ ((P × P) / ~R ))
6563eleq2i 2884 . . . . . . . 8 (𝑦R𝑦 ∈ ((P × P) / ~R ))
6664, 65anbi12i 629 . . . . . . 7 ((𝑥R𝑦R) ↔ (𝑥 ∈ ((P × P) / ~R ) ∧ 𝑦 ∈ ((P × P) / ~R )))
6766anbi1i 626 . . . . . 6 (((𝑥R𝑦R) ∧ ∃𝑤𝑣𝑢𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )) ↔ ((𝑥 ∈ ((P × P) / ~R ) ∧ 𝑦 ∈ ((P × P) / ~R )) ∧ ∃𝑤𝑣𝑢𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
6867oprabbii 7204 . . . . 5 {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥R𝑦R) ∧ ∃𝑤𝑣𝑢𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))} = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ((P × P) / ~R ) ∧ 𝑦 ∈ ((P × P) / ~R )) ∧ ∃𝑤𝑣𝑢𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))}
6962, 68eqtri 2824 . . . 4 ·R = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ((P × P) / ~R ) ∧ 𝑦 ∈ ((P × P) / ~R )) ∧ ∃𝑤𝑣𝑢𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))}
7060, 61, 69ovig 7279 . . 3 (([⟨𝐴, 𝐵⟩] ~R ∈ ((P × P) / ~R ) ∧ [⟨𝐶, 𝐷⟩] ~R ∈ ((P × P) / ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ∈ V) → (∃𝑤𝑣𝑢𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) → ([⟨𝐴, 𝐵⟩] ~R ·R [⟨𝐶, 𝐷⟩] ~R ) = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ))
7151, 70mp3an3 1447 . 2 (([⟨𝐴, 𝐵⟩] ~R ∈ ((P × P) / ~R ) ∧ [⟨𝐶, 𝐷⟩] ~R ∈ ((P × P) / ~R )) → (∃𝑤𝑣𝑢𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) → ([⟨𝐴, 𝐵⟩] ~R ·R [⟨𝐶, 𝐷⟩] ~R ) = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R ))
728, 49, 71sylc 65 1 (((𝐴P𝐵P) ∧ (𝐶P𝐷P)) → ([⟨𝐴, 𝐵⟩] ~R ·R [⟨𝐶, 𝐷⟩] ~R ) = [⟨((𝐴 ·P 𝐶) +P (𝐵 ·P 𝐷)), ((𝐴 ·P 𝐷) +P (𝐵 ·P 𝐶))⟩] ~R )
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 399  w3a 1084   = wceq 1538  wex 1781  wcel 2112  Vcvv 3444  cop 4534   × cxp 5521  (class class class)co 7139  {coprab 7140  [cec 8274   / cqs 8275  Pcnp 10274   +P cpp 10276   ·P cmp 10277   ~R cer 10279  Rcnr 10280   ·R cmr 10285
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2159  ax-12 2176  ax-ext 2773  ax-sep 5170  ax-nul 5177  ax-pow 5234  ax-pr 5298  ax-un 7445  ax-inf2 9092
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2601  df-eu 2632  df-clab 2780  df-cleq 2794  df-clel 2873  df-nfc 2941  df-ne 2991  df-ral 3114  df-rex 3115  df-reu 3116  df-rmo 3117  df-rab 3118  df-v 3446  df-sbc 3724  df-csb 3832  df-dif 3887  df-un 3889  df-in 3891  df-ss 3901  df-pss 3903  df-nul 4247  df-if 4429  df-pw 4502  df-sn 4529  df-pr 4531  df-tp 4533  df-op 4535  df-uni 4804  df-int 4842  df-iun 4886  df-br 5034  df-opab 5096  df-mpt 5114  df-tr 5140  df-id 5428  df-eprel 5433  df-po 5442  df-so 5443  df-fr 5482  df-we 5484  df-xp 5529  df-rel 5530  df-cnv 5531  df-co 5532  df-dm 5533  df-rn 5534  df-res 5535  df-ima 5536  df-pred 6120  df-ord 6166  df-on 6167  df-lim 6168  df-suc 6169  df-iota 6287  df-fun 6330  df-fn 6331  df-f 6332  df-f1 6333  df-fo 6334  df-f1o 6335  df-fv 6336  df-ov 7142  df-oprab 7143  df-mpo 7144  df-om 7565  df-1st 7675  df-2nd 7676  df-wrecs 7934  df-recs 7995  df-rdg 8033  df-1o 8089  df-oadd 8093  df-omul 8094  df-er 8276  df-ec 8278  df-qs 8282  df-ni 10287  df-pli 10288  df-mi 10289  df-lti 10290  df-plpq 10323  df-mpq 10324  df-ltpq 10325  df-enq 10326  df-nq 10327  df-erq 10328  df-plq 10329  df-mq 10330  df-1nq 10331  df-rq 10332  df-ltnq 10333  df-np 10396  df-plp 10398  df-mp 10399  df-ltp 10400  df-enr 10470  df-nr 10471  df-mr 10473
This theorem is referenced by:  mulclsr  10499  mulcomsr  10504  mulasssr  10505  distrsr  10506  m1m1sr  10508  1idsr  10513  00sr  10514  recexsrlem  10518  mulgt0sr  10520
  Copyright terms: Public domain W3C validator