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

Theorem mulsrmo 7768
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 7759 . . . . . . . . . . . . . . . 16 ~R Er (P × P)
21a1i 9 . . . . . . . . . . . . . . 15 (((𝐴 ∈ ((P × P) / ~R ) ∧ 𝐵 ∈ ((P × P) / ~R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ (𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R ))) → ~R Er (P × P))
3 prsrlem1 7766 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ ((P × P) / ~R ) ∧ 𝐵 ∈ ((P × P) / ~R )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ (𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R ))) → ((((𝑤P𝑣P) ∧ (𝑠P𝑓P)) ∧ ((𝑢P𝑡P) ∧ (𝑔PP))) ∧ ((𝑤 +P 𝑓) = (𝑣 +P 𝑠) ∧ (𝑢 +P ) = (𝑡 +P 𝑔))))
4 mulcmpblnr 7765 . . . . . . . . . . . . . . . . 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 124 . . . . . . . . . . . . . . . 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 6602 . . . . . . . . . . . . . 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 485 . . . . . . . . . . . . 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 487 . . . . . . . . . . . 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 538 . . . . . . . . . . . 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 540 . . . . . . . . . . . 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 2232 . . . . . . . . . . 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 375 . . . . . . . . . 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 1909 . . . . . . . . 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 1909 . . . . . . . 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 115 . . . . . . 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 1909 . . . . . 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 1909 . . . . 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 254 . . . 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 1886 . . 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 3795 . . . . . . . . . . 11 ((𝑤 = 𝑠𝑣 = 𝑓) → ⟨𝑤, 𝑣⟩ = ⟨𝑠, 𝑓⟩)
2221eceq1d 6590 . . . . . . . . . 10 ((𝑤 = 𝑠𝑣 = 𝑓) → [⟨𝑤, 𝑣⟩] ~R = [⟨𝑠, 𝑓⟩] ~R )
2322eqeq2d 2201 . . . . . . . . 9 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐴 = [⟨𝑠, 𝑓⟩] ~R ))
2423anbi1d 465 . . . . . . . 8 ((𝑤 = 𝑠𝑣 = 𝑓) → ((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R )))
25 simpl 109 . . . . . . . . . . . . 13 ((𝑤 = 𝑠𝑣 = 𝑓) → 𝑤 = 𝑠)
2625oveq1d 5907 . . . . . . . . . . . 12 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝑤 ·P 𝑢) = (𝑠 ·P 𝑢))
27 simpr 110 . . . . . . . . . . . . 13 ((𝑤 = 𝑠𝑣 = 𝑓) → 𝑣 = 𝑓)
2827oveq1d 5907 . . . . . . . . . . . 12 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝑣 ·P 𝑡) = (𝑓 ·P 𝑡))
2926, 28oveq12d 5910 . . . . . . . . . . 11 ((𝑤 = 𝑠𝑣 = 𝑓) → ((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)) = ((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)))
3025oveq1d 5907 . . . . . . . . . . . 12 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝑤 ·P 𝑡) = (𝑠 ·P 𝑡))
3127oveq1d 5907 . . . . . . . . . . . 12 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝑣 ·P 𝑢) = (𝑓 ·P 𝑢))
3230, 31oveq12d 5910 . . . . . . . . . . 11 ((𝑤 = 𝑠𝑣 = 𝑓) → ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢)) = ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢)))
3329, 32opeq12d 3801 . . . . . . . . . 10 ((𝑤 = 𝑠𝑣 = 𝑓) → ⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩ = ⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩)
3433eceq1d 6590 . . . . . . . . 9 ((𝑤 = 𝑠𝑣 = 𝑓) → [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R )
3534eqeq2d 2201 . . . . . . . 8 ((𝑤 = 𝑠𝑣 = 𝑓) → (𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R ))
3624, 35anbi12d 473 . . . . . . 7 ((𝑤 = 𝑠𝑣 = 𝑓) → (((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R )))
37 opeq12 3795 . . . . . . . . . . 11 ((𝑢 = 𝑔𝑡 = ) → ⟨𝑢, 𝑡⟩ = ⟨𝑔, ⟩)
3837eceq1d 6590 . . . . . . . . . 10 ((𝑢 = 𝑔𝑡 = ) → [⟨𝑢, 𝑡⟩] ~R = [⟨𝑔, ⟩] ~R )
3938eqeq2d 2201 . . . . . . . . 9 ((𝑢 = 𝑔𝑡 = ) → (𝐵 = [⟨𝑢, 𝑡⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R ))
4039anbi2d 464 . . . . . . . 8 ((𝑢 = 𝑔𝑡 = ) → ((𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R )))
41 simpl 109 . . . . . . . . . . . . 13 ((𝑢 = 𝑔𝑡 = ) → 𝑢 = 𝑔)
4241oveq2d 5908 . . . . . . . . . . . 12 ((𝑢 = 𝑔𝑡 = ) → (𝑠 ·P 𝑢) = (𝑠 ·P 𝑔))
43 simpr 110 . . . . . . . . . . . . 13 ((𝑢 = 𝑔𝑡 = ) → 𝑡 = )
4443oveq2d 5908 . . . . . . . . . . . 12 ((𝑢 = 𝑔𝑡 = ) → (𝑓 ·P 𝑡) = (𝑓 ·P ))
4542, 44oveq12d 5910 . . . . . . . . . . 11 ((𝑢 = 𝑔𝑡 = ) → ((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)) = ((𝑠 ·P 𝑔) +P (𝑓 ·P )))
4643oveq2d 5908 . . . . . . . . . . . 12 ((𝑢 = 𝑔𝑡 = ) → (𝑠 ·P 𝑡) = (𝑠 ·P ))
4741oveq2d 5908 . . . . . . . . . . . 12 ((𝑢 = 𝑔𝑡 = ) → (𝑓 ·P 𝑢) = (𝑓 ·P 𝑔))
4846, 47oveq12d 5910 . . . . . . . . . . 11 ((𝑢 = 𝑔𝑡 = ) → ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢)) = ((𝑠 ·P ) +P (𝑓 ·P 𝑔)))
4945, 48opeq12d 3801 . . . . . . . . . 10 ((𝑢 = 𝑔𝑡 = ) → ⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩ = ⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩)
5049eceq1d 6590 . . . . . . . . 9 ((𝑢 = 𝑔𝑡 = ) → [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R = [⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩] ~R )
5150eqeq2d 2201 . . . . . . . 8 ((𝑢 = 𝑔𝑡 = ) → (𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R𝑞 = [⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩] ~R ))
5240, 51anbi12d 473 . . . . . . 7 ((𝑢 = 𝑔𝑡 = ) → (((𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑠 ·P 𝑢) +P (𝑓 ·P 𝑡)), ((𝑠 ·P 𝑡) +P (𝑓 ·P 𝑢))⟩] ~R ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R ) ∧ 𝑞 = [⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩] ~R )))
5336, 52cbvex4v 1942 . . . . . 6 (∃𝑤𝑣𝑢𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ∃𝑠𝑓𝑔((𝐴 = [⟨𝑠, 𝑓⟩] ~R𝐵 = [⟨𝑔, ⟩] ~R ) ∧ 𝑞 = [⟨((𝑠 ·P 𝑔) +P (𝑓 ·P )), ((𝑠 ·P ) +P (𝑓 ·P 𝑔))⟩] ~R ))
5453anbi2i 457 . . . . 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 238 . . . 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 1482 . . 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 134 . 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 2196 . . . . 5 (𝑧 = 𝑞 → (𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ))
5958anbi2d 464 . . . 4 (𝑧 = 𝑞 → (((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
60594exbidv 1881 . . 3 (𝑧 = 𝑞 → (∃𝑤𝑣𝑢𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R ) ↔ ∃𝑤𝑣𝑢𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~R𝐵 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑞 = [⟨((𝑤 ·P 𝑢) +P (𝑣 ·P 𝑡)), ((𝑤 ·P 𝑡) +P (𝑣 ·P 𝑢))⟩] ~R )))
6160mo4 2099 . 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 134 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 104  wal 1362   = wceq 1364  wex 1503  ∃*wmo 2039  wcel 2160  cop 3610   class class class wbr 4018   × cxp 4639  (class class class)co 5892   Er wer 6551  [cec 6552   / cqs 6553  Pcnp 7315   +P cpp 7317   ·P cmp 7318   ~R cer 7320
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2162  ax-14 2163  ax-ext 2171  ax-coll 4133  ax-sep 4136  ax-nul 4144  ax-pow 4189  ax-pr 4224  ax-un 4448  ax-setind 4551  ax-iinf 4602
This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2041  df-mo 2042  df-clab 2176  df-cleq 2182  df-clel 2185  df-nfc 2321  df-ne 2361  df-ral 2473  df-rex 2474  df-reu 2475  df-rab 2477  df-v 2754  df-sbc 2978  df-csb 3073  df-dif 3146  df-un 3148  df-in 3150  df-ss 3157  df-nul 3438  df-pw 3592  df-sn 3613  df-pr 3614  df-op 3616  df-uni 3825  df-int 3860  df-iun 3903  df-br 4019  df-opab 4080  df-mpt 4081  df-tr 4117  df-eprel 4304  df-id 4308  df-po 4311  df-iso 4312  df-iord 4381  df-on 4383  df-suc 4386  df-iom 4605  df-xp 4647  df-rel 4648  df-cnv 4649  df-co 4650  df-dm 4651  df-rn 4652  df-res 4653  df-ima 4654  df-iota 5193  df-fun 5234  df-fn 5235  df-f 5236  df-f1 5237  df-fo 5238  df-f1o 5239  df-fv 5240  df-ov 5895  df-oprab 5896  df-mpo 5897  df-1st 6160  df-2nd 6161  df-recs 6325  df-irdg 6390  df-1o 6436  df-2o 6437  df-oadd 6440  df-omul 6441  df-er 6554  df-ec 6556  df-qs 6560  df-ni 7328  df-pli 7329  df-mi 7330  df-lti 7331  df-plpq 7368  df-mpq 7369  df-enq 7371  df-nqqs 7372  df-plqqs 7373  df-mqqs 7374  df-1nqqs 7375  df-rq 7376  df-ltnqqs 7377  df-enq0 7448  df-nq0 7449  df-0nq0 7450  df-plq0 7451  df-mq0 7452  df-inp 7490  df-iplp 7492  df-imp 7493  df-enr 7750
This theorem is referenced by:  mulsrpr  7770
  Copyright terms: Public domain W3C validator