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

Theorem ivthinclemloc 12788
Description: Lemma for ivthinc 12790. Locatedness. (Contributed by Jim Kingdon, 18-Feb-2024.)
Hypotheses
Ref Expression
ivth.1 (𝜑𝐴 ∈ ℝ)
ivth.2 (𝜑𝐵 ∈ ℝ)
ivth.3 (𝜑𝑈 ∈ ℝ)
ivth.4 (𝜑𝐴 < 𝐵)
ivth.5 (𝜑 → (𝐴[,]𝐵) ⊆ 𝐷)
ivth.7 (𝜑𝐹 ∈ (𝐷cn→ℂ))
ivth.8 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → (𝐹𝑥) ∈ ℝ)
ivth.9 (𝜑 → ((𝐹𝐴) < 𝑈𝑈 < (𝐹𝐵)))
ivthinc.i (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ (𝑦 ∈ (𝐴[,]𝐵) ∧ 𝑥 < 𝑦)) → (𝐹𝑥) < (𝐹𝑦))
ivthinclem.l 𝐿 = {𝑤 ∈ (𝐴[,]𝐵) ∣ (𝐹𝑤) < 𝑈}
ivthinclem.r 𝑅 = {𝑤 ∈ (𝐴[,]𝐵) ∣ 𝑈 < (𝐹𝑤)}
Assertion
Ref Expression
ivthinclemloc (𝜑 → ∀𝑞 ∈ (𝐴[,]𝐵)∀𝑟 ∈ (𝐴[,]𝐵)(𝑞 < 𝑟 → (𝑞𝐿𝑟𝑅)))
Distinct variable groups:   𝐴,𝑟,𝑤   𝑥,𝐴,𝑦,𝑟   𝐵,𝑟,𝑤   𝑥,𝐵,𝑦   𝑤,𝐹   𝑥,𝐹,𝑦   𝑤,𝑈   𝜑,𝑞,𝑟,𝑥,𝑦   𝑤,𝑞
Allowed substitution hints:   𝜑(𝑤)   𝐴(𝑞)   𝐵(𝑞)   𝐷(𝑥,𝑦,𝑤,𝑟,𝑞)   𝑅(𝑥,𝑦,𝑤,𝑟,𝑞)   𝑈(𝑥,𝑦,𝑟,𝑞)   𝐹(𝑟,𝑞)   𝐿(𝑥,𝑦,𝑤,𝑟,𝑞)

Proof of Theorem ivthinclemloc
StepHypRef Expression
1 simpr 109 . . . . . 6 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → 𝑞 < 𝑟)
2 breq2 3933 . . . . . . . 8 (𝑦 = 𝑟 → (𝑞 < 𝑦𝑞 < 𝑟))
3 fveq2 5421 . . . . . . . . 9 (𝑦 = 𝑟 → (𝐹𝑦) = (𝐹𝑟))
43breq2d 3941 . . . . . . . 8 (𝑦 = 𝑟 → ((𝐹𝑞) < (𝐹𝑦) ↔ (𝐹𝑞) < (𝐹𝑟)))
52, 4imbi12d 233 . . . . . . 7 (𝑦 = 𝑟 → ((𝑞 < 𝑦 → (𝐹𝑞) < (𝐹𝑦)) ↔ (𝑞 < 𝑟 → (𝐹𝑞) < (𝐹𝑟))))
6 breq1 3932 . . . . . . . . . 10 (𝑥 = 𝑞 → (𝑥 < 𝑦𝑞 < 𝑦))
7 fveq2 5421 . . . . . . . . . . 11 (𝑥 = 𝑞 → (𝐹𝑥) = (𝐹𝑞))
87breq1d 3939 . . . . . . . . . 10 (𝑥 = 𝑞 → ((𝐹𝑥) < (𝐹𝑦) ↔ (𝐹𝑞) < (𝐹𝑦)))
96, 8imbi12d 233 . . . . . . . . 9 (𝑥 = 𝑞 → ((𝑥 < 𝑦 → (𝐹𝑥) < (𝐹𝑦)) ↔ (𝑞 < 𝑦 → (𝐹𝑞) < (𝐹𝑦))))
109ralbidv 2437 . . . . . . . 8 (𝑥 = 𝑞 → (∀𝑦 ∈ (𝐴[,]𝐵)(𝑥 < 𝑦 → (𝐹𝑥) < (𝐹𝑦)) ↔ ∀𝑦 ∈ (𝐴[,]𝐵)(𝑞 < 𝑦 → (𝐹𝑞) < (𝐹𝑦))))
11 ivthinc.i . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ (𝑦 ∈ (𝐴[,]𝐵) ∧ 𝑥 < 𝑦)) → (𝐹𝑥) < (𝐹𝑦))
1211expr 372 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ 𝑦 ∈ (𝐴[,]𝐵)) → (𝑥 < 𝑦 → (𝐹𝑥) < (𝐹𝑦)))
1312ralrimiva 2505 . . . . . . . . . 10 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → ∀𝑦 ∈ (𝐴[,]𝐵)(𝑥 < 𝑦 → (𝐹𝑥) < (𝐹𝑦)))
1413ralrimiva 2505 . . . . . . . . 9 (𝜑 → ∀𝑥 ∈ (𝐴[,]𝐵)∀𝑦 ∈ (𝐴[,]𝐵)(𝑥 < 𝑦 → (𝐹𝑥) < (𝐹𝑦)))
1514ad2antrr 479 . . . . . . . 8 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → ∀𝑥 ∈ (𝐴[,]𝐵)∀𝑦 ∈ (𝐴[,]𝐵)(𝑥 < 𝑦 → (𝐹𝑥) < (𝐹𝑦)))
16 simplrl 524 . . . . . . . 8 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → 𝑞 ∈ (𝐴[,]𝐵))
1710, 15, 16rspcdva 2794 . . . . . . 7 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → ∀𝑦 ∈ (𝐴[,]𝐵)(𝑞 < 𝑦 → (𝐹𝑞) < (𝐹𝑦)))
18 simplrr 525 . . . . . . 7 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → 𝑟 ∈ (𝐴[,]𝐵))
195, 17, 18rspcdva 2794 . . . . . 6 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → (𝑞 < 𝑟 → (𝐹𝑞) < (𝐹𝑟)))
201, 19mpd 13 . . . . 5 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → (𝐹𝑞) < (𝐹𝑟))
217eleq1d 2208 . . . . . . 7 (𝑥 = 𝑞 → ((𝐹𝑥) ∈ ℝ ↔ (𝐹𝑞) ∈ ℝ))
22 ivth.8 . . . . . . . . 9 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → (𝐹𝑥) ∈ ℝ)
2322ralrimiva 2505 . . . . . . . 8 (𝜑 → ∀𝑥 ∈ (𝐴[,]𝐵)(𝐹𝑥) ∈ ℝ)
2423ad2antrr 479 . . . . . . 7 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → ∀𝑥 ∈ (𝐴[,]𝐵)(𝐹𝑥) ∈ ℝ)
2521, 24, 16rspcdva 2794 . . . . . 6 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → (𝐹𝑞) ∈ ℝ)
26 fveq2 5421 . . . . . . . 8 (𝑥 = 𝑟 → (𝐹𝑥) = (𝐹𝑟))
2726eleq1d 2208 . . . . . . 7 (𝑥 = 𝑟 → ((𝐹𝑥) ∈ ℝ ↔ (𝐹𝑟) ∈ ℝ))
2827, 24, 18rspcdva 2794 . . . . . 6 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → (𝐹𝑟) ∈ ℝ)
29 ivth.3 . . . . . . 7 (𝜑𝑈 ∈ ℝ)
3029ad2antrr 479 . . . . . 6 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → 𝑈 ∈ ℝ)
31 axltwlin 7832 . . . . . 6 (((𝐹𝑞) ∈ ℝ ∧ (𝐹𝑟) ∈ ℝ ∧ 𝑈 ∈ ℝ) → ((𝐹𝑞) < (𝐹𝑟) → ((𝐹𝑞) < 𝑈𝑈 < (𝐹𝑟))))
3225, 28, 30, 31syl3anc 1216 . . . . 5 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → ((𝐹𝑞) < (𝐹𝑟) → ((𝐹𝑞) < 𝑈𝑈 < (𝐹𝑟))))
3320, 32mpd 13 . . . 4 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → ((𝐹𝑞) < 𝑈𝑈 < (𝐹𝑟)))
3416adantr 274 . . . . . . 7 ((((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) ∧ (𝐹𝑞) < 𝑈) → 𝑞 ∈ (𝐴[,]𝐵))
35 simpr 109 . . . . . . 7 ((((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) ∧ (𝐹𝑞) < 𝑈) → (𝐹𝑞) < 𝑈)
36 fveq2 5421 . . . . . . . . 9 (𝑤 = 𝑞 → (𝐹𝑤) = (𝐹𝑞))
3736breq1d 3939 . . . . . . . 8 (𝑤 = 𝑞 → ((𝐹𝑤) < 𝑈 ↔ (𝐹𝑞) < 𝑈))
38 ivthinclem.l . . . . . . . 8 𝐿 = {𝑤 ∈ (𝐴[,]𝐵) ∣ (𝐹𝑤) < 𝑈}
3937, 38elrab2 2843 . . . . . . 7 (𝑞𝐿 ↔ (𝑞 ∈ (𝐴[,]𝐵) ∧ (𝐹𝑞) < 𝑈))
4034, 35, 39sylanbrc 413 . . . . . 6 ((((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) ∧ (𝐹𝑞) < 𝑈) → 𝑞𝐿)
4140ex 114 . . . . 5 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → ((𝐹𝑞) < 𝑈𝑞𝐿))
4218adantr 274 . . . . . . 7 ((((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) ∧ 𝑈 < (𝐹𝑟)) → 𝑟 ∈ (𝐴[,]𝐵))
43 simpr 109 . . . . . . 7 ((((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) ∧ 𝑈 < (𝐹𝑟)) → 𝑈 < (𝐹𝑟))
44 fveq2 5421 . . . . . . . . 9 (𝑤 = 𝑟 → (𝐹𝑤) = (𝐹𝑟))
4544breq2d 3941 . . . . . . . 8 (𝑤 = 𝑟 → (𝑈 < (𝐹𝑤) ↔ 𝑈 < (𝐹𝑟)))
46 ivthinclem.r . . . . . . . 8 𝑅 = {𝑤 ∈ (𝐴[,]𝐵) ∣ 𝑈 < (𝐹𝑤)}
4745, 46elrab2 2843 . . . . . . 7 (𝑟𝑅 ↔ (𝑟 ∈ (𝐴[,]𝐵) ∧ 𝑈 < (𝐹𝑟)))
4842, 43, 47sylanbrc 413 . . . . . 6 ((((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) ∧ 𝑈 < (𝐹𝑟)) → 𝑟𝑅)
4948ex 114 . . . . 5 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → (𝑈 < (𝐹𝑟) → 𝑟𝑅))
5041, 49orim12d 775 . . . 4 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → (((𝐹𝑞) < 𝑈𝑈 < (𝐹𝑟)) → (𝑞𝐿𝑟𝑅)))
5133, 50mpd 13 . . 3 (((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) ∧ 𝑞 < 𝑟) → (𝑞𝐿𝑟𝑅))
5251ex 114 . 2 ((𝜑 ∧ (𝑞 ∈ (𝐴[,]𝐵) ∧ 𝑟 ∈ (𝐴[,]𝐵))) → (𝑞 < 𝑟 → (𝑞𝐿𝑟𝑅)))
5352ralrimivva 2514 1 (𝜑 → ∀𝑞 ∈ (𝐴[,]𝐵)∀𝑟 ∈ (𝐴[,]𝐵)(𝑞 < 𝑟 → (𝑞𝐿𝑟𝑅)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  wo 697   = wceq 1331  wcel 1480  wral 2416  {crab 2420  wss 3071   class class class wbr 3929  cfv 5123  (class class class)co 5774  cc 7618  cr 7619   < clt 7800  [,]cicc 9674  cnccncf 12726
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 603  ax-in2 604  ax-io 698  ax-5 1423  ax-7 1424  ax-gen 1425  ax-ie1 1469  ax-ie2 1470  ax-8 1482  ax-10 1483  ax-11 1484  ax-i12 1485  ax-bndl 1486  ax-4 1487  ax-13 1491  ax-14 1492  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-ext 2121  ax-sep 4046  ax-pow 4098  ax-pr 4131  ax-un 4355  ax-setind 4452  ax-cnex 7711  ax-resscn 7712  ax-pre-ltwlin 7733
This theorem depends on definitions:  df-bi 116  df-3an 964  df-tru 1334  df-fal 1337  df-nf 1437  df-sb 1736  df-eu 2002  df-mo 2003  df-clab 2126  df-cleq 2132  df-clel 2135  df-nfc 2270  df-ne 2309  df-nel 2404  df-ral 2421  df-rex 2422  df-rab 2425  df-v 2688  df-dif 3073  df-un 3075  df-in 3077  df-ss 3084  df-pw 3512  df-sn 3533  df-pr 3534  df-op 3536  df-uni 3737  df-br 3930  df-opab 3990  df-xp 4545  df-iota 5088  df-fv 5131  df-pnf 7802  df-mnf 7803  df-ltxr 7805
This theorem is referenced by:  ivthinclemex  12789
  Copyright terms: Public domain W3C validator