Metamath Proof Explorer


Theorem cdlemg17g

Description: TODO: fix comment. (Contributed by NM, 9-May-2013)

Ref Expression
Hypotheses cdlemg12.l ˙ = K
cdlemg12.j ˙ = join K
cdlemg12.m ˙ = meet K
cdlemg12.a A = Atoms K
cdlemg12.h H = LHyp K
cdlemg12.t T = LTrn K W
cdlemg12b.r R = trL K W
Assertion cdlemg17g K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T G T P Q G P P R G ˙ P ˙ Q ¬ r A ¬ r ˙ W P ˙ r = Q ˙ r G F P ˙ F P ˙ F Q

Proof

Step Hyp Ref Expression
1 cdlemg12.l ˙ = K
2 cdlemg12.j ˙ = join K
3 cdlemg12.m ˙ = meet K
4 cdlemg12.a A = Atoms K
5 cdlemg12.h H = LHyp K
6 cdlemg12.t T = LTrn K W
7 cdlemg12b.r R = trL K W
8 simp11l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T G T P Q G P P R G ˙ P ˙ Q ¬ r A ¬ r ˙ W P ˙ r = Q ˙ r K HL
9 simp11 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T G T P Q G P P R G ˙ P ˙ Q ¬ r A ¬ r ˙ W P ˙ r = Q ˙ r K HL W H
10 simp21 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T G T P Q G P P R G ˙ P ˙ Q ¬ r A ¬ r ˙ W P ˙ r = Q ˙ r F T
11 simp12l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T G T P Q G P P R G ˙ P ˙ Q ¬ r A ¬ r ˙ W P ˙ r = Q ˙ r P A
12 1 4 5 6 ltrnat K HL W H F T P A F P A
13 9 10 11 12 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T G T P Q G P P R G ˙ P ˙ Q ¬ r A ¬ r ˙ W P ˙ r = Q ˙ r F P A
14 simp22 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T G T P Q G P P R G ˙ P ˙ Q ¬ r A ¬ r ˙ W P ˙ r = Q ˙ r G T
15 1 4 5 6 ltrncoat K HL W H G T F T P A G F P A
16 9 14 10 11 15 syl121anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T G T P Q G P P R G ˙ P ˙ Q ¬ r A ¬ r ˙ W P ˙ r = Q ˙ r G F P A
17 1 2 4 hlatlej2 K HL F P A G F P A G F P ˙ F P ˙ G F P
18 8 13 16 17 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T G T P Q G P P R G ˙ P ˙ Q ¬ r A ¬ r ˙ W P ˙ r = Q ˙ r G F P ˙ F P ˙ G F P
19 1 2 3 4 5 6 7 cdlemg17f K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T G T P Q G P P R G ˙ P ˙ Q ¬ r A ¬ r ˙ W P ˙ r = Q ˙ r F P ˙ F Q = F P ˙ G F P
20 18 19 breqtrrd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W F T G T P Q G P P R G ˙ P ˙ Q ¬ r A ¬ r ˙ W P ˙ r = Q ˙ r G F P ˙ F P ˙ F Q