Theorem addnq0mo 7672

Description: There is at most one result from adding nonnegative fractions. (Contributed by Jim Kingdon, 23-Nov-2019.)

Assertion

Ref	Expression
addnq0mo	⊢ ((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) → ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ))

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

Proof of Theorem addnq0mo

Dummy variables 𝑓 𝑔 ℎ 𝑞 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		enq0er 7660	. . . . . . . . . . . . . 14 ⊢ ~Q0 Er (ω × N)
2	1	a1i 9	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ))) → ~Q0 Er (ω × N))
3		nnnq0lem1 7671	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ))) → ((((𝑤 ∈ ω ∧ 𝑣 ∈ N) ∧ (𝑠 ∈ ω ∧ 𝑓 ∈ N)) ∧ ((𝑢 ∈ ω ∧ 𝑡 ∈ N) ∧ (𝑔 ∈ ω ∧ ℎ ∈ N))) ∧ ((𝑤 ·o 𝑓) = (𝑣 ·o 𝑠) ∧ (𝑢 ·o ℎ) = (𝑡 ·o 𝑔))))
4		addcmpblnq0 7668	. . . . . . . . . . . . . . 15 ⊢ ((((𝑤 ∈ ω ∧ 𝑣 ∈ N) ∧ (𝑠 ∈ ω ∧ 𝑓 ∈ N)) ∧ ((𝑢 ∈ ω ∧ 𝑡 ∈ N) ∧ (𝑔 ∈ ω ∧ ℎ ∈ N))) → (((𝑤 ·o 𝑓) = (𝑣 ·o 𝑠) ∧ (𝑢 ·o ℎ) = (𝑡 ·o 𝑔)) → ⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩ ~Q0 ⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩))
5	4	imp 124	. . . . . . . . . . . . . 14 ⊢ (((((𝑤 ∈ ω ∧ 𝑣 ∈ N) ∧ (𝑠 ∈ ω ∧ 𝑓 ∈ N)) ∧ ((𝑢 ∈ ω ∧ 𝑡 ∈ N) ∧ (𝑔 ∈ ω ∧ ℎ ∈ N))) ∧ ((𝑤 ·o 𝑓) = (𝑣 ·o 𝑠) ∧ (𝑢 ·o ℎ) = (𝑡 ·o 𝑔))) → ⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩ ~Q0 ⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩)
6	3, 5	syl 14	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ))) → ⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩ ~Q0 ⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩)
7	2, 6	erthi 6755	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ))) → [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )
8		simprlr 540	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ))) → 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )
9		simprrr 542	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ))) → 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )
10	7, 8, 9	3eqtr4d 2273	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) ∧ (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ))) → 𝑧 = 𝑞)
11	10	expr 375	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )) → (((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ) → 𝑧 = 𝑞))
12	11	exlimdvv 1945	. . . . . . . . 9 ⊢ (((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )) → (∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ) → 𝑧 = 𝑞))
13	12	exlimdvv 1945	. . . . . . . 8 ⊢ (((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )) → (∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ) → 𝑧 = 𝑞))
14	13	ex 115	. . . . . . 7 ⊢ ((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) → (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) → (∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ) → 𝑧 = 𝑞)))
15	14	exlimdvv 1945	. . . . . 6 ⊢ ((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) → (∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) → (∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ) → 𝑧 = 𝑞)))
16	15	exlimdvv 1945	. . . . 5 ⊢ ((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) → (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) → (∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ) → 𝑧 = 𝑞)))
17	16	impd 254	. . . 4 ⊢ ((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) → ((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )) → 𝑧 = 𝑞))
18	17	alrimivv 1922	. . 3 ⊢ ((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) → ∀𝑧∀𝑞((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )) → 𝑧 = 𝑞))
19		opeq12 3865	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ⟨𝑤, 𝑣⟩ = ⟨𝑠, 𝑓⟩)
20	19	eceq1d 6743	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → [⟨𝑤, 𝑣⟩] ~Q0 = [⟨𝑠, 𝑓⟩] ~Q0 )
21	20	eqeq2d 2242	. . . . . . . . 9 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ↔ 𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ))
22	21	anbi1d 465	. . . . . . . 8 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 )))
23		simpl 109	. . . . . . . . . . . . 13 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → 𝑤 = 𝑠)
24	23	oveq1d 6038	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑤 ·o 𝑡) = (𝑠 ·o 𝑡))
25		simpr 110	. . . . . . . . . . . . 13 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → 𝑣 = 𝑓)
26	25	oveq1d 6038	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑣 ·o 𝑢) = (𝑓 ·o 𝑢))
27	24, 26	oveq12d 6041	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)) = ((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)))
28	25	oveq1d 6038	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑣 ·o 𝑡) = (𝑓 ·o 𝑡))
29	27, 28	opeq12d 3871	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩ = ⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩)
30	29	eceq1d 6743	. . . . . . . . 9 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 = [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 )
31	30	eqeq2d 2242	. . . . . . . 8 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ↔ 𝑞 = [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 ))
32	22, 31	anbi12d 473	. . . . . . 7 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 )))
33		opeq12 3865	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ⟨𝑢, 𝑡⟩ = ⟨𝑔, ℎ⟩)
34	33	eceq1d 6743	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → [⟨𝑢, 𝑡⟩] ~Q0 = [⟨𝑔, ℎ⟩] ~Q0 )
35	34	eqeq2d 2242	. . . . . . . . 9 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ↔ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ))
36	35	anbi2d 464	. . . . . . . 8 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 )))
37		simpr 110	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → 𝑡 = ℎ)
38	37	oveq2d 6039	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑠 ·o 𝑡) = (𝑠 ·o ℎ))
39		simpl 109	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → 𝑢 = 𝑔)
40	39	oveq2d 6039	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑓 ·o 𝑢) = (𝑓 ·o 𝑔))
41	38, 40	oveq12d 6041	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)) = ((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)))
42	37	oveq2d 6039	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑓 ·o 𝑡) = (𝑓 ·o ℎ))
43	41, 42	opeq12d 3871	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩ = ⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩)
44	43	eceq1d 6743	. . . . . . . . 9 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )
45	44	eqeq2d 2242	. . . . . . . 8 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑞 = [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 ↔ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ))
46	36, 45	anbi12d 473	. . . . . . 7 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )))
47	32, 46	cbvex4v 1982	. . . . . 6 ⊢ (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ↔ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ))
48	47	anbi2i 457	. . . . 5 ⊢ ((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )) ↔ (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )))
49	48	imbi1i 238	. . . 4 ⊢ (((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )) → 𝑧 = 𝑞) ↔ ((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )) → 𝑧 = 𝑞))
50	49	2albii 1519	. . 3 ⊢ (∀𝑧∀𝑞((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )) → 𝑧 = 𝑞) ↔ ∀𝑧∀𝑞((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )) → 𝑧 = 𝑞))
51	18, 50	sylibr 134	. 2 ⊢ ((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) → ∀𝑧∀𝑞((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )) → 𝑧 = 𝑞))
52		eqeq1 2237	. . . . 5 ⊢ (𝑧 = 𝑞 → (𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ↔ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ))
53	52	anbi2d 464	. . . 4 ⊢ (𝑧 = 𝑞 → (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ↔ ((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )))
54	53	4exbidv 1917	. . 3 ⊢ (𝑧 = 𝑞 → (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ↔ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )))
55	54	mo4 2140	. 2 ⊢ (∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ↔ ∀𝑧∀𝑞((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )) → 𝑧 = 𝑞))
56	51, 55	sylibr 134	1 ⊢ ((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) → ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ))

Syntax hints:   → wi 4   ∧ wa 104  ∀wal 1395   = wceq 1397  ∃wex 1540  ∃*wmo 2079   ∈ wcel 2201  ⟨cop 3673   class class class wbr 4089  ωcom 4690   × cxp 4725  (class class class)co 6023   +_o coa 6584   ·_o comu 6585   Er wer 6704  [cec 6705   / cqs 6706  Ncnpi 7497   ~_Q0 ceq0 7511

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 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2203  ax-14 2204  ax-ext 2212  ax-coll 4205  ax-sep 4208  ax-nul 4216  ax-pow 4266  ax-pr 4301  ax-un 4532  ax-setind 4637  ax-iinf 4688

This theorem depends on definitions:  df-bi 117  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1810  df-eu 2081  df-mo 2082  df-clab 2217  df-cleq 2223  df-clel 2226  df-nfc 2362  df-ne 2402  df-ral 2514  df-rex 2515  df-reu 2516  df-rab 2518  df-v 2803  df-sbc 3031  df-csb 3127  df-dif 3201  df-un 3203  df-in 3205  df-ss 3212  df-nul 3494  df-pw 3655  df-sn 3676  df-pr 3677  df-op 3679  df-uni 3895  df-int 3930  df-iun 3973  df-br 4090  df-opab 4152  df-mpt 4153  df-tr 4189  df-id 4392  df-iord 4465  df-on 4467  df-suc 4470  df-iom 4691  df-xp 4733  df-rel 4734  df-cnv 4735  df-co 4736  df-dm 4737  df-rn 4738  df-res 4739  df-ima 4740  df-iota 5288  df-fun 5330  df-fn 5331  df-f 5332  df-f1 5333  df-fo 5334  df-f1o 5335  df-fv 5336  df-ov 6026  df-oprab 6027  df-mpo 6028  df-1st 6308  df-2nd 6309  df-recs 6476  df-irdg 6541  df-oadd 6591  df-omul 6592  df-er 6707  df-ec 6709  df-qs 6713  df-ni 7529  df-mi 7531  df-enq0 7649

This theorem is referenced by:  addnnnq0  7674