mulsrmo - Metamath Proof Explorer

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

Theorem mulsrmo 11105

Description: There is at most one result from multiplying signed reals. (Contributed by Jim Kingdon, 30-Dec-2019.)

**Assertion**
Ref	Expression
mulsrmo	⊢ ((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) → ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ))

Distinct variable groups: 𝑡,𝐴,𝑢,𝑣,𝑤,𝑧 𝑡,𝐵,𝑢,𝑣,𝑤,𝑧

Proof of Theorem mulsrmo Dummy variables 𝑓 𝑔 ℎ 𝑞 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		enrer 11094	. . . . . . . . . . . . . . . 16 ⊢ ~_R Er (P × P)
2	1	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ (𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ))) → ~_R Er (P × P))
3		prsrlem1 11103	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ (𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ))) → ((((𝑤 ∈ P ∧ 𝑣 ∈ P) ∧ (𝑠 ∈ P ∧ 𝑓 ∈ P)) ∧ ((𝑢 ∈ P ∧ 𝑡 ∈ P) ∧ (𝑔 ∈ P ∧ ℎ ∈ P))) ∧ ((𝑤 +_P 𝑓) = (𝑣 +_P 𝑠) ∧ (𝑢 +_P ℎ) = (𝑡 +_P 𝑔))))
4		mulcmpblnr 11102	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑤 ∈ P ∧ 𝑣 ∈ P) ∧ (𝑠 ∈ P ∧ 𝑓 ∈ P)) ∧ ((𝑢 ∈ P ∧ 𝑡 ∈ P) ∧ (𝑔 ∈ P ∧ ℎ ∈ P))) → (((𝑤 +_P 𝑓) = (𝑣 +_P 𝑠) ∧ (𝑢 +_P ℎ) = (𝑡 +_P 𝑔)) → ⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩ ~_R ⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩))
5	4	imp 405	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑤 ∈ P ∧ 𝑣 ∈ P) ∧ (𝑠 ∈ P ∧ 𝑓 ∈ P)) ∧ ((𝑢 ∈ P ∧ 𝑡 ∈ P) ∧ (𝑔 ∈ P ∧ ℎ ∈ P))) ∧ ((𝑤 +_P 𝑓) = (𝑣 +_P 𝑠) ∧ (𝑢 +_P ℎ) = (𝑡 +_P 𝑔))) → ⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩ ~_R ⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩)
6	3, 5	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ (𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ))) → ⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩ ~_R ⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩)
7	2, 6	erthi 8783	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ (𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ))) → [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )
8	7	adantrlr 721	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ (𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ))) → [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )
9	8	adantrrr 723	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ))) → [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )
10		simprlr 778	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ))) → 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )
11		simprrr 780	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ))) → 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )
12	9, 10, 11	3eqtr4d 2778	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ))) → 𝑧 = 𝑞)
13	12	expr 455	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )) → (((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ) → 𝑧 = 𝑞))
14	13	exlimdvv 1929	. . . . . . . . 9 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )) → (∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ) → 𝑧 = 𝑞))
15	14	exlimdvv 1929	. . . . . . . 8 ⊢ (((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )) → (∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ) → 𝑧 = 𝑞))
16	15	ex 411	. . . . . . 7 ⊢ ((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) → (((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) → (∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ) → 𝑧 = 𝑞)))
17	16	exlimdvv 1929	. . . . . 6 ⊢ ((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) → (∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) → (∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ) → 𝑧 = 𝑞)))
18	17	exlimdvv 1929	. . . . 5 ⊢ ((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) → (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) → (∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ) → 𝑧 = 𝑞)))
19	18	impd 409	. . . 4 ⊢ ((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) → ((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )) → 𝑧 = 𝑞))
20	19	alrimivv 1923	. . 3 ⊢ ((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) → ∀𝑧∀𝑞((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )) → 𝑧 = 𝑞))
21		opeq12 4880	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ⟨𝑤, 𝑣⟩ = ⟨𝑠, 𝑓⟩)
22	21	eceq1d 8770	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → [⟨𝑤, 𝑣⟩] ~_R = [⟨𝑠, 𝑓⟩] ~_R )
23	22	eqeq2d 2739	. . . . . . . . 9 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝐴 = [⟨𝑤, 𝑣⟩] ~_R ↔ 𝐴 = [⟨𝑠, 𝑓⟩] ~_R ))
24	23	anbi1d 629	. . . . . . . 8 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R )))
25		simpl 481	. . . . . . . . . . . . 13 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → 𝑤 = 𝑠)
26	25	oveq1d 7441	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑤 ·_P 𝑢) = (𝑠 ·_P 𝑢))
27		simpr 483	. . . . . . . . . . . . 13 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → 𝑣 = 𝑓)
28	27	oveq1d 7441	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑣 ·_P 𝑡) = (𝑓 ·_P 𝑡))
29	26, 28	oveq12d 7444	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)) = ((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)))
30	25	oveq1d 7441	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑤 ·_P 𝑡) = (𝑠 ·_P 𝑡))
31	27	oveq1d 7441	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑣 ·_P 𝑢) = (𝑓 ·_P 𝑢))
32	30, 31	oveq12d 7444	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢)) = ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢)))
33	29, 32	opeq12d 4886	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩ = ⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩)
34	33	eceq1d 8770	. . . . . . . . 9 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R = [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R )
35	34	eqeq2d 2739	. . . . . . . 8 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ↔ 𝑞 = [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R ))
36	24, 35	anbi12d 630	. . . . . . 7 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R )))
37		opeq12 4880	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ⟨𝑢, 𝑡⟩ = ⟨𝑔, ℎ⟩)
38	37	eceq1d 8770	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → [⟨𝑢, 𝑡⟩] ~_R = [⟨𝑔, ℎ⟩] ~_R )
39	38	eqeq2d 2739	. . . . . . . . 9 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝐵 = [⟨𝑢, 𝑡⟩] ~_R ↔ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ))
40	39	anbi2d 628	. . . . . . . 8 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R )))
41		simpl 481	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → 𝑢 = 𝑔)
42	41	oveq2d 7442	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑠 ·_P 𝑢) = (𝑠 ·_P 𝑔))
43		simpr 483	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → 𝑡 = ℎ)
44	43	oveq2d 7442	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑓 ·_P 𝑡) = (𝑓 ·_P ℎ))
45	42, 44	oveq12d 7444	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)) = ((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)))
46	43	oveq2d 7442	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑠 ·_P 𝑡) = (𝑠 ·_P ℎ))
47	41	oveq2d 7442	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑓 ·_P 𝑢) = (𝑓 ·_P 𝑔))
48	46, 47	oveq12d 7444	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢)) = ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔)))
49	45, 48	opeq12d 4886	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩ = ⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩)
50	49	eceq1d 8770	. . . . . . . . 9 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )
51	50	eqeq2d 2739	. . . . . . . 8 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑞 = [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R ↔ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ))
52	40, 51	anbi12d 630	. . . . . . 7 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )))
53	36, 52	cbvex4vw 2037	. . . . . 6 ⊢ (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ↔ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ))
54	53	anbi2i 621	. . . . 5 ⊢ ((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )) ↔ (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )))
55	54	imbi1i 348	. . . 4 ⊢ (((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )) → 𝑧 = 𝑞) ↔ ((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )) → 𝑧 = 𝑞))
56	55	2albii 1814	. . 3 ⊢ (∀𝑧∀𝑞((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )) → 𝑧 = 𝑞) ↔ ∀𝑧∀𝑞((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )) → 𝑧 = 𝑞))
57	20, 56	sylibr 233	. 2 ⊢ ((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) → ∀𝑧∀𝑞((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )) → 𝑧 = 𝑞))
58		eqeq1 2732	. . . . 5 ⊢ (𝑧 = 𝑞 → (𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ↔ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ))
59	58	anbi2d 628	. . . 4 ⊢ (𝑧 = 𝑞 → (((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ↔ ((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )))
60	59	4exbidv 1921	. . 3 ⊢ (𝑧 = 𝑞 → (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ↔ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )))
61	60	mo4 2555	. 2 ⊢ (∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ↔ ∀𝑧∀𝑞((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )) → 𝑧 = 𝑞))
62	57, 61	sylibr 233	1 ⊢ ((𝐴 ∈ ((P × P) / ~_R ) ∧ 𝐵 ∈ ((P × P) / ~_R )) → ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 394 ∀wal 1531 = wceq 1533 ∃wex 1773 ∈ wcel 2098 ∃*wmo 2527 ⟨cop 4638 class class class wbr 5152 × cxp 5680 (class class class)co 7426 Er wer 8728 [cec 8729 / cqs 8730 Pcnp 10890 +_P cpp 10892 ·_P cmp 10893 ~_R cer 10895

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2166 ax-ext 2699 ax-sep 5303 ax-nul 5310 ax-pow 5369 ax-pr 5433 ax-un 7746 ax-inf2 9672

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2529 df-eu 2558 df-clab 2706 df-cleq 2720 df-clel 2806 df-nfc 2881 df-ne 2938 df-ral 3059 df-rex 3068 df-rmo 3374 df-reu 3375 df-rab 3431 df-v 3475 df-sbc 3779 df-csb 3895 df-dif 3952 df-un 3954 df-in 3956 df-ss 3966 df-pss 3968 df-nul 4327 df-if 4533 df-pw 4608 df-sn 4633 df-pr 4635 df-op 4639 df-uni 4913 df-int 4954 df-iun 5002 df-br 5153 df-opab 5215 df-mpt 5236 df-tr 5270 df-id 5580 df-eprel 5586 df-po 5594 df-so 5595 df-fr 5637 df-we 5639 df-xp 5688 df-rel 5689 df-cnv 5690 df-co 5691 df-dm 5692 df-rn 5693 df-res 5694 df-ima 5695 df-pred 6310 df-ord 6377 df-on 6378 df-lim 6379 df-suc 6380 df-iota 6505 df-fun 6555 df-fn 6556 df-f 6557 df-f1 6558 df-fo 6559 df-f1o 6560 df-fv 6561 df-ov 7429 df-oprab 7430 df-mpo 7431 df-om 7877 df-1st 7999 df-2nd 8000 df-frecs 8293 df-wrecs 8324 df-recs 8398 df-rdg 8437 df-1o 8493 df-oadd 8497 df-omul 8498 df-er 8731 df-ec 8733 df-qs 8737 df-ni 10903 df-pli 10904 df-mi 10905 df-lti 10906 df-plpq 10939 df-mpq 10940 df-ltpq 10941 df-enq 10942 df-nq 10943 df-erq 10944 df-plq 10945 df-mq 10946 df-1nq 10947 df-rq 10948 df-ltnq 10949 df-np 11012 df-plp 11014 df-mp 11015 df-ltp 11016 df-enr 11086

This theorem is referenced by: mulsrpr 11107

W3C validator