Theorem cdlemg2l 40387

Description: TODO: FIX COMMENT. (Contributed by NM, 23-Apr-2013.)

Hypotheses

Ref	Expression
cdlemg2inv.h	⊢ 𝐻 = (LHyp‘𝐾)
cdlemg2inv.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemg2j.l	⊢ ≤ = (le‘𝐾)
cdlemg2j.j	⊢ ∨ = (join‘𝐾)
cdlemg2j.a	⊢ 𝐴 = (Atoms‘𝐾)
cdlemg2j.m	⊢ ∧ = (meet‘𝐾)
cdlemg2j.u	⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)

Assertion

Ref	Expression
cdlemg2l	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝐹‘(𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑄))) = ((𝐹‘(𝐺‘𝑃)) ∨ 𝑈))

Proof of Theorem cdlemg2l

Step	Hyp	Ref	Expression
1		cdlemg2inv.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
2		cdlemg2inv.t	. . . . 5 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
3		cdlemg2j.l	. . . . 5 ⊢ ≤ = (le‘𝐾)
4		cdlemg2j.j	. . . . 5 ⊢ ∨ = (join‘𝐾)
5		cdlemg2j.a	. . . . 5 ⊢ 𝐴 = (Atoms‘𝐾)
6		cdlemg2j.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
7		cdlemg2j.u	. . . . 5 ⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
8	1, 2, 3, 4, 5, 6, 7	cdlemg2k 40385	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ 𝐺 ∈ 𝑇) → ((𝐺‘𝑃) ∨ (𝐺‘𝑄)) = ((𝐺‘𝑃) ∨ 𝑈))
9	8	3adant3l 1177	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝐺‘𝑃) ∨ (𝐺‘𝑄)) = ((𝐺‘𝑃) ∨ 𝑈))
10	9	fveq2d 6907	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝐹‘((𝐺‘𝑃) ∨ (𝐺‘𝑄))) = (𝐹‘((𝐺‘𝑃) ∨ 𝑈)))
11		simp1 1133	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
12		simp3l 1198	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → 𝐹 ∈ 𝑇)
13		simp3r 1199	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → 𝐺 ∈ 𝑇)
14		simp2l 1196	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
15	3, 5, 1, 2	ltrnel 39923	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐺‘𝑃) ∈ 𝐴 ∧ ¬ (𝐺‘𝑃) ≤ 𝑊))
16	11, 13, 14, 15	syl3anc 1368	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝐺‘𝑃) ∈ 𝐴 ∧ ¬ (𝐺‘𝑃) ≤ 𝑊))
17	16	simpld 493	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝐺‘𝑃) ∈ 𝐴)
18		eqid 2729	. . . . 5 ⊢ (Base‘𝐾) = (Base‘𝐾)
19	18, 5	atbase 39072	. . . 4 ⊢ ((𝐺‘𝑃) ∈ 𝐴 → (𝐺‘𝑃) ∈ (Base‘𝐾))
20	17, 19	syl 17	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝐺‘𝑃) ∈ (Base‘𝐾))
21		simp2r 1197	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
22	3, 5, 1, 2	ltrnel 39923	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → ((𝐺‘𝑄) ∈ 𝐴 ∧ ¬ (𝐺‘𝑄) ≤ 𝑊))
23	11, 13, 21, 22	syl3anc 1368	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝐺‘𝑄) ∈ 𝐴 ∧ ¬ (𝐺‘𝑄) ≤ 𝑊))
24	23	simpld 493	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝐺‘𝑄) ∈ 𝐴)
25	18, 5	atbase 39072	. . . 4 ⊢ ((𝐺‘𝑄) ∈ 𝐴 → (𝐺‘𝑄) ∈ (Base‘𝐾))
26	24, 25	syl 17	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝐺‘𝑄) ∈ (Base‘𝐾))
27	18, 4, 1, 2	ltrnj 39916	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝐺‘𝑃) ∈ (Base‘𝐾) ∧ (𝐺‘𝑄) ∈ (Base‘𝐾))) → (𝐹‘((𝐺‘𝑃) ∨ (𝐺‘𝑄))) = ((𝐹‘(𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑄))))
28	11, 12, 20, 26, 27	syl112anc 1371	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝐹‘((𝐺‘𝑃) ∨ (𝐺‘𝑄))) = ((𝐹‘(𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑄))))
29	1, 2, 3, 4, 5, 6, 7	cdlemg2fv2 40384	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ ((𝐺‘𝑃) ∈ 𝐴 ∧ ¬ (𝐺‘𝑃) ≤ 𝑊)) ∧ 𝐹 ∈ 𝑇) → (𝐹‘((𝐺‘𝑃) ∨ 𝑈)) = ((𝐹‘(𝐺‘𝑃)) ∨ 𝑈))
30	11, 14, 21, 16, 12, 29	syl131anc 1380	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝐹‘((𝐺‘𝑃) ∨ 𝑈)) = ((𝐹‘(𝐺‘𝑃)) ∨ 𝑈))
31	10, 28, 30	3eqtr3d 2777	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝐹‘(𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑄))) = ((𝐹‘(𝐺‘𝑃)) ∨ 𝑈))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 394   ∧ w3a 1084   = wceq 1534   ∈ wcel 2100   class class class wbr 5154  ‘cfv 6556  (class class class)co 7427  Basecbs 17226  lecple 17286  joincjn 18349  meetcmee 18350  Atomscatm 39046  HLchlt 39133  LHypclh 39768  LTrncltrn 39885

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2102  ax-9 2110  ax-10 2133  ax-11 2150  ax-12 2170  ax-ext 2700  ax-rep 5291  ax-sep 5305  ax-nul 5312  ax-pow 5371  ax-pr 5435  ax-un 7748  ax-riotaBAD 38736

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2062  df-mo 2532  df-eu 2561  df-clab 2707  df-cleq 2721  df-clel 2806  df-nfc 2881  df-ne 2934  df-ral 3055  df-rex 3064  df-rmo 3373  df-reu 3374  df-rab 3429  df-v 3474  df-sbc 3788  df-csb 3904  df-dif 3961  df-un 3963  df-in 3965  df-ss 3975  df-nul 4334  df-if 4535  df-pw 4610  df-sn 4635  df-pr 4637  df-op 4641  df-uni 4917  df-iun 5006  df-iin 5007  df-br 5155  df-opab 5217  df-mpt 5238  df-id 5582  df-xp 5690  df-rel 5691  df-cnv 5692  df-co 5693  df-dm 5694  df-rn 5695  df-res 5696  df-ima 5697  df-iota 6508  df-fun 6558  df-fn 6559  df-f 6560  df-f1 6561  df-fo 6562  df-f1o 6563  df-fv 6564  df-riota 7383  df-ov 7430  df-oprab 7431  df-mpo 7432  df-1st 8008  df-2nd 8009  df-undef 8292  df-map 8861  df-proset 18333  df-poset 18351  df-plt 18368  df-lub 18384  df-glb 18385  df-join 18386  df-meet 18387  df-p0 18463  df-p1 18464  df-lat 18470  df-clat 18537  df-oposet 38959  df-ol 38961  df-oml 38962  df-covers 39049  df-ats 39050  df-atl 39081  df-cvlat 39105  df-hlat 39134  df-llines 39282  df-lplanes 39283  df-lvols 39284  df-lines 39285  df-psubsp 39287  df-pmap 39288  df-padd 39580  df-lhyp 39772  df-laut 39773  df-ldil 39888  df-ltrn 39889  df-trl 39943

This theorem is referenced by:  cdlemg9a  40416  cdlemg9b  40417  cdlemg12b  40428