ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  mulsrmo GIF version

Theorem mulsrmo 7440
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.
StepHypRef Expression
1 enrer 7431 . . . . . . . . . . . . . . . 16 ~R Er (P × P)
21a1i 9 . . . . . . . . . . . . . . 15 (((𝐴 ∈ ((P × P) / ~R ) ∧ 𝐵 ∈ ((P × P) / ~R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ (𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R ))) → ~R Er (P × P))
3 prsrlem1 7438 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ ((P × P) / ~R ) ∧ 𝐵 ∈ ((P × P) / ~R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ (𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R ))) → ((((𝑤P𝑣P) ∧ (𝑠P𝑓P)) ∧ ((𝑢P𝑡P) ∧ (𝑔PP))) ∧ ((𝑤 +P 𝑓) = (𝑣 +P 𝑠) ∧ (𝑢 +P ) = (𝑡 +P 𝑔))))
4 mulcmpblnr 7437 . . . . . . . . . . . . . . . . 17 ((((𝑤P𝑣P) ∧ (𝑠P𝑓P)) ∧ ((𝑢P𝑡P) ∧ (𝑔PP))) → (((𝑤 +P 𝑓) = (𝑣 +P 𝑠) ∧ (𝑢 +P ) = (𝑡 +P 𝑔)) → ⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩ ~R ⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩))
54imp 123 . . . . . . . . . . . . . . . 16 (((((𝑤P𝑣P) ∧ (𝑠P𝑓P)) ∧ ((𝑢P𝑡P) ∧ (𝑔PP))) ∧ ((𝑤 +P 𝑓) = (𝑣 +P 𝑠) ∧ (𝑢 +P ) = (𝑡 +P 𝑔))) → ⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩ ~R ⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩)
63, 5syl 14 . . . . . . . . . . . . . . 15 (((𝐴 ∈ ((P × P) / ~R ) ∧ 𝐵 ∈ ((P × P) / ~R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ (𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R ))) → ⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩ ~R ⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩)
72, 6erthi 6405 . . . . . . . . . . . . . 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 )
87adantrlr 472 . . . . . . . . . . . . 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 )
98adantrrr 474 . . . . . . . . . . . 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 508 . . . . . . . . . . . 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 510 . . . . . . . . . . . 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 )
129, 10, 113eqtr4d 2142 . . . . . . . . . . 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 ))) → 𝑧 = 𝑞)
1312expr 370 . . . . . . . . . 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 ) → 𝑧 = 𝑞))
1413exlimdvv 1836 . . . . . . . . 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 ) → 𝑧 = 𝑞))
1514exlimdvv 1836 . . . . . . . 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 ) → 𝑧 = 𝑞))
1615ex 114 . . . . . . 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 ) → 𝑧 = 𝑞)))
1716exlimdvv 1836 . . . . . 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 ) → 𝑧 = 𝑞)))
1817exlimdvv 1836 . . . . 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 ) → 𝑧 = 𝑞)))
1918impd 252 . . . 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 )) → 𝑧 = 𝑞))
2019alrimivv 1814 . . 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 3654 . . . . . . . . . . 11 ((𝑤 = 𝑠𝑣 = 𝑓) → ⟨𝑤, 𝑣⟩ = ⟨𝑠, 𝑓⟩)
2221eceq1d 6395 . . . . . . . . . 10 ((𝑤 = 𝑠𝑣 = 𝑓) → [⟨𝑤, 𝑣⟩] ~R = [⟨𝑠, 𝑓⟩] ~R )
2322eqeq2d 2111 . . . . . . . . 9 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐴 = [⟨𝑠, 𝑓⟩] ~R ))
2423anbi1d 456 . . . . . . . 8 ((𝑤 = 𝑠𝑣 = 𝑓) → ((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R )))
25 simpl 108 . . . . . . . . . . . . 13 ((𝑤 = 𝑠𝑣 = 𝑓) → 𝑤 = 𝑠)
2625oveq1d 5721 . . . . . . . . . . . 12 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝑤 ·P 𝑢) = (𝑠 ·P 𝑢))
27 simpr 109 . . . . . . . . . . . . 13 ((𝑤 = 𝑠𝑣 = 𝑓) → 𝑣 = 𝑓)
2827oveq1d 5721 . . . . . . . . . . . 12 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝑣 ·P 𝑡) = (𝑓 ·P 𝑡))
2926, 28oveq12d 5724 . . . . . . . . . . 11 ((𝑤 = 𝑠𝑣 = 𝑓) → ((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)) = ((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)))
3025oveq1d 5721 . . . . . . . . . . . 12 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝑤 ·P 𝑡) = (𝑠 ·P 𝑡))
3127oveq1d 5721 . . . . . . . . . . . 12 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝑣 ·P 𝑢) = (𝑓 ·P 𝑢))
3230, 31oveq12d 5724 . . . . . . . . . . 11 ((𝑤 = 𝑠𝑣 = 𝑓) → ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢)) = ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢)))
3329, 32opeq12d 3660 . . . . . . . . . 10 ((𝑤 = 𝑠𝑣 = 𝑓) → ⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩ = ⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩)
3433eceq1d 6395 . . . . . . . . 9 ((𝑤 = 𝑠𝑣 = 𝑓) → [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R )
3534eqeq2d 2111 . . . . . . . 8 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R ))
3624, 35anbi12d 460 . . . . . . 7 ((𝑤 = 𝑠𝑣 = 𝑓) → (((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R )))
37 opeq12 3654 . . . . . . . . . . 11 ((𝑢 = 𝑔𝑡 = ) → ⟨𝑢, 𝑡⟩ = ⟨𝑔, ⟩)
3837eceq1d 6395 . . . . . . . . . 10 ((𝑢 = 𝑔𝑡 = ) → [⟨𝑢, 𝑡⟩] ~R = [⟨𝑔, ⟩] ~R )
3938eqeq2d 2111 . . . . . . . . 9 ((𝑢 = 𝑔𝑡 = ) → (𝐵 = [⟨𝑢, 𝑡⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R ))
4039anbi2d 455 . . . . . . . 8 ((𝑢 = 𝑔𝑡 = ) → ((𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R )))
41 simpl 108 . . . . . . . . . . . . 13 ((𝑢 = 𝑔𝑡 = ) → 𝑢 = 𝑔)
4241oveq2d 5722 . . . . . . . . . . . 12 ((𝑢 = 𝑔𝑡 = ) → (𝑠 ·P 𝑢) = (𝑠 ·P 𝑔))
43 simpr 109 . . . . . . . . . . . . 13 ((𝑢 = 𝑔𝑡 = ) → 𝑡 = )
4443oveq2d 5722 . . . . . . . . . . . 12 ((𝑢 = 𝑔𝑡 = ) → (𝑓 ·P 𝑡) = (𝑓 ·P ))
4542, 44oveq12d 5724 . . . . . . . . . . 11 ((𝑢 = 𝑔𝑡 = ) → ((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)) = ((𝑠 ·P 𝑔) +P (𝑓 ·P )))
4643oveq2d 5722 . . . . . . . . . . . 12 ((𝑢 = 𝑔𝑡 = ) → (𝑠 ·P 𝑡) = (𝑠 ·P ))
4741oveq2d 5722 . . . . . . . . . . . 12 ((𝑢 = 𝑔𝑡 = ) → (𝑓 ·P 𝑢) = (𝑓 ·P 𝑔))
4846, 47oveq12d 5724 . . . . . . . . . . 11 ((𝑢 = 𝑔𝑡 = ) → ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢)) = ((𝑠 ·P ) +P (𝑓 ·P 𝑔)))
4945, 48opeq12d 3660 . . . . . . . . . 10 ((𝑢 = 𝑔𝑡 = ) → ⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩ = ⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩)
5049eceq1d 6395 . . . . . . . . 9 ((𝑢 = 𝑔𝑡 = ) → [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R = [⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩] ~R )
5150eqeq2d 2111 . . . . . . . 8 ((𝑢 = 𝑔𝑡 = ) → (𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R𝑞 = [⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩] ~R ))
5240, 51anbi12d 460 . . . . . . 7 ((𝑢 = 𝑔𝑡 = ) → (((𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R ) ∧ 𝑞 = [⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩] ~R )))
5336, 52cbvex4v 1865 . . . . . 6 (∃𝑤𝑣𝑢𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ∃𝑠𝑓𝑔((𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R ) ∧ 𝑞 = [⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩] ~R ))
5453anbi2i 448 . . . . 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 )))
5554imbi1i 237 . . . 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 )) → 𝑧 = 𝑞))
56552albii 1415 . . 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 )) → 𝑧 = 𝑞))
5720, 56sylibr 133 . 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 2106 . . . . 5 (𝑧 = 𝑞 → (𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))
5958anbi2d 455 . . . 4 (𝑧 = 𝑞 → (((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
60594exbidv 1809 . . 3 (𝑧 = 𝑞 → (∃𝑤𝑣𝑢𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ∃𝑤𝑣𝑢𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
6160mo4 2021 . 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 )) → 𝑧 = 𝑞))
6257, 61sylibr 133 1 ((𝐴 ∈ ((P × P) / ~R ) ∧ 𝐵 ∈ ((P × P) / ~R )) → ∃*𝑧𝑤𝑣𝑢𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  wal 1297   = wceq 1299  wex 1436  wcel 1448  ∃*wmo 1961  cop 3477   class class class wbr 3875   × cxp 4475  (class class class)co 5706   Er wer 6356  [cec 6357   / cqs 6358  Pcnp 7000   +P cpp 7002   ·P cmp 7003   ~R cer 7005
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 584  ax-in2 585  ax-io 671  ax-5 1391  ax-7 1392  ax-gen 1393  ax-ie1 1437  ax-ie2 1438  ax-8 1450  ax-10 1451  ax-11 1452  ax-i12 1453  ax-bndl 1454  ax-4 1455  ax-13 1459  ax-14 1460  ax-17 1474  ax-i9 1478  ax-ial 1482  ax-i5r 1483  ax-ext 2082  ax-coll 3983  ax-sep 3986  ax-nul 3994  ax-pow 4038  ax-pr 4069  ax-un 4293  ax-setind 4390  ax-iinf 4440
This theorem depends on definitions:  df-bi 116  df-dc 787  df-3or 931  df-3an 932  df-tru 1302  df-fal 1305  df-nf 1405  df-sb 1704  df-eu 1963  df-mo 1964  df-clab 2087  df-cleq 2093  df-clel 2096  df-nfc 2229  df-ne 2268  df-ral 2380  df-rex 2381  df-reu 2382  df-rab 2384  df-v 2643  df-sbc 2863  df-csb 2956  df-dif 3023  df-un 3025  df-in 3027  df-ss 3034  df-nul 3311  df-pw 3459  df-sn 3480  df-pr 3481  df-op 3483  df-uni 3684  df-int 3719  df-iun 3762  df-br 3876  df-opab 3930  df-mpt 3931  df-tr 3967  df-eprel 4149  df-id 4153  df-po 4156  df-iso 4157  df-iord 4226  df-on 4228  df-suc 4231  df-iom 4443  df-xp 4483  df-rel 4484  df-cnv 4485  df-co 4486  df-dm 4487  df-rn 4488  df-res 4489  df-ima 4490  df-iota 5024  df-fun 5061  df-fn 5062  df-f 5063  df-f1 5064  df-fo 5065  df-f1o 5066  df-fv 5067  df-ov 5709  df-oprab 5710  df-mpo 5711  df-1st 5969  df-2nd 5970  df-recs 6132  df-irdg 6197  df-1o 6243  df-2o 6244  df-oadd 6247  df-omul 6248  df-er 6359  df-ec 6361  df-qs 6365  df-ni 7013  df-pli 7014  df-mi 7015  df-lti 7016  df-plpq 7053  df-mpq 7054  df-enq 7056  df-nqqs 7057  df-plqqs 7058  df-mqqs 7059  df-1nqqs 7060  df-rq 7061  df-ltnqqs 7062  df-enq0 7133  df-nq0 7134  df-0nq0 7135  df-plq0 7136  df-mq0 7137  df-inp 7175  df-iplp 7177  df-imp 7178  df-enr 7422
This theorem is referenced by:  mulsrpr  7442
  Copyright terms: Public domain W3C validator