Theorem mulsrmo 11027

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 11016	. . . . . . . . . . . . . . . 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 11025	. . . . . . . . . . . . . . . 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 11024	. . . . . . . . . . . . . . . . 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 406	. . . . . . . . . . . . . . . 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 8727	. . . . . . . . . . . . . 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 723	. . . . . . . . . . . . 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 725	. . . . . . . . . . . 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 779	. . . . . . . . . . . 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 781	. . . . . . . . . . . 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 2774	. . . . . . . . . . 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 456	. . . . . . . . . 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 1934	. . . . . . . . 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 1934	. . . . . . . 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 412	. . . . . . 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 1934	. . . . . 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 1934	. . . . 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 410	. . . 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 1928	. . 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 4839	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ⟨𝑤, 𝑣⟩ = ⟨𝑠, 𝑓⟩)
22	21	eceq1d 8711	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → [⟨𝑤, 𝑣⟩] ~R = [⟨𝑠, 𝑓⟩] ~R )
23	22	eqeq2d 2740	. . . . . . . . 9 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝐴 = [⟨𝑤, 𝑣⟩] ~R ↔ 𝐴 = [⟨𝑠, 𝑓⟩] ~R ))
24	23	anbi1d 631	. . . . . . . 8 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝐴 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~R )))
25		simpl 482	. . . . . . . . . . . . 13 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → 𝑤 = 𝑠)
26	25	oveq1d 7402	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑤 ·P 𝑢) = (𝑠 ·P 𝑢))
27		simpr 484	. . . . . . . . . . . . 13 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → 𝑣 = 𝑓)
28	27	oveq1d 7402	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑣 ·P 𝑡) = (𝑓 ·P 𝑡))
29	26, 28	oveq12d 7405	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)) = ((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)))
30	25	oveq1d 7402	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑤 ·P 𝑡) = (𝑠 ·P 𝑡))
31	27	oveq1d 7402	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑣 ·P 𝑢) = (𝑓 ·P 𝑢))
32	30, 31	oveq12d 7405	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢)) = ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢)))
33	29, 32	opeq12d 4845	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩ = ⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩)
34	33	eceq1d 8711	. . . . . . . . 9 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R )
35	34	eqeq2d 2740	. . . . . . . 8 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ↔ 𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R ))
36	24, 35	anbi12d 632	. . . . . . 7 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (((𝐴 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R )))
37		opeq12 4839	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ⟨𝑢, 𝑡⟩ = ⟨𝑔, ℎ⟩)
38	37	eceq1d 8711	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → [⟨𝑢, 𝑡⟩] ~R = [⟨𝑔, ℎ⟩] ~R )
39	38	eqeq2d 2740	. . . . . . . . 9 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝐵 = [⟨𝑢, 𝑡⟩] ~R ↔ 𝐵 = [⟨𝑔, ℎ⟩] ~R ))
40	39	anbi2d 630	. . . . . . . 8 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝐴 = [⟨𝑠, 𝑓⟩] ~R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~R )))
41		simpl 482	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → 𝑢 = 𝑔)
42	41	oveq2d 7403	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑠 ·P 𝑢) = (𝑠 ·P 𝑔))
43		simpr 484	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → 𝑡 = ℎ)
44	43	oveq2d 7403	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑓 ·P 𝑡) = (𝑓 ·P ℎ))
45	42, 44	oveq12d 7405	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)) = ((𝑠 ·P 𝑔) +P (𝑓 ·P ℎ)))
46	43	oveq2d 7403	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑠 ·P 𝑡) = (𝑠 ·P ℎ))
47	41	oveq2d 7403	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑓 ·P 𝑢) = (𝑓 ·P 𝑔))
48	46, 47	oveq12d 7405	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢)) = ((𝑠 ·P ℎ) +P (𝑓 ·P 𝑔)))
49	45, 48	opeq12d 4845	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩ = ⟨((𝑠 ·P 𝑔) +P (𝑓 ·P ℎ)), ((𝑠 ·P ℎ) +P (𝑓 ·P 𝑔))⟩)
50	49	eceq1d 8711	. . . . . . . . 9 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R = [⟨((𝑠 ·P 𝑔) +P (𝑓 ·P ℎ)), ((𝑠 ·P ℎ) +P (𝑓 ·P 𝑔))⟩] ~R )
51	50	eqeq2d 2740	. . . . . . . 8 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R ↔ 𝑞 = [⟨((𝑠 ·P 𝑔) +P (𝑓 ·P ℎ)), ((𝑠 ·P ℎ) +P (𝑓 ·P 𝑔))⟩] ~R ))
52	40, 51	anbi12d 632	. . . . . . 7 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (((𝐴 = [⟨𝑠, 𝑓⟩] ~R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~R ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~R ) ∧ 𝑞 = [⟨((𝑠 ·P 𝑔) +P (𝑓 ·P ℎ)), ((𝑠 ·P ℎ) +P (𝑓 ·P 𝑔))⟩] ~R )))
53	36, 52	cbvex4vw 2042	. . . . . 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 1820	. . 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 234	. 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 2733	. . . . 5 ⊢ (𝑧 = 𝑞 → (𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ↔ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))
59	58	anbi2d 630	. . . 4 ⊢ (𝑧 = 𝑞 → (((𝐴 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ((𝐴 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
60	59	4exbidv 1926	. . 3 ⊢ (𝑧 = 𝑞 → (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
61	60	mo4 2559	. 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 234	1 ⊢ ((𝐴 ∈ ((P × P) / ~R ) ∧ 𝐵 ∈ ((P × P) / ~R )) → ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))

Syntax hints:   → wi 4   ∧ wa 395  ∀wal 1538   = wceq 1540  ∃wex 1779   ∈ wcel 2109  ∃*wmo 2531  ⟨cop 4595   class class class wbr 5107   × cxp 5636  (class class class)co 7387   Er wer 8668  [cec 8669   / cqs 8670  Pcnp 10812   +_P cpp 10814   ·_P cmp 10815   ~_R cer 10817

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5251  ax-nul 5261  ax-pow 5320  ax-pr 5387  ax-un 7711  ax-inf2 9594

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rmo 3354  df-reu 3355  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3934  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4872  df-int 4911  df-iun 4957  df-br 5108  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5533  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5591  df-we 5593  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6274  df-ord 6335  df-on 6336  df-lim 6337  df-suc 6338  df-iota 6464  df-fun 6513  df-fn 6514  df-f 6515  df-f1 6516  df-fo 6517  df-f1o 6518  df-fv 6519  df-ov 7390  df-oprab 7391  df-mpo 7392  df-om 7843  df-1st 7968  df-2nd 7969  df-frecs 8260  df-wrecs 8291  df-recs 8340  df-rdg 8378  df-1o 8434  df-oadd 8438  df-omul 8439  df-er 8671  df-ec 8673  df-qs 8677  df-ni 10825  df-pli 10826  df-mi 10827  df-lti 10828  df-plpq 10861  df-mpq 10862  df-ltpq 10863  df-enq 10864  df-nq 10865  df-erq 10866  df-plq 10867  df-mq 10868  df-1nq 10869  df-rq 10870  df-ltnq 10871  df-np 10934  df-plp 10936  df-mp 10937  df-ltp 10938  df-enr 11008

This theorem is referenced by:  mulsrpr  11029