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

Theorem mulnqprlemfl 7347
Description: Lemma for mulnqpr 7349. The forward subset relationship for the lower cut. (Contributed by Jim Kingdon, 18-Jul-2021.)
Assertion
Ref Expression
mulnqprlemfl ((𝐴Q𝐵Q) → (1st ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩) ⊆ (1st ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)))
Distinct variable groups:   𝐴,𝑙,𝑢   𝐵,𝑙,𝑢

Proof of Theorem mulnqprlemfl
Dummy variable 𝑟 is distinct from all other variables.
StepHypRef Expression
1 mulnqprlemru 7346 . . . . . 6 ((𝐴Q𝐵Q) → (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)) ⊆ (2nd ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩))
2 ltsonq 7170 . . . . . . . . 9 <Q Or Q
3 mulclnq 7148 . . . . . . . . 9 ((𝐴Q𝐵Q) → (𝐴 ·Q 𝐵) ∈ Q)
4 sonr 4207 . . . . . . . . 9 (( <Q Or Q ∧ (𝐴 ·Q 𝐵) ∈ Q) → ¬ (𝐴 ·Q 𝐵) <Q (𝐴 ·Q 𝐵))
52, 3, 4sylancr 408 . . . . . . . 8 ((𝐴Q𝐵Q) → ¬ (𝐴 ·Q 𝐵) <Q (𝐴 ·Q 𝐵))
6 ltrelnq 7137 . . . . . . . . . . . 12 <Q ⊆ (Q × Q)
76brel 4559 . . . . . . . . . . 11 ((𝐴 ·Q 𝐵) <Q (𝐴 ·Q 𝐵) → ((𝐴 ·Q 𝐵) ∈ Q ∧ (𝐴 ·Q 𝐵) ∈ Q))
87simpld 111 . . . . . . . . . 10 ((𝐴 ·Q 𝐵) <Q (𝐴 ·Q 𝐵) → (𝐴 ·Q 𝐵) ∈ Q)
9 elex 2669 . . . . . . . . . 10 ((𝐴 ·Q 𝐵) ∈ Q → (𝐴 ·Q 𝐵) ∈ V)
108, 9syl 14 . . . . . . . . 9 ((𝐴 ·Q 𝐵) <Q (𝐴 ·Q 𝐵) → (𝐴 ·Q 𝐵) ∈ V)
11 breq2 3901 . . . . . . . . 9 (𝑢 = (𝐴 ·Q 𝐵) → ((𝐴 ·Q 𝐵) <Q 𝑢 ↔ (𝐴 ·Q 𝐵) <Q (𝐴 ·Q 𝐵)))
1210, 11elab3 2807 . . . . . . . 8 ((𝐴 ·Q 𝐵) ∈ {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢} ↔ (𝐴 ·Q 𝐵) <Q (𝐴 ·Q 𝐵))
135, 12sylnibr 649 . . . . . . 7 ((𝐴Q𝐵Q) → ¬ (𝐴 ·Q 𝐵) ∈ {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢})
14 ltnqex 7321 . . . . . . . . 9 {𝑙𝑙 <Q (𝐴 ·Q 𝐵)} ∈ V
15 gtnqex 7322 . . . . . . . . 9 {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢} ∈ V
1614, 15op2nd 6011 . . . . . . . 8 (2nd ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩) = {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}
1716eleq2i 2182 . . . . . . 7 ((𝐴 ·Q 𝐵) ∈ (2nd ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩) ↔ (𝐴 ·Q 𝐵) ∈ {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢})
1813, 17sylnibr 649 . . . . . 6 ((𝐴Q𝐵Q) → ¬ (𝐴 ·Q 𝐵) ∈ (2nd ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩))
191, 18ssneldd 3068 . . . . 5 ((𝐴Q𝐵Q) → ¬ (𝐴 ·Q 𝐵) ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)))
2019adantr 272 . . . 4 (((𝐴Q𝐵Q) ∧ 𝑟 ∈ (1st ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩)) → ¬ (𝐴 ·Q 𝐵) ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)))
21 nqprlu 7319 . . . . . . 7 (𝐴Q → ⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ∈ P)
22 nqprlu 7319 . . . . . . 7 (𝐵Q → ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩ ∈ P)
23 mulclpr 7344 . . . . . . 7 ((⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ∈ P ∧ ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩ ∈ P) → (⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩) ∈ P)
2421, 22, 23syl2an 285 . . . . . 6 ((𝐴Q𝐵Q) → (⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩) ∈ P)
25 prop 7247 . . . . . 6 ((⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩) ∈ P → ⟨(1st ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)), (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))⟩ ∈ P)
2624, 25syl 14 . . . . 5 ((𝐴Q𝐵Q) → ⟨(1st ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)), (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))⟩ ∈ P)
27 vex 2661 . . . . . . 7 𝑟 ∈ V
28 breq1 3900 . . . . . . 7 (𝑙 = 𝑟 → (𝑙 <Q (𝐴 ·Q 𝐵) ↔ 𝑟 <Q (𝐴 ·Q 𝐵)))
2914, 15op1st 6010 . . . . . . 7 (1st ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩) = {𝑙𝑙 <Q (𝐴 ·Q 𝐵)}
3027, 28, 29elab2 2803 . . . . . 6 (𝑟 ∈ (1st ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩) ↔ 𝑟 <Q (𝐴 ·Q 𝐵))
3130biimpi 119 . . . . 5 (𝑟 ∈ (1st ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩) → 𝑟 <Q (𝐴 ·Q 𝐵))
32 prloc 7263 . . . . 5 ((⟨(1st ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)), (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))⟩ ∈ P𝑟 <Q (𝐴 ·Q 𝐵)) → (𝑟 ∈ (1st ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)) ∨ (𝐴 ·Q 𝐵) ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))))
3326, 31, 32syl2an 285 . . . 4 (((𝐴Q𝐵Q) ∧ 𝑟 ∈ (1st ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩)) → (𝑟 ∈ (1st ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)) ∨ (𝐴 ·Q 𝐵) ∈ (2nd ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))))
3420, 33ecased 1310 . . 3 (((𝐴Q𝐵Q) ∧ 𝑟 ∈ (1st ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩)) → 𝑟 ∈ (1st ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)))
3534ex 114 . 2 ((𝐴Q𝐵Q) → (𝑟 ∈ (1st ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩) → 𝑟 ∈ (1st ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩))))
3635ssrdv 3071 1 ((𝐴Q𝐵Q) → (1st ‘⟨{𝑙𝑙 <Q (𝐴 ·Q 𝐵)}, {𝑢 ∣ (𝐴 ·Q 𝐵) <Q 𝑢}⟩) ⊆ (1st ‘(⟨{𝑙𝑙 <Q 𝐴}, {𝑢𝐴 <Q 𝑢}⟩ ·P ⟨{𝑙𝑙 <Q 𝐵}, {𝑢𝐵 <Q 𝑢}⟩)))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 103  wo 680  wcel 1463  {cab 2101  Vcvv 2658  wss 3039  cop 3498   class class class wbr 3897   Or wor 4185  cfv 5091  (class class class)co 5740  1st c1st 6002  2nd c2nd 6003  Qcnq 7052   ·Q cmq 7055   <Q cltq 7057  Pcnp 7063   ·P cmp 7066
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 586  ax-in2 587  ax-io 681  ax-5 1406  ax-7 1407  ax-gen 1408  ax-ie1 1452  ax-ie2 1453  ax-8 1465  ax-10 1466  ax-11 1467  ax-i12 1468  ax-bndl 1469  ax-4 1470  ax-13 1474  ax-14 1475  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498  ax-ext 2097  ax-coll 4011  ax-sep 4014  ax-nul 4022  ax-pow 4066  ax-pr 4099  ax-un 4323  ax-setind 4420  ax-iinf 4470
This theorem depends on definitions:  df-bi 116  df-dc 803  df-3or 946  df-3an 947  df-tru 1317  df-fal 1320  df-nf 1420  df-sb 1719  df-eu 1978  df-mo 1979  df-clab 2102  df-cleq 2108  df-clel 2111  df-nfc 2245  df-ne 2284  df-ral 2396  df-rex 2397  df-reu 2398  df-rab 2400  df-v 2660  df-sbc 2881  df-csb 2974  df-dif 3041  df-un 3043  df-in 3045  df-ss 3052  df-nul 3332  df-pw 3480  df-sn 3501  df-pr 3502  df-op 3504  df-uni 3705  df-int 3740  df-iun 3783  df-br 3898  df-opab 3958  df-mpt 3959  df-tr 3995  df-eprel 4179  df-id 4183  df-po 4186  df-iso 4187  df-iord 4256  df-on 4258  df-suc 4261  df-iom 4473  df-xp 4513  df-rel 4514  df-cnv 4515  df-co 4516  df-dm 4517  df-rn 4518  df-res 4519  df-ima 4520  df-iota 5056  df-fun 5093  df-fn 5094  df-f 5095  df-f1 5096  df-fo 5097  df-f1o 5098  df-fv 5099  df-ov 5743  df-oprab 5744  df-mpo 5745  df-1st 6004  df-2nd 6005  df-recs 6168  df-irdg 6233  df-1o 6279  df-2o 6280  df-oadd 6283  df-omul 6284  df-er 6395  df-ec 6397  df-qs 6401  df-ni 7076  df-pli 7077  df-mi 7078  df-lti 7079  df-plpq 7116  df-mpq 7117  df-enq 7119  df-nqqs 7120  df-plqqs 7121  df-mqqs 7122  df-1nqqs 7123  df-rq 7124  df-ltnqqs 7125  df-enq0 7196  df-nq0 7197  df-0nq0 7198  df-plq0 7199  df-mq0 7200  df-inp 7238  df-imp 7241
This theorem is referenced by:  mulnqpr  7349
  Copyright terms: Public domain W3C validator