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

Theorem cdlemg2cex 38852
Description: Any translation is one of our 𝐹 s. TODO: fix comment, move to its own block maybe? Would this help for cdlemf 38824? (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(𝑠 (𝑝 𝑞), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑝 𝑞)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))
Assertion
Ref Expression
cdlemg2cex ((𝐾 ∈ HL ∧ 𝑊𝐻) → (𝐹𝑇 ↔ ∃𝑝𝐴𝑞𝐴𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)))
Distinct variable groups:   𝑡,𝑠,𝑥,𝑦,𝑧,𝐴   𝐵,𝑠,𝑡,𝑥,𝑦,𝑧   𝐷,𝑠,𝑥,𝑦,𝑧   𝑥,𝐸,𝑦,𝑧   𝐻,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝐾,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝑈,𝑠,𝑡,𝑥,𝑦,𝑧   𝑊,𝑠,𝑡,𝑥,𝑦,𝑧   𝑞,𝑝,𝐴   𝐹,𝑝,𝑞   𝐻,𝑝,𝑞   𝐾,𝑝,𝑞   ,𝑝,𝑞   𝑇,𝑝,𝑞   𝑊,𝑝,𝑞,𝑠,𝑡,𝑥,𝑦,𝑧
Allowed substitution hints:   𝐵(𝑞,𝑝)   𝐷(𝑡,𝑞,𝑝)   𝑇(𝑥,𝑦,𝑧,𝑡,𝑠)   𝑈(𝑞,𝑝)   𝐸(𝑡,𝑠,𝑞,𝑝)   𝐹(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐺(𝑥,𝑦,𝑧,𝑡,𝑠,𝑞,𝑝)   (𝑞,𝑝)   (𝑞,𝑝)

Proof of Theorem cdlemg2cex
Dummy variable 𝑓 is distinct from all other variables.
StepHypRef Expression
1 cdlemg2.l . . 3 = (le‘𝐾)
2 cdlemg2.a . . 3 𝐴 = (Atoms‘𝐾)
3 cdlemg2.h . . 3 𝐻 = (LHyp‘𝐾)
4 cdlemg2.t . . 3 𝑇 = ((LTrn‘𝐾)‘𝑊)
51, 2, 3, 4cdlemg1cex 38849 . 2 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (𝐹𝑇 ↔ ∃𝑝𝐴𝑞𝐴𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = (𝑓𝑇 (𝑓𝑝) = 𝑞))))
6 simplll 772 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴𝑞𝐴)) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊)) → 𝐾 ∈ HL)
7 simpllr 773 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴𝑞𝐴)) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊)) → 𝑊𝐻)
8 simplrl 774 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴𝑞𝐴)) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊)) → 𝑝𝐴)
9 simprl 768 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴𝑞𝐴)) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊)) → ¬ 𝑝 𝑊)
10 simplrr 775 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴𝑞𝐴)) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊)) → 𝑞𝐴)
11 simprr 770 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴𝑞𝐴)) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊)) → ¬ 𝑞 𝑊)
12 cdlemg2.b . . . . . . . 8 𝐵 = (Base‘𝐾)
13 cdlemg2.j . . . . . . . 8 = (join‘𝐾)
14 cdlemg2.m . . . . . . . 8 = (meet‘𝐾)
15 cdlemg2ex.u . . . . . . . 8 𝑈 = ((𝑝 𝑞) 𝑊)
16 cdlemg2ex.d . . . . . . . 8 𝐷 = ((𝑡 𝑈) (𝑞 ((𝑝 𝑡) 𝑊)))
17 cdlemg2ex.e . . . . . . . 8 𝐸 = ((𝑝 𝑞) (𝐷 ((𝑠 𝑡) 𝑊)))
18 cdlemg2ex.g . . . . . . . 8 𝐺 = (𝑥𝐵 ↦ if((𝑝𝑞 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑝 𝑞), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑝 𝑞)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))
19 eqid 2736 . . . . . . . 8 (𝑓𝑇 (𝑓𝑝) = 𝑞) = (𝑓𝑇 (𝑓𝑝) = 𝑞)
2012, 1, 13, 14, 2, 3, 15, 16, 17, 18, 4, 19cdlemg1b2 38832 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑞𝐴 ∧ ¬ 𝑞 𝑊)) → (𝑓𝑇 (𝑓𝑝) = 𝑞) = 𝐺)
216, 7, 8, 9, 10, 11, 20syl222anc 1385 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴𝑞𝐴)) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊)) → (𝑓𝑇 (𝑓𝑝) = 𝑞) = 𝐺)
2221eqeq2d 2747 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴𝑞𝐴)) ∧ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊)) → (𝐹 = (𝑓𝑇 (𝑓𝑝) = 𝑞) ↔ 𝐹 = 𝐺))
2322pm5.32da 579 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴𝑞𝐴)) → (((¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊) ∧ 𝐹 = (𝑓𝑇 (𝑓𝑝) = 𝑞)) ↔ ((¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊) ∧ 𝐹 = 𝐺)))
24 df-3an 1088 . . . 4 ((¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = (𝑓𝑇 (𝑓𝑝) = 𝑞)) ↔ ((¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊) ∧ 𝐹 = (𝑓𝑇 (𝑓𝑝) = 𝑞)))
25 df-3an 1088 . . . 4 ((¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺) ↔ ((¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊) ∧ 𝐹 = 𝐺))
2623, 24, 253bitr4g 313 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐴𝑞𝐴)) → ((¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = (𝑓𝑇 (𝑓𝑝) = 𝑞)) ↔ (¬ 𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)))
27262rexbidva 3207 . 2 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (∃𝑝𝐴𝑞𝐴𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = (𝑓𝑇 (𝑓𝑝) = 𝑞)) ↔ ∃𝑝𝐴𝑞𝐴𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)))
285, 27bitrd 278 1 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (𝐹𝑇 ↔ ∃𝑝𝐴𝑞𝐴𝑝 𝑊 ∧ ¬ 𝑞 𝑊𝐹 = 𝐺)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  w3a 1086   = wceq 1540  wcel 2105  wne 2940  wral 3061  wrex 3070  csb 3842  ifcif 4472   class class class wbr 5089  cmpt 5172  cfv 6473  crio 7285  (class class class)co 7329  Basecbs 17001  lecple 17058  joincjn 18118  meetcmee 18119  Atomscatm 37523  HLchlt 37610  LHypclh 38245  LTrncltrn 38362
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2707  ax-rep 5226  ax-sep 5240  ax-nul 5247  ax-pow 5305  ax-pr 5369  ax-un 7642  ax-riotaBAD 37213
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2886  df-ne 2941  df-ral 3062  df-rex 3071  df-rmo 3349  df-reu 3350  df-rab 3404  df-v 3443  df-sbc 3727  df-csb 3843  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-nul 4269  df-if 4473  df-pw 4548  df-sn 4573  df-pr 4575  df-op 4579  df-uni 4852  df-iun 4940  df-iin 4941  df-br 5090  df-opab 5152  df-mpt 5173  df-id 5512  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-iota 6425  df-fun 6475  df-fn 6476  df-f 6477  df-f1 6478  df-fo 6479  df-f1o 6480  df-fv 6481  df-riota 7286  df-ov 7332  df-oprab 7333  df-mpo 7334  df-1st 7891  df-2nd 7892  df-undef 8151  df-map 8680  df-proset 18102  df-poset 18120  df-plt 18137  df-lub 18153  df-glb 18154  df-join 18155  df-meet 18156  df-p0 18232  df-p1 18233  df-lat 18239  df-clat 18306  df-oposet 37436  df-ol 37438  df-oml 37439  df-covers 37526  df-ats 37527  df-atl 37558  df-cvlat 37582  df-hlat 37611  df-llines 37759  df-lplanes 37760  df-lvols 37761  df-lines 37762  df-psubsp 37764  df-pmap 37765  df-padd 38057  df-lhyp 38249  df-laut 38250  df-ldil 38365  df-ltrn 38366  df-trl 38420
This theorem is referenced by:  cdlemg2ce  38853
  Copyright terms: Public domain W3C validator