ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  ltaprg GIF version

Theorem ltaprg 7551
Description: Ordering property of addition. Proposition 9-3.5(v) of [Gleason] p. 123. (Contributed by Jim Kingdon, 26-Dec-2019.)
Assertion
Ref Expression
ltaprg ((𝐴P𝐵P𝐶P) → (𝐴<P 𝐵 ↔ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))

Proof of Theorem ltaprg
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 ltaprlem 7550 . . 3 (𝐶P → (𝐴<P 𝐵 → (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))
213ad2ant3 1009 . 2 ((𝐴P𝐵P𝐶P) → (𝐴<P 𝐵 → (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))
3 ltexpri 7545 . . . . 5 ((𝐶 +P 𝐴)<P (𝐶 +P 𝐵) → ∃𝑥P ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))
43adantl 275 . . . 4 (((𝐴P𝐵P𝐶P) ∧ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)) → ∃𝑥P ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))
5 simpl1 989 . . . . . . 7 (((𝐴P𝐵P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → 𝐴P)
6 simprl 521 . . . . . . 7 (((𝐴P𝐵P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → 𝑥P)
7 ltaddpr 7529 . . . . . . 7 ((𝐴P𝑥P) → 𝐴<P (𝐴 +P 𝑥))
85, 6, 7syl2anc 409 . . . . . 6 (((𝐴P𝐵P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → 𝐴<P (𝐴 +P 𝑥))
9 addassprg 7511 . . . . . . . . . . . 12 ((𝐶P𝐴P𝑥P) → ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P (𝐴 +P 𝑥)))
1093com12 1196 . . . . . . . . . . 11 ((𝐴P𝐶P𝑥P) → ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P (𝐴 +P 𝑥)))
11103expa 1192 . . . . . . . . . 10 (((𝐴P𝐶P) ∧ 𝑥P) → ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P (𝐴 +P 𝑥)))
1211adantrr 471 . . . . . . . . 9 (((𝐴P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P (𝐴 +P 𝑥)))
13 simprr 522 . . . . . . . . 9 (((𝐴P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))
1412, 13eqtr3d 2199 . . . . . . . 8 (((𝐴P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → (𝐶 +P (𝐴 +P 𝑥)) = (𝐶 +P 𝐵))
15143adantl2 1143 . . . . . . 7 (((𝐴P𝐵P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → (𝐶 +P (𝐴 +P 𝑥)) = (𝐶 +P 𝐵))
16 simpl3 991 . . . . . . . 8 (((𝐴P𝐵P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → 𝐶P)
17 addclpr 7469 . . . . . . . . 9 ((𝐴P𝑥P) → (𝐴 +P 𝑥) ∈ P)
185, 6, 17syl2anc 409 . . . . . . . 8 (((𝐴P𝐵P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → (𝐴 +P 𝑥) ∈ P)
19 simpl2 990 . . . . . . . 8 (((𝐴P𝐵P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → 𝐵P)
20 addcanprg 7548 . . . . . . . 8 ((𝐶P ∧ (𝐴 +P 𝑥) ∈ P𝐵P) → ((𝐶 +P (𝐴 +P 𝑥)) = (𝐶 +P 𝐵) → (𝐴 +P 𝑥) = 𝐵))
2116, 18, 19, 20syl3anc 1227 . . . . . . 7 (((𝐴P𝐵P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → ((𝐶 +P (𝐴 +P 𝑥)) = (𝐶 +P 𝐵) → (𝐴 +P 𝑥) = 𝐵))
2215, 21mpd 13 . . . . . 6 (((𝐴P𝐵P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → (𝐴 +P 𝑥) = 𝐵)
238, 22breqtrd 4002 . . . . 5 (((𝐴P𝐵P𝐶P) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → 𝐴<P 𝐵)
2423adantlr 469 . . . 4 ((((𝐴P𝐵P𝐶P) ∧ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)) ∧ (𝑥P ∧ ((𝐶 +P 𝐴) +P 𝑥) = (𝐶 +P 𝐵))) → 𝐴<P 𝐵)
254, 24rexlimddv 2586 . . 3 (((𝐴P𝐵P𝐶P) ∧ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)) → 𝐴<P 𝐵)
2625ex 114 . 2 ((𝐴P𝐵P𝐶P) → ((𝐶 +P 𝐴)<P (𝐶 +P 𝐵) → 𝐴<P 𝐵))
272, 26impbid 128 1 ((𝐴P𝐵P𝐶P) → (𝐴<P 𝐵 ↔ (𝐶 +P 𝐴)<P (𝐶 +P 𝐵)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  wb 104  w3a 967   = wceq 1342  wcel 2135  wrex 2443   class class class wbr 3976  (class class class)co 5836  Pcnp 7223   +P cpp 7225  <P cltp 7227
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1434  ax-7 1435  ax-gen 1436  ax-ie1 1480  ax-ie2 1481  ax-8 1491  ax-10 1492  ax-11 1493  ax-i12 1494  ax-bndl 1496  ax-4 1497  ax-17 1513  ax-i9 1517  ax-ial 1521  ax-i5r 1522  ax-13 2137  ax-14 2138  ax-ext 2146  ax-coll 4091  ax-sep 4094  ax-nul 4102  ax-pow 4147  ax-pr 4181  ax-un 4405  ax-setind 4508  ax-iinf 4559
This theorem depends on definitions:  df-bi 116  df-dc 825  df-3or 968  df-3an 969  df-tru 1345  df-fal 1348  df-nf 1448  df-sb 1750  df-eu 2016  df-mo 2017  df-clab 2151  df-cleq 2157  df-clel 2160  df-nfc 2295  df-ne 2335  df-ral 2447  df-rex 2448  df-reu 2449  df-rab 2451  df-v 2723  df-sbc 2947  df-csb 3041  df-dif 3113  df-un 3115  df-in 3117  df-ss 3124  df-nul 3405  df-pw 3555  df-sn 3576  df-pr 3577  df-op 3579  df-uni 3784  df-int 3819  df-iun 3862  df-br 3977  df-opab 4038  df-mpt 4039  df-tr 4075  df-eprel 4261  df-id 4265  df-po 4268  df-iso 4269  df-iord 4338  df-on 4340  df-suc 4343  df-iom 4562  df-xp 4604  df-rel 4605  df-cnv 4606  df-co 4607  df-dm 4608  df-rn 4609  df-res 4610  df-ima 4611  df-iota 5147  df-fun 5184  df-fn 5185  df-f 5186  df-f1 5187  df-fo 5188  df-f1o 5189  df-fv 5190  df-ov 5839  df-oprab 5840  df-mpo 5841  df-1st 6100  df-2nd 6101  df-recs 6264  df-irdg 6329  df-1o 6375  df-2o 6376  df-oadd 6379  df-omul 6380  df-er 6492  df-ec 6494  df-qs 6498  df-ni 7236  df-pli 7237  df-mi 7238  df-lti 7239  df-plpq 7276  df-mpq 7277  df-enq 7279  df-nqqs 7280  df-plqqs 7281  df-mqqs 7282  df-1nqqs 7283  df-rq 7284  df-ltnqqs 7285  df-enq0 7356  df-nq0 7357  df-0nq0 7358  df-plq0 7359  df-mq0 7360  df-inp 7398  df-iplp 7400  df-iltp 7402
This theorem is referenced by:  prplnqu  7552  addextpr  7553  caucvgprlemcanl  7576  caucvgprprlemnkltj  7621  caucvgprprlemnbj  7625  caucvgprprlemmu  7627  caucvgprprlemloc  7635  caucvgprprlemexbt  7638  caucvgprprlemexb  7639  caucvgprprlemaddq  7640  caucvgprprlem1  7641  caucvgprprlem2  7642  ltsrprg  7679  gt0srpr  7680  lttrsr  7694  ltsosr  7696  ltasrg  7702  prsrlt  7719  ltpsrprg  7735  map2psrprg  7737
  Copyright terms: Public domain W3C validator