Metamath Proof Explorer


Theorem cdlemeg47rv2

Description: Value of g_s(r) when r is an atom under pq and s is any atom not under pq, using very compact hypotheses. TODO: FIX COMMENT. (Contributed by NM, 1-Apr-2013)

Ref Expression
Hypotheses cdlemef47.b B = Base K
cdlemef47.l ˙ = K
cdlemef47.j ˙ = join K
cdlemef47.m ˙ = meet K
cdlemef47.a A = Atoms K
cdlemef47.h H = LHyp K
cdlemef47.v V = Q ˙ P ˙ W
cdlemef47.n N = v ˙ V ˙ P ˙ Q ˙ v ˙ W
cdlemefs47.o O = Q ˙ P ˙ N ˙ u ˙ v ˙ W
cdlemef47.g G = a B if Q P ¬ a ˙ W ι c B | u A ¬ u ˙ W u ˙ a ˙ W = a c = if u ˙ Q ˙ P ι b B | v A ¬ v ˙ W ¬ v ˙ Q ˙ P b = O u / v N ˙ a ˙ W a
Assertion cdlemeg47rv2 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q G R = Q ˙ P ˙ G S ˙ R ˙ S ˙ W

Proof

Step Hyp Ref Expression
1 cdlemef47.b B = Base K
2 cdlemef47.l ˙ = K
3 cdlemef47.j ˙ = join K
4 cdlemef47.m ˙ = meet K
5 cdlemef47.a A = Atoms K
6 cdlemef47.h H = LHyp K
7 cdlemef47.v V = Q ˙ P ˙ W
8 cdlemef47.n N = v ˙ V ˙ P ˙ Q ˙ v ˙ W
9 cdlemefs47.o O = Q ˙ P ˙ N ˙ u ˙ v ˙ W
10 cdlemef47.g G = a B if Q P ¬ a ˙ W ι c B | u A ¬ u ˙ W u ˙ a ˙ W = a c = if u ˙ Q ˙ P ι b B | v A ¬ v ˙ W ¬ v ˙ Q ˙ P b = O u / v N ˙ a ˙ W a
11 1 2 3 4 5 6 7 8 9 10 cdlemeg47rv K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q G R = R / u S / v O
12 simp22l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q R A
13 nfcvd R A _ u Q ˙ P ˙ S / v N ˙ R ˙ S ˙ W
14 oveq1 u = R u ˙ S = R ˙ S
15 14 oveq1d u = R u ˙ S ˙ W = R ˙ S ˙ W
16 15 oveq2d u = R S / v N ˙ u ˙ S ˙ W = S / v N ˙ R ˙ S ˙ W
17 16 oveq2d u = R Q ˙ P ˙ S / v N ˙ u ˙ S ˙ W = Q ˙ P ˙ S / v N ˙ R ˙ S ˙ W
18 13 17 csbiegf R A R / u Q ˙ P ˙ S / v N ˙ u ˙ S ˙ W = Q ˙ P ˙ S / v N ˙ R ˙ S ˙ W
19 12 18 syl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q R / u Q ˙ P ˙ S / v N ˙ u ˙ S ˙ W = Q ˙ P ˙ S / v N ˙ R ˙ S ˙ W
20 simp23l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q S A
21 eqid Q ˙ P ˙ S / v N ˙ u ˙ S ˙ W = Q ˙ P ˙ S / v N ˙ u ˙ S ˙ W
22 9 21 cdleme31se2 S A S / v O = Q ˙ P ˙ S / v N ˙ u ˙ S ˙ W
23 20 22 syl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q S / v O = Q ˙ P ˙ S / v N ˙ u ˙ S ˙ W
24 23 csbeq2dv K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q R / u S / v O = R / u Q ˙ P ˙ S / v N ˙ u ˙ S ˙ W
25 simp1 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W
26 simp21 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q P Q
27 simp23 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q S A ¬ S ˙ W
28 simp3r K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q ¬ S ˙ P ˙ Q
29 1 2 3 4 5 6 7 8 9 10 cdlemeg47b K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q S A ¬ S ˙ W ¬ S ˙ P ˙ Q G S = S / v N
30 25 26 27 28 29 syl121anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q G S = S / v N
31 30 oveq1d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q G S ˙ R ˙ S ˙ W = S / v N ˙ R ˙ S ˙ W
32 31 oveq2d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q Q ˙ P ˙ G S ˙ R ˙ S ˙ W = Q ˙ P ˙ S / v N ˙ R ˙ S ˙ W
33 19 24 32 3eqtr4d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q R / u S / v O = Q ˙ P ˙ G S ˙ R ˙ S ˙ W
34 11 33 eqtrd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q R A ¬ R ˙ W S A ¬ S ˙ W R ˙ P ˙ Q ¬ S ˙ P ˙ Q G R = Q ˙ P ˙ G S ˙ R ˙ S ˙ W