Metamath Proof Explorer


Theorem cdlemg2k

Description: cdleme42keg with simpler hypotheses. TODO: FIX COMMENT. TODO: derive from cdlemg3a , cdlemg2fv2 , cdlemg2jOLDN , ltrnel ? (Contributed by NM, 22-Apr-2013)

Ref Expression
Hypotheses cdlemg2inv.h H = LHyp K
cdlemg2inv.t T = LTrn K W
cdlemg2j.l ˙ = K
cdlemg2j.j ˙ = join K
cdlemg2j.a A = Atoms K
cdlemg2j.m ˙ = meet K
cdlemg2j.u U = P ˙ Q ˙ W
Assertion cdlemg2k K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T F P ˙ F Q = F P ˙ U

Proof

Step Hyp Ref Expression
1 cdlemg2inv.h H = LHyp K
2 cdlemg2inv.t T = LTrn K W
3 cdlemg2j.l ˙ = K
4 cdlemg2j.j ˙ = join K
5 cdlemg2j.a A = Atoms K
6 cdlemg2j.m ˙ = meet K
7 cdlemg2j.u U = P ˙ Q ˙ W
8 eqid Base K = Base K
9 eqid p ˙ q ˙ W = p ˙ q ˙ W
10 eqid t ˙ p ˙ q ˙ W ˙ q ˙ p ˙ t ˙ W = t ˙ p ˙ q ˙ W ˙ q ˙ p ˙ t ˙ W
11 eqid p ˙ q ˙ t ˙ p ˙ q ˙ W ˙ q ˙ p ˙ t ˙ W ˙ s ˙ t ˙ W = p ˙ q ˙ t ˙ p ˙ q ˙ W ˙ q ˙ p ˙ t ˙ W ˙ s ˙ t ˙ W
12 eqid x Base K if p q ¬ x ˙ W ι z Base K | s A ¬ s ˙ W s ˙ x ˙ W = x z = if s ˙ p ˙ q ι y Base K | t A ¬ t ˙ W ¬ t ˙ p ˙ q y = p ˙ q ˙ t ˙ p ˙ q ˙ W ˙ q ˙ p ˙ t ˙ W ˙ s ˙ t ˙ W s / t t ˙ p ˙ q ˙ W ˙ q ˙ p ˙ t ˙ W ˙ x ˙ W x = x Base K if p q ¬ x ˙ W ι z Base K | s A ¬ s ˙ W s ˙ x ˙ W = x z = if s ˙ p ˙ q ι y Base K | t A ¬ t ˙ W ¬ t ˙ p ˙ q y = p ˙ q ˙ t ˙ p ˙ q ˙ W ˙ q ˙ p ˙ t ˙ W ˙ s ˙ t ˙ W s / t t ˙ p ˙ q ˙ W ˙ q ˙ p ˙ t ˙ W ˙ x ˙ W x
13 8 3 4 6 5 1 2 9 10 11 12 7 cdlemg2klem K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T F P ˙ F Q = F P ˙ U