Theorem addnq0mo 7814

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 7802	. . . . . . . . . . . . . 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 7813	. . . . . . . . . . . . . 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 7810	. . . . . . . . . . . . . . 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 6855	. . . . . . . . . . . 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 544	. . . . . . . . . . . 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 546	. . . . . . . . . . . 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 2281	. . . . . . . . . . 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 1953	. . . . . . . . 9 ⊢ (((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) ∧ ((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )) → (∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ) → 𝑧 = 𝑞))
13	12	exlimdvv 1953	. . . . . . . 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 1953	. . . . . 6 ⊢ ((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) → (∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) → (∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ) → 𝑧 = 𝑞)))
16	15	exlimdvv 1953	. . . . 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 1928	. . 3 ⊢ ((𝐴 ∈ ((ω × N) / ~Q0 ) ∧ 𝐵 ∈ ((ω × N) / ~Q0 )) → ∀𝑧∀𝑞((∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ∧ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )) → 𝑧 = 𝑞))
19		opeq12 3906	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ⟨𝑤, 𝑣⟩ = ⟨𝑠, 𝑓⟩)
20	19	eceq1d 6843	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → [⟨𝑤, 𝑣⟩] ~Q0 = [⟨𝑠, 𝑓⟩] ~Q0 )
21	20	eqeq2d 2250	. . . . . . . . 9 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ↔ 𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ))
22	21	anbi1d 469	. . . . . . . 8 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 )))
23		simpl 109	. . . . . . . . . . . . 13 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → 𝑤 = 𝑠)
24	23	oveq1d 6100	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑤 ·o 𝑡) = (𝑠 ·o 𝑡))
25		simpr 110	. . . . . . . . . . . . 13 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → 𝑣 = 𝑓)
26	25	oveq1d 6100	. . . . . . . . . . . 12 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑣 ·o 𝑢) = (𝑓 ·o 𝑢))
27	24, 26	oveq12d 6103	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)) = ((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)))
28	25	oveq1d 6100	. . . . . . . . . . 11 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑣 ·o 𝑡) = (𝑓 ·o 𝑡))
29	27, 28	opeq12d 3912	. . . . . . . . . 10 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → ⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩ = ⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩)
30	29	eceq1d 6843	. . . . . . . . 9 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 = [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 )
31	30	eqeq2d 2250	. . . . . . . 8 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ↔ 𝑞 = [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 ))
32	22, 31	anbi12d 477	. . . . . . 7 ⊢ ((𝑤 = 𝑠 ∧ 𝑣 = 𝑓) → (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 )))
33		opeq12 3906	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ⟨𝑢, 𝑡⟩ = ⟨𝑔, ℎ⟩)
34	33	eceq1d 6843	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → [⟨𝑢, 𝑡⟩] ~Q0 = [⟨𝑔, ℎ⟩] ~Q0 )
35	34	eqeq2d 2250	. . . . . . . . 9 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ↔ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ))
36	35	anbi2d 468	. . . . . . . 8 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ↔ (𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 )))
37		simpr 110	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → 𝑡 = ℎ)
38	37	oveq2d 6101	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑠 ·o 𝑡) = (𝑠 ·o ℎ))
39		simpl 109	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → 𝑢 = 𝑔)
40	39	oveq2d 6101	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑓 ·o 𝑢) = (𝑓 ·o 𝑔))
41	38, 40	oveq12d 6103	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)) = ((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)))
42	37	oveq2d 6101	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑓 ·o 𝑡) = (𝑓 ·o ℎ))
43	41, 42	opeq12d 3912	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → ⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩ = ⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩)
44	43	eceq1d 6843	. . . . . . . . 9 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )
45	44	eqeq2d 2250	. . . . . . . 8 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (𝑞 = [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 ↔ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ))
46	36, 45	anbi12d 477	. . . . . . 7 ⊢ ((𝑢 = 𝑔 ∧ 𝑡 = ℎ) → (((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o 𝑡) +o (𝑓 ·o 𝑢)), (𝑓 ·o 𝑡)⟩] ~Q0 ) ↔ ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 )))
47	32, 46	cbvex4v 1990	. . . . . 6 ⊢ (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ↔ ∃𝑠∃𝑓∃𝑔∃ℎ((𝐴 = [⟨𝑠, 𝑓⟩] ~Q0 ∧ 𝐵 = [⟨𝑔, ℎ⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑠 ·o ℎ) +o (𝑓 ·o 𝑔)), (𝑓 ·o ℎ)⟩] ~Q0 ))
48	47	anbi2i 461	. . . . 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 1524	. . 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 2245	. . . . 5 ⊢ (𝑧 = 𝑞 → (𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ↔ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ))
53	52	anbi2d 468	. . . 4 ⊢ (𝑧 = 𝑞 → (((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ↔ ((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )))
54	53	4exbidv 1923	. . 3 ⊢ (𝑧 = 𝑞 → (∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑧 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 ) ↔ ∃𝑤∃𝑣∃𝑢∃𝑡((𝐴 = [⟨𝑤, 𝑣⟩] ~Q0 ∧ 𝐵 = [⟨𝑢, 𝑡⟩] ~Q0 ) ∧ 𝑞 = [⟨((𝑤 ·o 𝑡) +o (𝑣 ·o 𝑢)), (𝑣 ·o 𝑡)⟩] ~Q0 )))
55	54	mo4 2148	. 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 ))

This proof depends on syntax axioms:   → wi 4   ∧ wa 104  ∀wal 1400   = wceq 1402  ∃wex 1545  ∃*wmo 2087   ∈ wcel 2209  ⟨cop 3712   class class class wbr 4130  ωcom 4737   × cxp 4772  (class class class)co 6085   +_o coa 6684   ·_o comu 6685   Er wer 6804  [cec 6805   / cqs 6806  Ncnpi 7639   ~_Q0 ceq0 7653

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-coll 4246  ax-sep 4249  ax-nul 4259  ax-pow 4311  ax-pr 4346  ax-un 4578  ax-setind 4684  ax-iinf 4735

This proof depends on definitions:  df-bi 117  df-dc 847  df-3or 1010  df-3an 1011  df-tru 1405  df-fal 1408  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-ral 2533  df-rex 2534  df-reu 2535  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-pw 3690  df-sn 3715  df-pr 3716  df-op 3718  df-uni 3936  df-int 3971  df-iun 4014  df-br 4131  df-opab 4193  df-mpt 4194  df-tr 4230  df-id 4438  df-iord 4511  df-on 4513  df-suc 4516  df-iom 4738  df-xp 4780  df-rel 4781  df-cnv 4782  df-co 4783  df-dm 4784  df-rn 4785  df-res 4786  df-ima 4787  df-iota 5337  df-fun 5379  df-fn 5380  df-f 5381  df-f1 5382  df-fo 5383  df-f1o 5384  df-fv 5385  df-ov 6088  df-oprab 6089  df-mpo 6090  df-1st 6374  df-2nd 6375  df-recs 6576  df-irdg 6641  df-oadd 6691  df-omul 6692  df-er 6807  df-ec 6809  df-qs 6813  df-ni 7671  df-mi 7673  df-enq0 7791

This theorem is used by:  addnnnq0  7816