Theorem ltapr 11026

Description: Ordering property of addition. Proposition 9-3.5(v) of [Gleason] p. 123. (Contributed by NM, 8-Apr-1996.) (New usage is discouraged.)

Assertion

Ref	Expression
ltapr	⊢ (𝐶 ∈ P → (𝐴<P 𝐵 ↔ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))

Proof of Theorem ltapr

Step	Hyp	Ref	Expression
1		dmplp 10993	. 2 ⊢ dom +P = (P × P)
2		ltrelpr 10979	. 2 ⊢ <P ⊆ (P × P)
3		0npr 10973	. 2 ⊢ ¬ ∅ ∈ P
4		ltaprlem 11025	. . . . . 6 ⊢ (𝐶 ∈ P → (𝐴<P 𝐵 → (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))
5	4	adantr 485	. . . . 5 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → (𝐴<P 𝐵 → (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))
6		olc 881	. . . . . . . . 9 ⊢ ((𝐶 +P 𝐴)<P (𝐶 +P 𝐵) → ((𝐶 +P 𝐵) = (𝐶 +P 𝐴) ∨ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))
7		ltaprlem 11025	. . . . . . . . . . . 12 ⊢ (𝐶 ∈ P → (𝐵<P 𝐴 → (𝐶 +P 𝐵)<P (𝐶 +P 𝐴)))
8	7	adantr 485	. . . . . . . . . . 11 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → (𝐵<P 𝐴 → (𝐶 +P 𝐵)<P (𝐶 +P 𝐴)))
9		ltsopr 11013	. . . . . . . . . . . . 13 ⊢ <P Or P
10		sotric 5597	. . . . . . . . . . . . 13 ⊢ ((<P Or P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → (𝐵<P 𝐴 ↔ ¬ (𝐵 = 𝐴 ∨ 𝐴<P 𝐵)))
11	9, 10	mpan 702	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ P ∧ 𝐴 ∈ P) → (𝐵<P 𝐴 ↔ ¬ (𝐵 = 𝐴 ∨ 𝐴<P 𝐵)))
12	11	adantl 486	. . . . . . . . . . 11 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → (𝐵<P 𝐴 ↔ ¬ (𝐵 = 𝐴 ∨ 𝐴<P 𝐵)))
13		addclpr 10999	. . . . . . . . . . . . 13 ⊢ ((𝐶 ∈ P ∧ 𝐵 ∈ P) → (𝐶 +P 𝐵) ∈ P)
14		addclpr 10999	. . . . . . . . . . . . 13 ⊢ ((𝐶 ∈ P ∧ 𝐴 ∈ P) → (𝐶 +P 𝐴) ∈ P)
15	13, 14	anim12dan 630	. . . . . . . . . . . 12 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → ((𝐶 +P 𝐵) ∈ P ∧ (𝐶 +P 𝐴) ∈ P))
16		sotric 5597	. . . . . . . . . . . 12 ⊢ ((<P Or P ∧ ((𝐶 +P 𝐵) ∈ P ∧ (𝐶 +P 𝐴) ∈ P)) → ((𝐶 +P 𝐵)<P (𝐶 +P 𝐴) ↔ ¬ ((𝐶 +P 𝐵) = (𝐶 +P 𝐴) ∨ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵))))
17	9, 15, 16	sylancr 598	. . . . . . . . . . 11 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → ((𝐶 +P 𝐵)<P (𝐶 +P 𝐴) ↔ ¬ ((𝐶 +P 𝐵) = (𝐶 +P 𝐴) ∨ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵))))
18	8, 12, 17	3imtr3d 296	. . . . . . . . . 10 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → (¬ (𝐵 = 𝐴 ∨ 𝐴<P 𝐵) → ¬ ((𝐶 +P 𝐵) = (𝐶 +P 𝐴) ∨ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵))))
19	18	con4d 116	. . . . . . . . 9 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → (((𝐶 +P 𝐵) = (𝐶 +P 𝐴) ∨ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)) → (𝐵 = 𝐴 ∨ 𝐴<P 𝐵)))
20	6, 19	syl5 35	. . . . . . . 8 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → ((𝐶 +P 𝐴)<P (𝐶 +P 𝐵) → (𝐵 = 𝐴 ∨ 𝐴<P 𝐵)))
21		df-or 861	. . . . . . . 8 ⊢ ((𝐵 = 𝐴 ∨ 𝐴<P 𝐵) ↔ (¬ 𝐵 = 𝐴 → 𝐴<P 𝐵))
22	20, 21	imbitrdi 254	. . . . . . 7 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → ((𝐶 +P 𝐴)<P (𝐶 +P 𝐵) → (¬ 𝐵 = 𝐴 → 𝐴<P 𝐵)))
23	22	com23 87	. . . . . 6 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → (¬ 𝐵 = 𝐴 → ((𝐶 +P 𝐴)<P (𝐶 +P 𝐵) → 𝐴<P 𝐵)))
24	9, 2	soirri 6124	. . . . . . . 8 ⊢ ¬ (𝐶 +P 𝐴)<P (𝐶 +P 𝐴)
25		oveq2 7416	. . . . . . . . 9 ⊢ (𝐵 = 𝐴 → (𝐶 +P 𝐵) = (𝐶 +P 𝐴))
26	25	breq2d 5122	. . . . . . . 8 ⊢ (𝐵 = 𝐴 → ((𝐶 +P 𝐴)<P (𝐶 +P 𝐵) ↔ (𝐶 +P 𝐴)<P (𝐶 +P 𝐴)))
27	24, 26	mtbiri 330	. . . . . . 7 ⊢ (𝐵 = 𝐴 → ¬ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵))
28	27	pm2.21d 122	. . . . . 6 ⊢ (𝐵 = 𝐴 → ((𝐶 +P 𝐴)<P (𝐶 +P 𝐵) → 𝐴<P 𝐵))
29	23, 28	pm2.61d2 183	. . . . 5 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → ((𝐶 +P 𝐴)<P (𝐶 +P 𝐵) → 𝐴<P 𝐵))
30	5, 29	impbid 215	. . . 4 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝐴 ∈ P)) → (𝐴<P 𝐵 ↔ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))
31	30	3impb 1130	. . 3 ⊢ ((𝐶 ∈ P ∧ 𝐵 ∈ P ∧ 𝐴 ∈ P) → (𝐴<P 𝐵 ↔ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))
32	31	3com13 1140	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (𝐴<P 𝐵 ↔ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))
33	1, 2, 3, 32	ndmovord 7598	1 ⊢ (𝐶 ∈ P → (𝐴<P 𝐵 ↔ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   ∨ wo 860   = wceq 1567   ∈ wcel 2149   class class class wbr 5110   Or wor 5566  (class class class)co 7408  Pcnp 10840   +_P cpp 10842  <_P cltp 10844

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5258  ax-nul 5268  ax-pow 5334  ax-pr 5402  ax-un 7730  ax-inf2 9606

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4874  df-int 4914  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-ov 7411  df-oprab 7412  df-mpo 7413  df-om 7859  df-1st 7982  df-2nd 7983  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-oadd 8453  df-omul 8454  df-er 8690  df-ni 10853  df-pli 10854  df-mi 10855  df-lti 10856  df-plpq 10889  df-mpq 10890  df-ltpq 10891  df-enq 10892  df-nq 10893  df-erq 10894  df-plq 10895  df-mq 10896  df-1nq 10897  df-rq 10898  df-ltnq 10899  df-np 10962  df-plp 10964  df-ltp 10966

This theorem is referenced by:  addcanpr  11027  ltsrpr  11058  gt0srpr  11059  ltsosr  11075  ltasr  11081  ltpsrpr  11090  map2psrpr  11091