Theorem ltasr 9800

Description: Ordering property of addition. (Contributed by NM, 10-May-1996.) (New usage is discouraged.)

Assertion

Ref	Expression
ltasr	⊢ (𝐶 ∈ R → (𝐴 <R 𝐵 ↔ (𝐶 +R 𝐴) <R (𝐶 +R 𝐵)))

Proof of Theorem ltasr

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

Step	Hyp	Ref	Expression
1		dmaddsr 9785	. 2 ⊢ dom +R = (R × R)
2		ltrelsr 9768	. 2 ⊢ <R ⊆ (R × R)
3		0nsr 9779	. 2 ⊢ ¬ ∅ ∈ R
4		df-nr 9757	. . . 4 ⊢ R = ((P × P) / ~R )
5		oveq1 6556	. . . . . 6 ⊢ ([⟨𝑣, 𝑢⟩] ~R = 𝐶 → ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑥, 𝑦⟩] ~R ) = (𝐶 +R [⟨𝑥, 𝑦⟩] ~R ))
6		oveq1 6556	. . . . . 6 ⊢ ([⟨𝑣, 𝑢⟩] ~R = 𝐶 → ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑧, 𝑤⟩] ~R ) = (𝐶 +R [⟨𝑧, 𝑤⟩] ~R ))
7	5, 6	breq12d 4596	. . . . 5 ⊢ ([⟨𝑣, 𝑢⟩] ~R = 𝐶 → (([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑥, 𝑦⟩] ~R ) <R ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑧, 𝑤⟩] ~R ) ↔ (𝐶 +R [⟨𝑥, 𝑦⟩] ~R ) <R (𝐶 +R [⟨𝑧, 𝑤⟩] ~R )))
8	7	bibi2d 331	. . . 4 ⊢ ([⟨𝑣, 𝑢⟩] ~R = 𝐶 → (([⟨𝑥, 𝑦⟩] ~R <R [⟨𝑧, 𝑤⟩] ~R ↔ ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑥, 𝑦⟩] ~R ) <R ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑧, 𝑤⟩] ~R )) ↔ ([⟨𝑥, 𝑦⟩] ~R <R [⟨𝑧, 𝑤⟩] ~R ↔ (𝐶 +R [⟨𝑥, 𝑦⟩] ~R ) <R (𝐶 +R [⟨𝑧, 𝑤⟩] ~R ))))
9		breq1 4586	. . . . 5 ⊢ ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → ([⟨𝑥, 𝑦⟩] ~R <R [⟨𝑧, 𝑤⟩] ~R ↔ 𝐴 <R [⟨𝑧, 𝑤⟩] ~R ))
10		oveq2 6557	. . . . . 6 ⊢ ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → (𝐶 +R [⟨𝑥, 𝑦⟩] ~R ) = (𝐶 +R 𝐴))
11	10	breq1d 4593	. . . . 5 ⊢ ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → ((𝐶 +R [⟨𝑥, 𝑦⟩] ~R ) <R (𝐶 +R [⟨𝑧, 𝑤⟩] ~R ) ↔ (𝐶 +R 𝐴) <R (𝐶 +R [⟨𝑧, 𝑤⟩] ~R )))
12	9, 11	bibi12d 334	. . . 4 ⊢ ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → (([⟨𝑥, 𝑦⟩] ~R <R [⟨𝑧, 𝑤⟩] ~R ↔ (𝐶 +R [⟨𝑥, 𝑦⟩] ~R ) <R (𝐶 +R [⟨𝑧, 𝑤⟩] ~R )) ↔ (𝐴 <R [⟨𝑧, 𝑤⟩] ~R ↔ (𝐶 +R 𝐴) <R (𝐶 +R [⟨𝑧, 𝑤⟩] ~R ))))
13		breq2 4587	. . . . 5 ⊢ ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → (𝐴 <R [⟨𝑧, 𝑤⟩] ~R ↔ 𝐴 <R 𝐵))
14		oveq2 6557	. . . . . 6 ⊢ ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → (𝐶 +R [⟨𝑧, 𝑤⟩] ~R ) = (𝐶 +R 𝐵))
15	14	breq2d 4595	. . . . 5 ⊢ ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → ((𝐶 +R 𝐴) <R (𝐶 +R [⟨𝑧, 𝑤⟩] ~R ) ↔ (𝐶 +R 𝐴) <R (𝐶 +R 𝐵)))
16	13, 15	bibi12d 334	. . . 4 ⊢ ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → ((𝐴 <R [⟨𝑧, 𝑤⟩] ~R ↔ (𝐶 +R 𝐴) <R (𝐶 +R [⟨𝑧, 𝑤⟩] ~R )) ↔ (𝐴 <R 𝐵 ↔ (𝐶 +R 𝐴) <R (𝐶 +R 𝐵))))
17		addclpr 9719	. . . . . . 7 ⊢ ((𝑣 ∈ P ∧ 𝑢 ∈ P) → (𝑣 +P 𝑢) ∈ P)
18	17	3ad2ant1 1075	. . . . . 6 ⊢ (((𝑣 ∈ P ∧ 𝑢 ∈ P) ∧ (𝑥 ∈ P ∧ 𝑦 ∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) → (𝑣 +P 𝑢) ∈ P)
19		ltapr 9746	. . . . . . 7 ⊢ ((𝑣 +P 𝑢) ∈ P → ((𝑥 +P 𝑤)<P (𝑦 +P 𝑧) ↔ ((𝑣 +P 𝑢) +P (𝑥 +P 𝑤))<P ((𝑣 +P 𝑢) +P (𝑦 +P 𝑧))))
20		ltsrpr 9777	. . . . . . 7 ⊢ ([⟨𝑥, 𝑦⟩] ~R <R [⟨𝑧, 𝑤⟩] ~R ↔ (𝑥 +P 𝑤)<P (𝑦 +P 𝑧))
21		ltsrpr 9777	. . . . . . . 8 ⊢ ([⟨(𝑣 +P 𝑥), (𝑢 +P 𝑦)⟩] ~R <R [⟨(𝑣 +P 𝑧), (𝑢 +P 𝑤)⟩] ~R ↔ ((𝑣 +P 𝑥) +P (𝑢 +P 𝑤))<P ((𝑢 +P 𝑦) +P (𝑣 +P 𝑧)))
22		vex 3176	. . . . . . . . . 10 ⊢ 𝑣 ∈ V
23		vex 3176	. . . . . . . . . 10 ⊢ 𝑥 ∈ V
24		vex 3176	. . . . . . . . . 10 ⊢ 𝑢 ∈ V
25		addcompr 9722	. . . . . . . . . 10 ⊢ (𝑦 +P 𝑧) = (𝑧 +P 𝑦)
26		addasspr 9723	. . . . . . . . . 10 ⊢ ((𝑦 +P 𝑧) +P 𝑓) = (𝑦 +P (𝑧 +P 𝑓))
27		vex 3176	. . . . . . . . . 10 ⊢ 𝑤 ∈ V
28	22, 23, 24, 25, 26, 27	caov4 6763	. . . . . . . . 9 ⊢ ((𝑣 +P 𝑥) +P (𝑢 +P 𝑤)) = ((𝑣 +P 𝑢) +P (𝑥 +P 𝑤))
29		addcompr 9722	. . . . . . . . . 10 ⊢ ((𝑢 +P 𝑦) +P (𝑣 +P 𝑧)) = ((𝑣 +P 𝑧) +P (𝑢 +P 𝑦))
30		vex 3176	. . . . . . . . . . 11 ⊢ 𝑧 ∈ V
31		addcompr 9722	. . . . . . . . . . 11 ⊢ (𝑥 +P 𝑤) = (𝑤 +P 𝑥)
32		addasspr 9723	. . . . . . . . . . 11 ⊢ ((𝑥 +P 𝑤) +P 𝑓) = (𝑥 +P (𝑤 +P 𝑓))
33		vex 3176	. . . . . . . . . . 11 ⊢ 𝑦 ∈ V
34	22, 30, 24, 31, 32, 33	caov42 6765	. . . . . . . . . 10 ⊢ ((𝑣 +P 𝑧) +P (𝑢 +P 𝑦)) = ((𝑣 +P 𝑢) +P (𝑦 +P 𝑧))
35	29, 34	eqtri 2632	. . . . . . . . 9 ⊢ ((𝑢 +P 𝑦) +P (𝑣 +P 𝑧)) = ((𝑣 +P 𝑢) +P (𝑦 +P 𝑧))
36	28, 35	breq12i 4592	. . . . . . . 8 ⊢ (((𝑣 +P 𝑥) +P (𝑢 +P 𝑤))<P ((𝑢 +P 𝑦) +P (𝑣 +P 𝑧)) ↔ ((𝑣 +P 𝑢) +P (𝑥 +P 𝑤))<P ((𝑣 +P 𝑢) +P (𝑦 +P 𝑧)))
37	21, 36	bitri 263	. . . . . . 7 ⊢ ([⟨(𝑣 +P 𝑥), (𝑢 +P 𝑦)⟩] ~R <R [⟨(𝑣 +P 𝑧), (𝑢 +P 𝑤)⟩] ~R ↔ ((𝑣 +P 𝑢) +P (𝑥 +P 𝑤))<P ((𝑣 +P 𝑢) +P (𝑦 +P 𝑧)))
38	19, 20, 37	3bitr4g 302	. . . . . 6 ⊢ ((𝑣 +P 𝑢) ∈ P → ([⟨𝑥, 𝑦⟩] ~R <R [⟨𝑧, 𝑤⟩] ~R ↔ [⟨(𝑣 +P 𝑥), (𝑢 +P 𝑦)⟩] ~R <R [⟨(𝑣 +P 𝑧), (𝑢 +P 𝑤)⟩] ~R ))
39	18, 38	syl 17	. . . . 5 ⊢ (((𝑣 ∈ P ∧ 𝑢 ∈ P) ∧ (𝑥 ∈ P ∧ 𝑦 ∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) → ([⟨𝑥, 𝑦⟩] ~R <R [⟨𝑧, 𝑤⟩] ~R ↔ [⟨(𝑣 +P 𝑥), (𝑢 +P 𝑦)⟩] ~R <R [⟨(𝑣 +P 𝑧), (𝑢 +P 𝑤)⟩] ~R ))
40		addsrpr 9775	. . . . . . 7 ⊢ (((𝑣 ∈ P ∧ 𝑢 ∈ P) ∧ (𝑥 ∈ P ∧ 𝑦 ∈ P)) → ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑥, 𝑦⟩] ~R ) = [⟨(𝑣 +P 𝑥), (𝑢 +P 𝑦)⟩] ~R )
41	40	3adant3 1074	. . . . . 6 ⊢ (((𝑣 ∈ P ∧ 𝑢 ∈ P) ∧ (𝑥 ∈ P ∧ 𝑦 ∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) → ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑥, 𝑦⟩] ~R ) = [⟨(𝑣 +P 𝑥), (𝑢 +P 𝑦)⟩] ~R )
42		addsrpr 9775	. . . . . . 7 ⊢ (((𝑣 ∈ P ∧ 𝑢 ∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) → ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑧, 𝑤⟩] ~R ) = [⟨(𝑣 +P 𝑧), (𝑢 +P 𝑤)⟩] ~R )
43	42	3adant2 1073	. . . . . 6 ⊢ (((𝑣 ∈ P ∧ 𝑢 ∈ P) ∧ (𝑥 ∈ P ∧ 𝑦 ∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) → ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑧, 𝑤⟩] ~R ) = [⟨(𝑣 +P 𝑧), (𝑢 +P 𝑤)⟩] ~R )
44	41, 43	breq12d 4596	. . . . 5 ⊢ (((𝑣 ∈ P ∧ 𝑢 ∈ P) ∧ (𝑥 ∈ P ∧ 𝑦 ∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) → (([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑥, 𝑦⟩] ~R ) <R ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑧, 𝑤⟩] ~R ) ↔ [⟨(𝑣 +P 𝑥), (𝑢 +P 𝑦)⟩] ~R <R [⟨(𝑣 +P 𝑧), (𝑢 +P 𝑤)⟩] ~R ))
45	39, 44	bitr4d 270	. . . 4 ⊢ (((𝑣 ∈ P ∧ 𝑢 ∈ P) ∧ (𝑥 ∈ P ∧ 𝑦 ∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) → ([⟨𝑥, 𝑦⟩] ~R <R [⟨𝑧, 𝑤⟩] ~R ↔ ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑥, 𝑦⟩] ~R ) <R ([⟨𝑣, 𝑢⟩] ~R +R [⟨𝑧, 𝑤⟩] ~R )))
46	4, 8, 12, 16, 45	3ecoptocl 7726	. . 3 ⊢ ((𝐶 ∈ R ∧ 𝐴 ∈ R ∧ 𝐵 ∈ R) → (𝐴 <R 𝐵 ↔ (𝐶 +R 𝐴) <R (𝐶 +R 𝐵)))
47	46	3coml 1264	. 2 ⊢ ((𝐴 ∈ R ∧ 𝐵 ∈ R ∧ 𝐶 ∈ R) → (𝐴 <R 𝐵 ↔ (𝐶 +R 𝐴) <R (𝐶 +R 𝐵)))
48	1, 2, 3, 47	ndmovord 6722	1 ⊢ (𝐶 ∈ R → (𝐴 <R 𝐵 ↔ (𝐶 +R 𝐴) <R (𝐶 +R 𝐵)))

Syntax hints:   → wi 4   ↔ wb 195   ∧ wa 383   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977  ⟨cop 4131   class class class wbr 4583  (class class class)co 6549  [cec 7627  Pcnp 9560   +_P cpp 9562  <_P cltp 9564   ~_R cer 9565  Rcnr 9566   +_R cplr 9570   <_R cltr 9572

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-inf2 8421

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-om 6958  df-1st 7059  df-2nd 7060  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-oadd 7451  df-omul 7452  df-er 7629  df-ec 7631  df-qs 7635  df-ni 9573  df-pli 9574  df-mi 9575  df-lti 9576  df-plpq 9609  df-mpq 9610  df-ltpq 9611  df-enq 9612  df-nq 9613  df-erq 9614  df-plq 9615  df-mq 9616  df-1nq 9617  df-rq 9618  df-ltnq 9619  df-np 9682  df-plp 9684  df-ltp 9686  df-enr 9756  df-nr 9757  df-plr 9758  df-ltr 9760

This theorem is referenced by:  addgt0sr  9804  sqgt0sr  9806  mappsrpr  9808  ltpsrpr  9809  map2psrpr  9810  supsrlem  9811  axpre-ltadd  9867