Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  cdlemg2ce Structured version   Visualization version   GIF version

Theorem cdlemg2ce 38911
Description: Utility theorem to eliminate p,q when converting theorems with explicit f. TODO: fix comment. (Contributed by NM, 22-Apr-2013.)
Hypotheses
Ref Expression
cdlemg2.b 𝐵 = (Base‘𝐾)
cdlemg2.l = (le‘𝐾)
cdlemg2.j = (join‘𝐾)
cdlemg2.m = (meet‘𝐾)
cdlemg2.a 𝐴 = (Atoms‘𝐾)
cdlemg2.h 𝐻 = (LHyp‘𝐾)
cdlemg2.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemg2ex.u 𝑈 = ((𝑝 𝑞) 𝑊)
cdlemg2ex.d 𝐷 = ((𝑡 𝑈) (𝑞 ((𝑝 𝑡) 𝑊)))
cdlemg2ex.e 𝐸 = ((𝑝 𝑞) (𝐷 ((𝑠 𝑡) 𝑊)))
cdlemg2ex.g 𝐺 = (𝑥𝐵 ↦ if((𝑝𝑞 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑝 𝑞), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑝 𝑞)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))
cdlemg2ce.p (𝐹 = 𝐺 → (𝜓𝜒))
cdlemg2ce.c ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑞𝐴 ∧ ¬ 𝑞 𝑊)) ∧ 𝜑) → 𝜒)
Assertion
Ref Expression
cdlemg2ce (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) → 𝜓)
Distinct variable groups:   𝑡,𝑠,𝑥,𝑦,𝑧,𝐴   𝐵,𝑠,𝑡,𝑥,𝑦,𝑧   𝐷,𝑠,𝑥,𝑦,𝑧   𝑥,𝐸,𝑦,𝑧   𝐻,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝐾,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝑈,𝑠,𝑡,𝑥,𝑦,𝑧   𝑊,𝑠,𝑡,𝑥,𝑦,𝑧   𝑞,𝑝,𝐴   𝐹,𝑝,𝑞   𝐻,𝑝,𝑞   𝐾,𝑝,𝑞   ,𝑝,𝑞   𝑇,𝑝,𝑞   𝑊,𝑝,𝑞,𝑠,𝑡,𝑥,𝑦,𝑧   𝜑,𝑝,𝑞   𝜓,𝑝,𝑞
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑧,𝑡,𝑠)   𝜓(𝑥,𝑦,𝑧,𝑡,𝑠)   𝜒(𝑥,𝑦,𝑧,𝑡,𝑠,𝑞,𝑝)   𝐵(𝑞,𝑝)   𝐷(𝑡,𝑞,𝑝)   𝑇(𝑥,𝑦,𝑧,𝑡,𝑠)   𝑈(𝑞,𝑝)   𝐸(𝑡,𝑠,𝑞,𝑝)   𝐹(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐺(𝑥,𝑦,𝑧,𝑡,𝑠,𝑞,𝑝)   (𝑞,𝑝)   (𝑞,𝑝)

Proof of Theorem cdlemg2ce
StepHypRef Expression
1 simp2 1137 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) → 𝐹𝑇)
2 cdlemg2.b . . . . 5 𝐵 = (Base‘𝐾)
3 cdlemg2.l . . . . 5 = (le‘𝐾)
4 cdlemg2.j . . . . 5 = (join‘𝐾)
5 cdlemg2.m . . . . 5 = (meet‘𝐾)
6 cdlemg2.a . . . . 5 𝐴 = (Atoms‘𝐾)
7 cdlemg2.h . . . . 5 𝐻 = (LHyp‘𝐾)
8 cdlemg2.t . . . . 5 𝑇 = ((LTrn‘𝐾)‘𝑊)
9 cdlemg2ex.u . . . . 5 𝑈 = ((𝑝 𝑞) 𝑊)
10 cdlemg2ex.d . . . . 5 𝐷 = ((𝑡 𝑈) (𝑞 ((𝑝 𝑡) 𝑊)))
11 cdlemg2ex.e . . . . 5 𝐸 = ((𝑝 𝑞) (𝐷 ((𝑠 𝑡) 𝑊)))
12 cdlemg2ex.g . . . . 5 𝐺 = (𝑥𝐵 ↦ if((𝑝𝑞 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑝 𝑞), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑝 𝑞)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))
132, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12cdlemg2cex 38910 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (𝐹𝑇 ↔ ∃𝑝𝐴𝑞𝐴𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)))
14133ad2ant1 1133 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) → (𝐹𝑇 ↔ ∃𝑝𝐴𝑞𝐴𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)))
151, 14mpbid 231 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) → ∃𝑝𝐴𝑞𝐴𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺))
16 simp11 1203 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
17 simp2l 1199 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → 𝑝𝐴)
18 simp31 1209 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → ¬ 𝑝 𝑊)
1917, 18jca 513 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → (𝑝𝐴 ∧ ¬ 𝑝 𝑊))
20 simp2r 1200 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → 𝑞𝐴)
21 simp32 1210 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → ¬ 𝑞 𝑊)
2220, 21jca 513 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → (𝑞𝐴 ∧ ¬ 𝑞 𝑊))
23 simp13 1205 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → 𝜑)
24 cdlemg2ce.c . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑞𝐴 ∧ ¬ 𝑞 𝑊)) ∧ 𝜑) → 𝜒)
2516, 19, 22, 23, 24syl31anc 1373 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → 𝜒)
26 simp33 1211 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → 𝐹 = 𝐺)
27 cdlemg2ce.p . . . . . 6 (𝐹 = 𝐺 → (𝜓𝜒))
2826, 27syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → (𝜓𝜒))
2925, 28mpbird 257 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) ∧ (𝑝𝐴𝑞𝐴) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)) → 𝜓)
30293exp 1119 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) → ((𝑝𝐴𝑞𝐴) → ((¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺) → 𝜓)))
3130rexlimdvv 3201 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) → (∃𝑝𝐴𝑞𝐴𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺) → 𝜓))
3215, 31mpd 15 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝜑) → 𝜓)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 397  w3a 1087   = wceq 1541  wcel 2106  wne 2941  wral 3062  wrex 3071  csb 3846  ifcif 4477   class class class wbr 5096  cmpt 5179  cfv 6483  crio 7296  (class class class)co 7341  Basecbs 17009  lecple 17066  joincjn 18126  meetcmee 18127  Atomscatm 37581  HLchlt 37668  LHypclh 38303  LTrncltrn 38420
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2708  ax-rep 5233  ax-sep 5247  ax-nul 5254  ax-pow 5312  ax-pr 5376  ax-un 7654  ax-riotaBAD 37271
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-ral 3063  df-rex 3072  df-rmo 3350  df-reu 3351  df-rab 3405  df-v 3444  df-sbc 3731  df-csb 3847  df-dif 3904  df-un 3906  df-in 3908  df-ss 3918  df-nul 4274  df-if 4478  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4857  df-iun 4947  df-iin 4948  df-br 5097  df-opab 5159  df-mpt 5180  df-id 5522  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-iota 6435  df-fun 6485  df-fn 6486  df-f 6487  df-f1 6488  df-fo 6489  df-f1o 6490  df-fv 6491  df-riota 7297  df-ov 7344  df-oprab 7345  df-mpo 7346  df-1st 7903  df-2nd 7904  df-undef 8163  df-map 8692  df-proset 18110  df-poset 18128  df-plt 18145  df-lub 18161  df-glb 18162  df-join 18163  df-meet 18164  df-p0 18240  df-p1 18241  df-lat 18247  df-clat 18314  df-oposet 37494  df-ol 37496  df-oml 37497  df-covers 37584  df-ats 37585  df-atl 37616  df-cvlat 37640  df-hlat 37669  df-llines 37817  df-lplanes 37818  df-lvols 37819  df-lines 37820  df-psubsp 37822  df-pmap 37823  df-padd 38115  df-lhyp 38307  df-laut 38308  df-ldil 38423  df-ltrn 38424  df-trl 38478
This theorem is referenced by:  cdlemg2jlemOLDN  38912  cdlemg2fvlem  38913  cdlemg2klem  38914
  Copyright terms: Public domain W3C validator