Theorem cdlemg4b1 38269

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

Hypotheses

Ref	Expression
cdlemg4.l	⊢ ≤ = (le‘𝐾)
cdlemg4.a	⊢ 𝐴 = (Atoms‘𝐾)
cdlemg4.h	⊢ 𝐻 = (LHyp‘𝐾)
cdlemg4.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemg4.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemg4.j	⊢ ∨ = (join‘𝐾)
cdlemg4b.v	⊢ 𝑉 = (𝑅‘𝐺)

Assertion

Ref	Expression
cdlemg4b1	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝐺 ∈ 𝑇) → (𝑃 ∨ 𝑉) = (𝑃 ∨ (𝐺‘𝑃)))

Proof of Theorem cdlemg4b1

Step	Hyp	Ref	Expression
1		cdlemg4b.v	. . . 4 ⊢ 𝑉 = (𝑅‘𝐺)
2		cdlemg4.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
3		cdlemg4.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
4		eqid 2739	. . . . . 6 ⊢ (meet‘𝐾) = (meet‘𝐾)
5		cdlemg4.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
6		cdlemg4.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
7		cdlemg4.t	. . . . . 6 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
8		cdlemg4.r	. . . . . 6 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
9	2, 3, 4, 5, 6, 7, 8	trlval2 37823	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘𝐺) = ((𝑃 ∨ (𝐺‘𝑃))(meet‘𝐾)𝑊))
10	9	3com23 1127	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐺) = ((𝑃 ∨ (𝐺‘𝑃))(meet‘𝐾)𝑊))
11	1, 10	syl5eq 2786	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝐺 ∈ 𝑇) → 𝑉 = ((𝑃 ∨ (𝐺‘𝑃))(meet‘𝐾)𝑊))
12	11	oveq2d 7189	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝐺 ∈ 𝑇) → (𝑃 ∨ 𝑉) = (𝑃 ∨ ((𝑃 ∨ (𝐺‘𝑃))(meet‘𝐾)𝑊)))
13		simp1 1137	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝐺 ∈ 𝑇) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
14		simp2 1138	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝐺 ∈ 𝑇) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
15	2, 5, 6, 7	ltrnel 37799	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐺‘𝑃) ∈ 𝐴 ∧ ¬ (𝐺‘𝑃) ≤ 𝑊))
16	15	simpld 498	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐺‘𝑃) ∈ 𝐴)
17	16	3com23 1127	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝐺 ∈ 𝑇) → (𝐺‘𝑃) ∈ 𝐴)
18		eqid 2739	. . . 4 ⊢ ((𝑃 ∨ (𝐺‘𝑃))(meet‘𝐾)𝑊) = ((𝑃 ∨ (𝐺‘𝑃))(meet‘𝐾)𝑊)
19	2, 3, 4, 5, 6, 18	cdleme0cp 37874	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐺‘𝑃) ∈ 𝐴)) → (𝑃 ∨ ((𝑃 ∨ (𝐺‘𝑃))(meet‘𝐾)𝑊)) = (𝑃 ∨ (𝐺‘𝑃)))
20	13, 14, 17, 19	syl12anc 836	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝐺 ∈ 𝑇) → (𝑃 ∨ ((𝑃 ∨ (𝐺‘𝑃))(meet‘𝐾)𝑊)) = (𝑃 ∨ (𝐺‘𝑃)))
21	12, 20	eqtrd 2774	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝐺 ∈ 𝑇) → (𝑃 ∨ 𝑉) = (𝑃 ∨ (𝐺‘𝑃)))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   ∧ w3a 1088   = wceq 1542   ∈ wcel 2114   class class class wbr 5031  ‘cfv 6340  (class class class)co 7173  lecple 16678  joincjn 17673  meetcmee 17674  Atomscatm 36923  HLchlt 37010  LHypclh 37644  LTrncltrn 37761  trLctrl 37818

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2020  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2162  ax-12 2179  ax-ext 2711  ax-rep 5155  ax-sep 5168  ax-nul 5175  ax-pow 5233  ax-pr 5297  ax-un 7482

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2075  df-mo 2541  df-eu 2571  df-clab 2718  df-cleq 2731  df-clel 2812  df-nfc 2882  df-ne 2936  df-ral 3059  df-rex 3060  df-reu 3061  df-rab 3063  df-v 3401  df-sbc 3682  df-csb 3792  df-dif 3847  df-un 3849  df-in 3851  df-ss 3861  df-nul 4213  df-if 4416  df-pw 4491  df-sn 4518  df-pr 4520  df-op 4524  df-uni 4798  df-iun 4884  df-iin 4885  df-br 5032  df-opab 5094  df-mpt 5112  df-id 5430  df-xp 5532  df-rel 5533  df-cnv 5534  df-co 5535  df-dm 5536  df-rn 5537  df-res 5538  df-ima 5539  df-iota 6298  df-fun 6342  df-fn 6343  df-f 6344  df-f1 6345  df-fo 6346  df-f1o 6347  df-fv 6348  df-riota 7130  df-ov 7176  df-oprab 7177  df-mpo 7178  df-1st 7717  df-2nd 7718  df-map 8442  df-proset 17657  df-poset 17675  df-plt 17687  df-lub 17703  df-glb 17704  df-join 17705  df-meet 17706  df-p0 17768  df-p1 17769  df-lat 17775  df-clat 17837  df-oposet 36836  df-ol 36838  df-oml 36839  df-covers 36926  df-ats 36927  df-atl 36958  df-cvlat 36982  df-hlat 37011  df-psubsp 37163  df-pmap 37164  df-padd 37456  df-lhyp 37648  df-laut 37649  df-ldil 37764  df-ltrn 37765  df-trl 37819

This theorem is referenced by:  cdlemg4b12  38271  cdlemg4d  38273  cdlemg6d  38281