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

 Description: Lemma for addnqpr 6717. The reverse subset relationship for the upper cut. (Contributed by Jim Kingdon, 19-Aug-2020.)
Assertion
Ref Expression
addnqprlemru ((𝐴Q𝐵Q) → (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)) ⊆ (2nd ‘⟨{𝑙𝑙 <Q (𝐴 +Q 𝐵)}, {𝑢 ∣ (𝐴 +Q 𝐵) <Q 𝑢}⟩))
Distinct variable groups:   𝐴,𝑙,𝑢   𝐵,𝑙,𝑢

Dummy variables 𝑓 𝑔 𝑟 𝑠 𝑡 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nqprlu 6703 . . . . . 6 (𝐴Q → ⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ∈ P)
2 nqprlu 6703 . . . . . 6 (𝐵Q → ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩ ∈ P)
3 df-iplp 6624 . . . . . . 7 +P = (𝑥P, 𝑦P ↦ ⟨{𝑓Q ∣ ∃𝑔QQ (𝑔 ∈ (1st𝑥) ∧ ∈ (1st𝑦) ∧ 𝑓 = (𝑔 +Q ))}, {𝑓Q ∣ ∃𝑔QQ (𝑔 ∈ (2nd𝑥) ∧ ∈ (2nd𝑦) ∧ 𝑓 = (𝑔 +Q ))}⟩)
4 addclnq 6531 . . . . . . 7 ((𝑔QQ) → (𝑔 +Q ) ∈ Q)
53, 4genpelvu 6669 . . . . . 6 ((⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ∈ P ∧ ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩ ∈ P) → (𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)) ↔ ∃𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩)∃𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)𝑟 = (𝑠 +Q 𝑡)))
61, 2, 5syl2an 277 . . . . 5 ((𝐴Q𝐵Q) → (𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)) ↔ ∃𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩)∃𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)𝑟 = (𝑠 +Q 𝑡)))
76biimpa 284 . . . 4 (((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) → ∃𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩)∃𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)𝑟 = (𝑠 +Q 𝑡))
8 vex 2577 . . . . . . . . . . . . 13 𝑠 ∈ V
9 breq2 3796 . . . . . . . . . . . . 13 (𝑢 = 𝑠 → (𝐴 <Q 𝑢𝐴 <Q 𝑠))
10 ltnqex 6705 . . . . . . . . . . . . . 14 {𝑙𝑙 <Q 𝐴} ∈ V
11 gtnqex 6706 . . . . . . . . . . . . . 14 {𝑢𝐴 <Q 𝑢} ∈ V
1210, 11op2nd 5802 . . . . . . . . . . . . 13 (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) = {𝑢𝐴 <Q 𝑢}
138, 9, 12elab2 2713 . . . . . . . . . . . 12 (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ↔ 𝐴 <Q 𝑠)
1413biimpi 117 . . . . . . . . . . 11 (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) → 𝐴 <Q 𝑠)
1514ad2antrl 467 . . . . . . . . . 10 ((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) → 𝐴 <Q 𝑠)
1615adantr 265 . . . . . . . . 9 (((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ 𝑟 = (𝑠 +Q 𝑡)) → 𝐴 <Q 𝑠)
17 vex 2577 . . . . . . . . . . . . 13 𝑡 ∈ V
18 breq2 3796 . . . . . . . . . . . . 13 (𝑢 = 𝑡 → (𝐵 <Q 𝑢𝐵 <Q 𝑡))
19 ltnqex 6705 . . . . . . . . . . . . . 14 {𝑙𝑙 <Q 𝐵} ∈ V
20 gtnqex 6706 . . . . . . . . . . . . . 14 {𝑢𝐵 <Q 𝑢} ∈ V
2119, 20op2nd 5802 . . . . . . . . . . . . 13 (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩) = {𝑢𝐵 <Q 𝑢}
2217, 18, 21elab2 2713 . . . . . . . . . . . 12 (𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩) ↔ 𝐵 <Q 𝑡)
2322biimpi 117 . . . . . . . . . . 11 (𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩) → 𝐵 <Q 𝑡)
2423ad2antll 468 . . . . . . . . . 10 ((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) → 𝐵 <Q 𝑡)
2524adantr 265 . . . . . . . . 9 (((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ 𝑟 = (𝑠 +Q 𝑡)) → 𝐵 <Q 𝑡)
26 ltrelnq 6521 . . . . . . . . . . . 12 <Q ⊆ (Q × Q)
2726brel 4420 . . . . . . . . . . 11 (𝐴 <Q 𝑠 → (𝐴Q𝑠Q))
2816, 27syl 14 . . . . . . . . . 10 (((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ 𝑟 = (𝑠 +Q 𝑡)) → (𝐴Q𝑠Q))
2926brel 4420 . . . . . . . . . . 11 (𝐵 <Q 𝑡 → (𝐵Q𝑡Q))
3025, 29syl 14 . . . . . . . . . 10 (((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ 𝑟 = (𝑠 +Q 𝑡)) → (𝐵Q𝑡Q))
31 lt2addnq 6560 . . . . . . . . . 10 (((𝐴Q𝑠Q) ∧ (𝐵Q𝑡Q)) → ((𝐴 <Q 𝑠𝐵 <Q 𝑡) → (𝐴 +Q 𝐵) <Q (𝑠 +Q 𝑡)))
3228, 30, 31syl2anc 397 . . . . . . . . 9 (((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ 𝑟 = (𝑠 +Q 𝑡)) → ((𝐴 <Q 𝑠𝐵 <Q 𝑡) → (𝐴 +Q 𝐵) <Q (𝑠 +Q 𝑡)))
3316, 25, 32mp2and 417 . . . . . . . 8 (((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ 𝑟 = (𝑠 +Q 𝑡)) → (𝐴 +Q 𝐵) <Q (𝑠 +Q 𝑡))
34 breq2 3796 . . . . . . . . 9 (𝑟 = (𝑠 +Q 𝑡) → ((𝐴 +Q 𝐵) <Q 𝑟 ↔ (𝐴 +Q 𝐵) <Q (𝑠 +Q 𝑡)))
3534adantl 266 . . . . . . . 8 (((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ 𝑟 = (𝑠 +Q 𝑡)) → ((𝐴 +Q 𝐵) <Q 𝑟 ↔ (𝐴 +Q 𝐵) <Q (𝑠 +Q 𝑡)))
3633, 35mpbird 160 . . . . . . 7 (((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ 𝑟 = (𝑠 +Q 𝑡)) → (𝐴 +Q 𝐵) <Q 𝑟)
37 vex 2577 . . . . . . . 8 𝑟 ∈ V
38 breq2 3796 . . . . . . . 8 (𝑢 = 𝑟 → ((𝐴 +Q 𝐵) <Q 𝑢 ↔ (𝐴 +Q 𝐵) <Q 𝑟))
39 ltnqex 6705 . . . . . . . . 9 {𝑙𝑙 <Q (𝐴 +Q 𝐵)} ∈ V
40 gtnqex 6706 . . . . . . . . 9 {𝑢 ∣ (𝐴 +Q 𝐵) <Q 𝑢} ∈ V
4139, 40op2nd 5802 . . . . . . . 8 (2nd ‘⟨{𝑙𝑙 <Q (𝐴 +Q 𝐵)}, {𝑢 ∣ (𝐴 +Q 𝐵) <Q 𝑢}⟩) = {𝑢 ∣ (𝐴 +Q 𝐵) <Q 𝑢}
4237, 38, 41elab2 2713 . . . . . . 7 (𝑟 ∈ (2nd ‘⟨{𝑙𝑙 <Q (𝐴 +Q 𝐵)}, {𝑢 ∣ (𝐴 +Q 𝐵) <Q 𝑢}⟩) ↔ (𝐴 +Q 𝐵) <Q 𝑟)
4336, 42sylibr 141 . . . . . 6 (((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ 𝑟 = (𝑠 +Q 𝑡)) → 𝑟 ∈ (2nd ‘⟨{𝑙𝑙 <Q (𝐴 +Q 𝐵)}, {𝑢 ∣ (𝐴 +Q 𝐵) <Q 𝑢}⟩))
4443ex 112 . . . . 5 ((((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) ∧ (𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩) ∧ 𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) → (𝑟 = (𝑠 +Q 𝑡) → 𝑟 ∈ (2nd ‘⟨{𝑙𝑙 <Q (𝐴 +Q 𝐵)}, {𝑢 ∣ (𝐴 +Q 𝐵) <Q 𝑢}⟩)))
4544rexlimdvva 2457 . . . 4 (((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) → (∃𝑠 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩)∃𝑡 ∈ (2nd ‘⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)𝑟 = (𝑠 +Q 𝑡) → 𝑟 ∈ (2nd ‘⟨{𝑙𝑙 <Q (𝐴 +Q 𝐵)}, {𝑢 ∣ (𝐴 +Q 𝐵) <Q 𝑢}⟩)))
467, 45mpd 13 . . 3 (((𝐴Q𝐵Q) ∧ 𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))) → 𝑟 ∈ (2nd ‘⟨{𝑙𝑙 <Q (𝐴 +Q 𝐵)}, {𝑢 ∣ (𝐴 +Q 𝐵) <Q 𝑢}⟩))
4746ex 112 . 2 ((𝐴Q𝐵Q) → (𝑟 ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)) → 𝑟 ∈ (2nd ‘⟨{𝑙𝑙 <Q (𝐴 +Q 𝐵)}, {𝑢 ∣ (𝐴 +Q 𝐵) <Q 𝑢}⟩)))
4847ssrdv 2979 1 ((𝐴Q𝐵Q) → (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ +P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)) ⊆ (2nd ‘⟨{𝑙𝑙 <Q (𝐴 +Q 𝐵)}, {𝑢 ∣ (𝐴 +Q 𝐵) <Q 𝑢}⟩))
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 101   ↔ wb 102   = wceq 1259   ∈ wcel 1409  {cab 2042  ∃wrex 2324   ⊆ wss 2945  ⟨cop 3406   class class class wbr 3792  ‘cfv 4930  (class class class)co 5540  2nd c2nd 5794  Qcnq 6436   +Q cplq 6438
 Copyright terms: Public domain W3C validator