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

Theorem ltpopr 7371
Description: Positive real 'less than' is a partial ordering. Remark ("< is transitive and irreflexive") preceding Proposition 11.2.3 of [HoTT], p. (varies). Lemma for ltsopr 7372. (Contributed by Jim Kingdon, 15-Dec-2019.)
Assertion
Ref Expression
ltpopr <P Po P

Proof of Theorem ltpopr
Dummy variables 𝑟 𝑞 𝑠 𝑡 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 prop 7251 . . . . . . . 8 (𝑠P → ⟨(1st𝑠), (2nd𝑠)⟩ ∈ P)
2 prdisj 7268 . . . . . . . 8 ((⟨(1st𝑠), (2nd𝑠)⟩ ∈ P𝑞Q) → ¬ (𝑞 ∈ (1st𝑠) ∧ 𝑞 ∈ (2nd𝑠)))
31, 2sylan 281 . . . . . . 7 ((𝑠P𝑞Q) → ¬ (𝑞 ∈ (1st𝑠) ∧ 𝑞 ∈ (2nd𝑠)))
4 ancom 264 . . . . . . 7 ((𝑞 ∈ (1st𝑠) ∧ 𝑞 ∈ (2nd𝑠)) ↔ (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑠)))
53, 4sylnib 650 . . . . . 6 ((𝑠P𝑞Q) → ¬ (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑠)))
65nrexdv 2502 . . . . 5 (𝑠P → ¬ ∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑠)))
7 ltdfpr 7282 . . . . . 6 ((𝑠P𝑠P) → (𝑠<P 𝑠 ↔ ∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑠))))
87anidms 394 . . . . 5 (𝑠P → (𝑠<P 𝑠 ↔ ∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑠))))
96, 8mtbird 647 . . . 4 (𝑠P → ¬ 𝑠<P 𝑠)
109adantl 275 . . 3 ((⊤ ∧ 𝑠P) → ¬ 𝑠<P 𝑠)
11 ltdfpr 7282 . . . . . . . . . . 11 ((𝑠P𝑡P) → (𝑠<P 𝑡 ↔ ∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡))))
12113adant3 986 . . . . . . . . . 10 ((𝑠P𝑡P𝑢P) → (𝑠<P 𝑡 ↔ ∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡))))
13 ltdfpr 7282 . . . . . . . . . . 11 ((𝑡P𝑢P) → (𝑡<P 𝑢 ↔ ∃𝑟Q (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢))))
14133adant1 984 . . . . . . . . . 10 ((𝑠P𝑡P𝑢P) → (𝑡<P 𝑢 ↔ ∃𝑟Q (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢))))
1512, 14anbi12d 464 . . . . . . . . 9 ((𝑠P𝑡P𝑢P) → ((𝑠<P 𝑡𝑡<P 𝑢) ↔ (∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ ∃𝑟Q (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢)))))
16 reeanv 2577 . . . . . . . . 9 (∃𝑞Q𝑟Q ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢))) ↔ (∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ ∃𝑟Q (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢))))
1715, 16syl6bbr 197 . . . . . . . 8 ((𝑠P𝑡P𝑢P) → ((𝑠<P 𝑡𝑡<P 𝑢) ↔ ∃𝑞Q𝑟Q ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢)))))
1817biimpa 294 . . . . . . 7 (((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) → ∃𝑞Q𝑟Q ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢))))
19 simprll 511 . . . . . . . . . . 11 ((((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) ∧ ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢)))) → 𝑞 ∈ (2nd𝑠))
20 prop 7251 . . . . . . . . . . . . . . . . . 18 (𝑡P → ⟨(1st𝑡), (2nd𝑡)⟩ ∈ P)
21 prltlu 7263 . . . . . . . . . . . . . . . . . 18 ((⟨(1st𝑡), (2nd𝑡)⟩ ∈ P𝑞 ∈ (1st𝑡) ∧ 𝑟 ∈ (2nd𝑡)) → 𝑞 <Q 𝑟)
2220, 21syl3an1 1234 . . . . . . . . . . . . . . . . 17 ((𝑡P𝑞 ∈ (1st𝑡) ∧ 𝑟 ∈ (2nd𝑡)) → 𝑞 <Q 𝑟)
23223adant3r 1198 . . . . . . . . . . . . . . . 16 ((𝑡P𝑞 ∈ (1st𝑡) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢))) → 𝑞 <Q 𝑟)
24233adant2l 1195 . . . . . . . . . . . . . . 15 ((𝑡P ∧ (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢))) → 𝑞 <Q 𝑟)
25243expb 1167 . . . . . . . . . . . . . 14 ((𝑡P ∧ ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢)))) → 𝑞 <Q 𝑟)
26253ad2antl2 1129 . . . . . . . . . . . . 13 (((𝑠P𝑡P𝑢P) ∧ ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢)))) → 𝑞 <Q 𝑟)
2726adantlr 468 . . . . . . . . . . . 12 ((((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) ∧ ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢)))) → 𝑞 <Q 𝑟)
28 prop 7251 . . . . . . . . . . . . . . . . 17 (𝑢P → ⟨(1st𝑢), (2nd𝑢)⟩ ∈ P)
29 prcdnql 7260 . . . . . . . . . . . . . . . . 17 ((⟨(1st𝑢), (2nd𝑢)⟩ ∈ P𝑟 ∈ (1st𝑢)) → (𝑞 <Q 𝑟𝑞 ∈ (1st𝑢)))
3028, 29sylan 281 . . . . . . . . . . . . . . . 16 ((𝑢P𝑟 ∈ (1st𝑢)) → (𝑞 <Q 𝑟𝑞 ∈ (1st𝑢)))
3130adantrl 469 . . . . . . . . . . . . . . 15 ((𝑢P ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢))) → (𝑞 <Q 𝑟𝑞 ∈ (1st𝑢)))
3231adantrl 469 . . . . . . . . . . . . . 14 ((𝑢P ∧ ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢)))) → (𝑞 <Q 𝑟𝑞 ∈ (1st𝑢)))
33323ad2antl3 1130 . . . . . . . . . . . . 13 (((𝑠P𝑡P𝑢P) ∧ ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢)))) → (𝑞 <Q 𝑟𝑞 ∈ (1st𝑢)))
3433adantlr 468 . . . . . . . . . . . 12 ((((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) ∧ ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢)))) → (𝑞 <Q 𝑟𝑞 ∈ (1st𝑢)))
3527, 34mpd 13 . . . . . . . . . . 11 ((((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) ∧ ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢)))) → 𝑞 ∈ (1st𝑢))
3619, 35jca 304 . . . . . . . . . 10 ((((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) ∧ ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢)))) → (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑢)))
3736ex 114 . . . . . . . . 9 (((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) → (((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢))) → (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑢))))
3837rexlimdvw 2530 . . . . . . . 8 (((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) → (∃𝑟Q ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢))) → (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑢))))
3938reximdv 2510 . . . . . . 7 (((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) → (∃𝑞Q𝑟Q ((𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑡)) ∧ (𝑟 ∈ (2nd𝑡) ∧ 𝑟 ∈ (1st𝑢))) → ∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑢))))
4018, 39mpd 13 . . . . . 6 (((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) → ∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑢)))
41 ltdfpr 7282 . . . . . . . . 9 ((𝑠P𝑢P) → (𝑠<P 𝑢 ↔ ∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑢))))
42413adant2 985 . . . . . . . 8 ((𝑠P𝑡P𝑢P) → (𝑠<P 𝑢 ↔ ∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑢))))
4342biimprd 157 . . . . . . 7 ((𝑠P𝑡P𝑢P) → (∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑢)) → 𝑠<P 𝑢))
4443adantr 274 . . . . . 6 (((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) → (∃𝑞Q (𝑞 ∈ (2nd𝑠) ∧ 𝑞 ∈ (1st𝑢)) → 𝑠<P 𝑢))
4540, 44mpd 13 . . . . 5 (((𝑠P𝑡P𝑢P) ∧ (𝑠<P 𝑡𝑡<P 𝑢)) → 𝑠<P 𝑢)
4645ex 114 . . . 4 ((𝑠P𝑡P𝑢P) → ((𝑠<P 𝑡𝑡<P 𝑢) → 𝑠<P 𝑢))
4746adantl 275 . . 3 ((⊤ ∧ (𝑠P𝑡P𝑢P)) → ((𝑠<P 𝑡𝑡<P 𝑢) → 𝑠<P 𝑢))
4810, 47ispod 4196 . 2 (⊤ → <P Po P)
4948mptru 1325 1 <P Po P
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 103  wb 104  w3a 947  wtru 1317  wcel 1465  wrex 2394  cop 3500   class class class wbr 3899   Po wpo 4186  cfv 5093  1st c1st 6004  2nd c2nd 6005  Qcnq 7056   <Q cltq 7061  Pcnp 7067  <P cltp 7071
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 588  ax-in2 589  ax-io 683  ax-5 1408  ax-7 1409  ax-gen 1410  ax-ie1 1454  ax-ie2 1455  ax-8 1467  ax-10 1468  ax-11 1469  ax-i12 1470  ax-bndl 1471  ax-4 1472  ax-13 1476  ax-14 1477  ax-17 1491  ax-i9 1495  ax-ial 1499  ax-i5r 1500  ax-ext 2099  ax-coll 4013  ax-sep 4016  ax-nul 4024  ax-pow 4068  ax-pr 4101  ax-un 4325  ax-setind 4422  ax-iinf 4472
This theorem depends on definitions:  df-bi 116  df-dc 805  df-3or 948  df-3an 949  df-tru 1319  df-fal 1322  df-nf 1422  df-sb 1721  df-eu 1980  df-mo 1981  df-clab 2104  df-cleq 2110  df-clel 2113  df-nfc 2247  df-ne 2286  df-ral 2398  df-rex 2399  df-reu 2400  df-rab 2402  df-v 2662  df-sbc 2883  df-csb 2976  df-dif 3043  df-un 3045  df-in 3047  df-ss 3054  df-nul 3334  df-pw 3482  df-sn 3503  df-pr 3504  df-op 3506  df-uni 3707  df-int 3742  df-iun 3785  df-br 3900  df-opab 3960  df-mpt 3961  df-tr 3997  df-eprel 4181  df-id 4185  df-po 4188  df-iso 4189  df-iord 4258  df-on 4260  df-suc 4263  df-iom 4475  df-xp 4515  df-rel 4516  df-cnv 4517  df-co 4518  df-dm 4519  df-rn 4520  df-res 4521  df-ima 4522  df-iota 5058  df-fun 5095  df-fn 5096  df-f 5097  df-f1 5098  df-fo 5099  df-f1o 5100  df-fv 5101  df-ov 5745  df-oprab 5746  df-mpo 5747  df-1st 6006  df-2nd 6007  df-recs 6170  df-irdg 6235  df-oadd 6285  df-omul 6286  df-er 6397  df-ec 6399  df-qs 6403  df-ni 7080  df-mi 7082  df-lti 7083  df-enq 7123  df-nqqs 7124  df-ltnqqs 7129  df-inp 7242  df-iltp 7246
This theorem is referenced by:  ltsopr  7372
  Copyright terms: Public domain W3C validator