Theorem addsrpr 11067

Description: Addition of signed reals in terms of positive reals. (Contributed by NM, 3-Sep-1995.) (Revised by Mario Carneiro, 12-Aug-2015.) (New usage is discouraged.)

Assertion

Ref	Expression
addsrpr	⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝐶 ∈ P ∧ 𝐷 ∈ P)) → ([⟨𝐴, 𝐵⟩] ~R +R [⟨𝐶, 𝐷⟩] ~R ) = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R )

Proof of Theorem addsrpr

Dummy variables 𝑥 𝑦 𝑧 𝑤 𝑣 𝑢 𝑡 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		opelxpi 5713	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ⟨𝐴, 𝐵⟩ ∈ (P × P))
2		enrex 11059	. . . . 5 ⊢ ~R ∈ V
3	2	ecelqsi 8764	. . . 4 ⊢ (⟨𝐴, 𝐵⟩ ∈ (P × P) → [⟨𝐴, 𝐵⟩] ~R ∈ ((P × P) / ~R ))
4	1, 3	syl 17	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → [⟨𝐴, 𝐵⟩] ~R ∈ ((P × P) / ~R ))
5		opelxpi 5713	. . . 4 ⊢ ((𝐶 ∈ P ∧ 𝐷 ∈ P) → ⟨𝐶, 𝐷⟩ ∈ (P × P))
6	2	ecelqsi 8764	. . . 4 ⊢ (⟨𝐶, 𝐷⟩ ∈ (P × P) → [⟨𝐶, 𝐷⟩] ~R ∈ ((P × P) / ~R ))
7	5, 6	syl 17	. . 3 ⊢ ((𝐶 ∈ P ∧ 𝐷 ∈ P) → [⟨𝐶, 𝐷⟩] ~R ∈ ((P × P) / ~R ))
8	4, 7	anim12i 614	. 2 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝐶 ∈ P ∧ 𝐷 ∈ P)) → ([⟨𝐴, 𝐵⟩] ~R ∈ ((P × P) / ~R ) ∧ [⟨𝐶, 𝐷⟩] ~R ∈ ((P × P) / ~R )))
9		eqid 2733	. . . 4 ⊢ [⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R
10		eqid 2733	. . . 4 ⊢ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R
11	9, 10	pm3.2i 472	. . 3 ⊢ ([⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R )
12		eqid 2733	. . 3 ⊢ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R
13		opeq12 4875	. . . . . . . . 9 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → ⟨𝑤, 𝑣⟩ = ⟨𝐴, 𝐵⟩)
14	13	eceq1d 8739	. . . . . . . 8 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → [⟨𝑤, 𝑣⟩] ~R = [⟨𝐴, 𝐵⟩] ~R )
15	14	eqeq2d 2744	. . . . . . 7 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → ([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ↔ [⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ))
16	15	anbi1d 631	. . . . . 6 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → (([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ↔ ([⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R )))
17		simpl 484	. . . . . . . . . 10 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → 𝑤 = 𝐴)
18	17	oveq1d 7421	. . . . . . . . 9 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → (𝑤 +P 𝐶) = (𝐴 +P 𝐶))
19		simpr 486	. . . . . . . . . 10 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → 𝑣 = 𝐵)
20	19	oveq1d 7421	. . . . . . . . 9 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → (𝑣 +P 𝐷) = (𝐵 +P 𝐷))
21	18, 20	opeq12d 4881	. . . . . . . 8 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → ⟨(𝑤 +P 𝐶), (𝑣 +P 𝐷)⟩ = ⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩)
22	21	eceq1d 8739	. . . . . . 7 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → [⟨(𝑤 +P 𝐶), (𝑣 +P 𝐷)⟩] ~R = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R )
23	22	eqeq2d 2744	. . . . . 6 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → ([⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝐶), (𝑣 +P 𝐷)⟩] ~R ↔ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ))
24	16, 23	anbi12d 632	. . . . 5 ⊢ ((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) → ((([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝐶), (𝑣 +P 𝐷)⟩] ~R ) ↔ (([⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R )))
25	24	spc2egv 3590	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((([⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ) → ∃𝑤∃𝑣(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝐶), (𝑣 +P 𝐷)⟩] ~R )))
26		opeq12 4875	. . . . . . . . . 10 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → ⟨𝑢, 𝑡⟩ = ⟨𝐶, 𝐷⟩)
27	26	eceq1d 8739	. . . . . . . . 9 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → [⟨𝑢, 𝑡⟩] ~R = [⟨𝐶, 𝐷⟩] ~R )
28	27	eqeq2d 2744	. . . . . . . 8 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → ([⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ↔ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ))
29	28	anbi2d 630	. . . . . . 7 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → (([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ↔ ([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R )))
30		simpl 484	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → 𝑢 = 𝐶)
31	30	oveq2d 7422	. . . . . . . . . 10 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → (𝑤 +P 𝑢) = (𝑤 +P 𝐶))
32		simpr 486	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → 𝑡 = 𝐷)
33	32	oveq2d 7422	. . . . . . . . . 10 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → (𝑣 +P 𝑡) = (𝑣 +P 𝐷))
34	31, 33	opeq12d 4881	. . . . . . . . 9 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → ⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩ = ⟨(𝑤 +P 𝐶), (𝑣 +P 𝐷)⟩)
35	34	eceq1d 8739	. . . . . . . 8 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R = [⟨(𝑤 +P 𝐶), (𝑣 +P 𝐷)⟩] ~R )
36	35	eqeq2d 2744	. . . . . . 7 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → ([⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ↔ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝐶), (𝑣 +P 𝐷)⟩] ~R ))
37	29, 36	anbi12d 632	. . . . . 6 ⊢ ((𝑢 = 𝐶 ∧ 𝑡 = 𝐷) → ((([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ) ↔ (([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝐶), (𝑣 +P 𝐷)⟩] ~R )))
38	37	spc2egv 3590	. . . . 5 ⊢ ((𝐶 ∈ P ∧ 𝐷 ∈ P) → ((([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝐶), (𝑣 +P 𝐷)⟩] ~R ) → ∃𝑢∃𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R )))
39	38	2eximdv 1923	. . . 4 ⊢ ((𝐶 ∈ P ∧ 𝐷 ∈ P) → (∃𝑤∃𝑣(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝐶), (𝑣 +P 𝐷)⟩] ~R ) → ∃𝑤∃𝑣∃𝑢∃𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R )))
40	25, 39	sylan9 509	. . 3 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝐶 ∈ P ∧ 𝐷 ∈ P)) → ((([⟨𝐴, 𝐵⟩] ~R = [⟨𝐴, 𝐵⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝐶, 𝐷⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ) → ∃𝑤∃𝑣∃𝑢∃𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R )))
41	11, 12, 40	mp2ani 697	. 2 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝐶 ∈ P ∧ 𝐷 ∈ P)) → ∃𝑤∃𝑣∃𝑢∃𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ))
42		ecexg 8704	. . . 4 ⊢ ( ~R ∈ V → [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ∈ V)
43	2, 42	ax-mp 5	. . 3 ⊢ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ∈ V
44		simp1 1137	. . . . . . . 8 ⊢ ((𝑥 = [⟨𝐴, 𝐵⟩] ~R ∧ 𝑦 = [⟨𝐶, 𝐷⟩] ~R ∧ 𝑧 = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ) → 𝑥 = [⟨𝐴, 𝐵⟩] ~R )
45	44	eqeq1d 2735	. . . . . . 7 ⊢ ((𝑥 = [⟨𝐴, 𝐵⟩] ~R ∧ 𝑦 = [⟨𝐶, 𝐷⟩] ~R ∧ 𝑧 = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ) → (𝑥 = [⟨𝑤, 𝑣⟩] ~R ↔ [⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ))
46		simp2 1138	. . . . . . . 8 ⊢ ((𝑥 = [⟨𝐴, 𝐵⟩] ~R ∧ 𝑦 = [⟨𝐶, 𝐷⟩] ~R ∧ 𝑧 = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ) → 𝑦 = [⟨𝐶, 𝐷⟩] ~R )
47	46	eqeq1d 2735	. . . . . . 7 ⊢ ((𝑥 = [⟨𝐴, 𝐵⟩] ~R ∧ 𝑦 = [⟨𝐶, 𝐷⟩] ~R ∧ 𝑧 = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ) → (𝑦 = [⟨𝑢, 𝑡⟩] ~R ↔ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ))
48	45, 47	anbi12d 632	. . . . . 6 ⊢ ((𝑥 = [⟨𝐴, 𝐵⟩] ~R ∧ 𝑦 = [⟨𝐶, 𝐷⟩] ~R ∧ 𝑧 = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ) → ((𝑥 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ↔ ([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R )))
49		simp3 1139	. . . . . . 7 ⊢ ((𝑥 = [⟨𝐴, 𝐵⟩] ~R ∧ 𝑦 = [⟨𝐶, 𝐷⟩] ~R ∧ 𝑧 = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ) → 𝑧 = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R )
50	49	eqeq1d 2735	. . . . . 6 ⊢ ((𝑥 = [⟨𝐴, 𝐵⟩] ~R ∧ 𝑦 = [⟨𝐶, 𝐷⟩] ~R ∧ 𝑧 = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ) → (𝑧 = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ↔ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ))
51	48, 50	anbi12d 632	. . . . 5 ⊢ ((𝑥 = [⟨𝐴, 𝐵⟩] ~R ∧ 𝑦 = [⟨𝐶, 𝐷⟩] ~R ∧ 𝑧 = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ) → (((𝑥 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ) ↔ (([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R )))
52	51	4exbidv 1930	. . . 4 ⊢ ((𝑥 = [⟨𝐴, 𝐵⟩] ~R ∧ 𝑦 = [⟨𝐶, 𝐷⟩] ~R ∧ 𝑧 = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ) → (∃𝑤∃𝑣∃𝑢∃𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ) ↔ ∃𝑤∃𝑣∃𝑢∃𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R )))
53		addsrmo 11065	. . . 4 ⊢ ((𝑥 ∈ ((P × P) / ~R ) ∧ 𝑦 ∈ ((P × P) / ~R )) → ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ))
54		df-plr 11049	. . . . 5 ⊢ +R = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ R ∧ 𝑦 ∈ R) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ))}
55		df-nr 11048	. . . . . . . . 9 ⊢ R = ((P × P) / ~R )
56	55	eleq2i 2826	. . . . . . . 8 ⊢ (𝑥 ∈ R ↔ 𝑥 ∈ ((P × P) / ~R ))
57	55	eleq2i 2826	. . . . . . . 8 ⊢ (𝑦 ∈ R ↔ 𝑦 ∈ ((P × P) / ~R ))
58	56, 57	anbi12i 628	. . . . . . 7 ⊢ ((𝑥 ∈ R ∧ 𝑦 ∈ R) ↔ (𝑥 ∈ ((P × P) / ~R ) ∧ 𝑦 ∈ ((P × P) / ~R )))
59	58	anbi1i 625	. . . . . 6 ⊢ (((𝑥 ∈ R ∧ 𝑦 ∈ R) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R )) ↔ ((𝑥 ∈ ((P × P) / ~R ) ∧ 𝑦 ∈ ((P × P) / ~R )) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R )))
60	59	oprabbii 7473	. . . . 5 ⊢ {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ R ∧ 𝑦 ∈ R) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ))} = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ((P × P) / ~R ) ∧ 𝑦 ∈ ((P × P) / ~R )) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ))}
61	54, 60	eqtri 2761	. . . 4 ⊢ +R = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ((P × P) / ~R ) ∧ 𝑦 ∈ ((P × P) / ~R )) ∧ ∃𝑤∃𝑣∃𝑢∃𝑡((𝑥 = [⟨𝑤, 𝑣⟩] ~R ∧ 𝑦 = [⟨𝑢, 𝑡⟩] ~R ) ∧ 𝑧 = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ))}
62	52, 53, 61	ovig 7551	. . 3 ⊢ (([⟨𝐴, 𝐵⟩] ~R ∈ ((P × P) / ~R ) ∧ [⟨𝐶, 𝐷⟩] ~R ∈ ((P × P) / ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ∈ V) → (∃𝑤∃𝑣∃𝑢∃𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ) → ([⟨𝐴, 𝐵⟩] ~R +R [⟨𝐶, 𝐷⟩] ~R ) = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ))
63	43, 62	mp3an3 1451	. 2 ⊢ (([⟨𝐴, 𝐵⟩] ~R ∈ ((P × P) / ~R ) ∧ [⟨𝐶, 𝐷⟩] ~R ∈ ((P × P) / ~R )) → (∃𝑤∃𝑣∃𝑢∃𝑡(([⟨𝐴, 𝐵⟩] ~R = [⟨𝑤, 𝑣⟩] ~R ∧ [⟨𝐶, 𝐷⟩] ~R = [⟨𝑢, 𝑡⟩] ~R ) ∧ [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R = [⟨(𝑤 +P 𝑢), (𝑣 +P 𝑡)⟩] ~R ) → ([⟨𝐴, 𝐵⟩] ~R +R [⟨𝐶, 𝐷⟩] ~R ) = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R ))
64	8, 41, 63	sylc 65	1 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝐶 ∈ P ∧ 𝐷 ∈ P)) → ([⟨𝐴, 𝐵⟩] ~R +R [⟨𝐶, 𝐷⟩] ~R ) = [⟨(𝐴 +P 𝐶), (𝐵 +P 𝐷)⟩] ~R )

Syntax hints:   → wi 4   ∧ wa 397   ∧ w3a 1088   = wceq 1542  ∃wex 1782   ∈ wcel 2107  Vcvv 3475  ⟨cop 4634   × cxp 5674  (class class class)co 7406  {coprab 7407  [cec 8698   / cqs 8699  Pcnp 10851   +_P cpp 10853   ~_R cer 10856  Rcnr 10857   +_R cplr 10861

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-inf2 9633

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-ov 7409  df-oprab 7410  df-mpo 7411  df-om 7853  df-1st 7972  df-2nd 7973  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-oadd 8467  df-omul 8468  df-er 8700  df-ec 8702  df-qs 8706  df-ni 10864  df-pli 10865  df-mi 10866  df-lti 10867  df-plpq 10900  df-mpq 10901  df-ltpq 10902  df-enq 10903  df-nq 10904  df-erq 10905  df-plq 10906  df-mq 10907  df-1nq 10908  df-rq 10909  df-ltnq 10910  df-np 10973  df-plp 10975  df-ltp 10977  df-enr 11047  df-nr 11048  df-plr 11049

This theorem is referenced by:  addclsr  11075  addcomsr  11079  addasssr  11080  distrsr  11083  m1p1sr  11084  0idsr  11089  ltasr  11092