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 11065

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 11054	. . . . . . . . . . . . . . . 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 11063	. . . . . . . . . . . . . . . 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 11062	. . . . . . . . . . . . . . . . 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 407	. . . . . . . . . . . . . . . 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 8750	. . . . . . . . . . . . . 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 2782	. . . . . . . . . . 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 457	. . . . . . . . . 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 1937	. . . . . . . . 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 1937	. . . . . . . 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 413	. . . . . . 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 1937	. . . . . 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 1937	. . . . 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 411	. . . 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 1931	. . 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 4874	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ⟨𝑤, 𝑣⟩ = ⟨𝑠, 𝑓⟩)
22	21	eceq1d 8738	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → [⟨𝑤, 𝑣⟩] ~_R = [⟨𝑠, 𝑓⟩] ~_R )
23	22	eqeq2d 2743	. . . . . . . . 9 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝐴 = [⟨𝑤, 𝑣⟩] ~_R ↔ 𝐴 = [⟨𝑠, 𝑓⟩] ~_R ))
24	23	anbi1d 630	. . . . . . . 8 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R )))
25		simpl 483	. . . . . . . . . . . . 13 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → 𝑤 = 𝑠)
26	25	oveq1d 7420	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑤 ·_P 𝑢) = (𝑠 ·_P 𝑢))
27		simpr 485	. . . . . . . . . . . . 13 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → 𝑣 = 𝑓)
28	27	oveq1d 7420	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑣 ·_P 𝑡) = (𝑓 ·_P 𝑡))
29	26, 28	oveq12d 7423	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)) = ((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)))
30	25	oveq1d 7420	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑤 ·_P 𝑡) = (𝑠 ·_P 𝑡))
31	27	oveq1d 7420	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑣 ·_P 𝑢) = (𝑓 ·_P 𝑢))
32	30, 31	oveq12d 7423	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢)) = ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢)))
33	29, 32	opeq12d 4880	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩ = ⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩)
34	33	eceq1d 8738	. . . . . . . . 9 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R = [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R )
35	34	eqeq2d 2743	. . . . . . . 8 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ↔ 𝑞 = [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R ))
36	24, 35	anbi12d 631	. . . . . . 7 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R )))
37		opeq12 4874	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ⟨𝑢, 𝑡⟩ = ⟨𝑔, ℎ⟩)
38	37	eceq1d 8738	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → [⟨𝑢, 𝑡⟩] ~_R = [⟨𝑔, ℎ⟩] ~_R )
39	38	eqeq2d 2743	. . . . . . . . 9 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝐵 = [⟨𝑢, 𝑡⟩] ~_R ↔ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ))
40	39	anbi2d 629	. . . . . . . 8 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R )))
41		simpl 483	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → 𝑢 = 𝑔)
42	41	oveq2d 7421	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑠 ·_P 𝑢) = (𝑠 ·_P 𝑔))
43		simpr 485	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → 𝑡 = ℎ)
44	43	oveq2d 7421	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑓 ·_P 𝑡) = (𝑓 ·_P ℎ))
45	42, 44	oveq12d 7423	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)) = ((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)))
46	43	oveq2d 7421	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑠 ·_P 𝑡) = (𝑠 ·_P ℎ))
47	41	oveq2d 7421	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑓 ·_P 𝑢) = (𝑓 ·_P 𝑔))
48	46, 47	oveq12d 7423	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢)) = ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔)))
49	45, 48	opeq12d 4880	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩ = ⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩)
50	49	eceq1d 8738	. . . . . . . . 9 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )
51	50	eqeq2d 2743	. . . . . . . 8 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑞 = [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R ↔ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ))
52	40, 51	anbi12d 631	. . . . . . 7 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑢) +_P (𝑓 ·_P 𝑡)), ((𝑠 ·_P 𝑡) +_P (𝑓 ·_P 𝑢))⟩] ~_R ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R )))
53	36, 52	cbvex4vw 2045	. . . . . 6 ⊢ (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ↔ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~_R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~_R ) ∧ 𝑞 = [⟨((𝑠 ·_P 𝑔) +_P (𝑓 ·_P ℎ)), ((𝑠 ·_P ℎ) +_P (𝑓 ·_P 𝑔))⟩] ~_R ))
54	53	anbi2i 623	. . . . 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 349	. . . 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 1822	. . 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 2736	. . . . 5 ⊢ (𝑧 = 𝑞 → (𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ↔ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ))
59	58	anbi2d 629	. . . 4 ⊢ (𝑧 = 𝑞 → (((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ↔ ((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )))
60	59	4exbidv 1929	. . 3 ⊢ (𝑧 = 𝑞 → (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑧 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R ) ↔ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~_R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~_R ) ∧ 𝑞 = [⟨((𝑤 ·_P 𝑢) +_P (𝑣 ·_P 𝑡)), ((𝑤 ·_P 𝑡) +_P (𝑣 ·_P 𝑢))⟩] ~_R )))
61	60	mo4 2560	. 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 396 ∀wal 1539 = wceq 1541 ∃wex 1781 ∈ wcel 2106 ∃*wmo 2532 ⟨cop 4633 class class class wbr 5147 × cxp 5673 (class class class)co 7405 Er wer 8696 [cec 8697 / cqs 8698 Pcnp 10850 +_P cpp 10852 ·_P cmp 10853 ~_R cer 10855

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 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7721 ax-inf2 9632

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-ral 3062 df-rex 3071 df-rmo 3376 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-op 4634 df-uni 4908 df-int 4950 df-iun 4998 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6297 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6492 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-ov 7408 df-oprab 7409 df-mpo 7410 df-om 7852 df-1st 7971 df-2nd 7972 df-frecs 8262 df-wrecs 8293 df-recs 8367 df-rdg 8406 df-1o 8462 df-oadd 8466 df-omul 8467 df-er 8699 df-ec 8701 df-qs 8705 df-ni 10863 df-pli 10864 df-mi 10865 df-lti 10866 df-plpq 10899 df-mpq 10900 df-ltpq 10901 df-enq 10902 df-nq 10903 df-erq 10904 df-plq 10905 df-mq 10906 df-1nq 10907 df-rq 10908 df-ltnq 10909 df-np 10972 df-plp 10974 df-mp 10975 df-ltp 10976 df-enr 11046

This theorem is referenced by: mulsrpr 11067

W3C validator