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=LHypK
cdlemg2inv.t T=LTrnKW
cdlemg2j.l ˙=K
cdlemg2j.j ˙=joinK
cdlemg2j.a A=AtomsK
cdlemg2j.m ˙=meetK
cdlemg2j.u U=P˙Q˙W
Assertion cdlemg2k KHLWHPA¬P˙WQA¬Q˙WFTFP˙FQ=FP˙U

Proof

Step Hyp Ref Expression
1 cdlemg2inv.h H=LHypK
2 cdlemg2inv.t T=LTrnKW
3 cdlemg2j.l ˙=K
4 cdlemg2j.j ˙=joinK
5 cdlemg2j.a A=AtomsK
6 cdlemg2j.m ˙=meetK
7 cdlemg2j.u U=P˙Q˙W
8 eqid BaseK=BaseK
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 xBaseKifpq¬x˙WιzBaseK|sA¬s˙Ws˙x˙W=xz=ifs˙p˙qιyBaseK|tA¬t˙W¬t˙p˙qy=p˙q˙t˙p˙q˙W˙q˙p˙t˙W˙s˙t˙Ws/tt˙p˙q˙W˙q˙p˙t˙W˙x˙Wx=xBaseKifpq¬x˙WιzBaseK|sA¬s˙Ws˙x˙W=xz=ifs˙p˙qιyBaseK|tA¬t˙W¬t˙p˙qy=p˙q˙t˙p˙q˙W˙q˙p˙t˙W˙s˙t˙Ws/tt˙p˙q˙W˙q˙p˙t˙W˙x˙Wx
13 8 3 4 6 5 1 2 9 10 11 12 7 cdlemg2klem KHLWHPA¬P˙WQA¬Q˙WFTFP˙FQ=FP˙U