Metamath Proof Explorer


Theorem cdlemeg46gfre

Description: TODO FIX COMMENT p. 116 penultimate line: g(f(r)) = r. (Contributed by NM, 4-Apr-2013)

Ref Expression
Hypotheses cdlemef46g.b ⊢ B = Base K
cdlemef46g.l ⊢ ≤ ˙ = ≤ K
cdlemef46g.j ⊢ ∨ ˙ = join ⁡ K
cdlemef46g.m ⊢ ∧ ˙ = meet ⁡ K
cdlemef46g.a ⊢ A = Atoms ⁡ K
cdlemef46g.h ⊢ H = LHyp ⁡ K
cdlemef46g.u ⊢ U = P ∨ ˙ Q ∧ ˙ W
cdlemef46g.d ⊢ D = t ∨ ˙ U ∧ ˙ Q ∨ ˙ P ∨ ˙ t ∧ ˙ W
cdlemefs46g.e ⊢ E = P ∨ ˙ Q ∧ ˙ D ∨ ˙ s ∨ ˙ t ∧ ˙ W
cdlemef46g.f ⊢ F = x ∈ B ⟼ if P ≠ Q ∧ ¬ x ≤ ˙ W ι z ∈ B | ∀ s ∈ A ¬ s ≤ ˙ W ∧ s ∨ ˙ x ∧ ˙ W = x → z = if s ≤ ˙ P ∨ ˙ Q ι y ∈ B | ∀ t ∈ A ¬ t ≤ ˙ W ∧ ¬ t ≤ ˙ P ∨ ˙ Q → y = E ⦋ s / t⦌ D ∨ ˙ x ∧ ˙ W x
cdlemef46.v ⊢ V = Q ∨ ˙ P ∧ ˙ W
cdlemef46.n ⊢ N = v ∨ ˙ V ∧ ˙ P ∨ ˙ Q ∨ ˙ v ∧ ˙ W
cdlemefs46.o ⊢ O = Q ∨ ˙ P ∧ ˙ N ∨ ˙ u ∨ ˙ v ∧ ˙ W
cdlemef46.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 cdlemeg46gfre ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q → G ⁡ F ⁡ R = R

Proof

Step Hyp Ref Expression
1 cdlemef46g.b ⊢ B = Base K
2 cdlemef46g.l ⊢ ≤ ˙ = ≤ K
3 cdlemef46g.j ⊢ ∨ ˙ = join ⁡ K
4 cdlemef46g.m ⊢ ∧ ˙ = meet ⁡ K
5 cdlemef46g.a ⊢ A = Atoms ⁡ K
6 cdlemef46g.h ⊢ H = LHyp ⁡ K
7 cdlemef46g.u ⊢ U = P ∨ ˙ Q ∧ ˙ W
8 cdlemef46g.d ⊢ D = t ∨ ˙ U ∧ ˙ Q ∨ ˙ P ∨ ˙ t ∧ ˙ W
9 cdlemefs46g.e ⊢ E = P ∨ ˙ Q ∧ ˙ D ∨ ˙ s ∨ ˙ t ∧ ˙ W
10 cdlemef46g.f ⊢ F = x ∈ B ⟼ if P ≠ Q ∧ ¬ x ≤ ˙ W ι z ∈ B | ∀ s ∈ A ¬ s ≤ ˙ W ∧ s ∨ ˙ x ∧ ˙ W = x → z = if s ≤ ˙ P ∨ ˙ Q ι y ∈ B | ∀ t ∈ A ¬ t ≤ ˙ W ∧ ¬ t ≤ ˙ P ∨ ˙ Q → y = E ⦋ s / t⦌ D ∨ ˙ x ∧ ˙ W x
11 cdlemef46.v ⊢ V = Q ∨ ˙ P ∧ ˙ W
12 cdlemef46.n ⊢ N = v ∨ ˙ V ∧ ˙ P ∨ ˙ Q ∨ ˙ v ∧ ˙ W
13 cdlemefs46.o ⊢ O = Q ∨ ˙ P ∧ ˙ N ∨ ˙ u ∨ ˙ v ∧ ˙ W
14 cdlemef46.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
15 simp11 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q → K ∈ HL ∧ W ∈ H
16 simp12 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q → P ∈ A ∧ ¬ P ≤ ˙ W
17 simp13 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q → Q ∈ A ∧ ¬ Q ≤ ˙ W
18 simp2l ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q → P ≠ Q
19 2 3 5 6 cdlemb2 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q → ∃ e ∈ A ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q
20 15 16 17 18 19 syl121anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q → ∃ e ∈ A ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q
21 simp1 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q ∧ e ∈ A ∧ ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W
22 simp2l ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q ∧ e ∈ A ∧ ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → P ≠ Q
23 simp2r ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q ∧ e ∈ A ∧ ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → R ∈ A ∧ ¬ R ≤ ˙ W
24 simp32 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q ∧ e ∈ A ∧ ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → e ∈ A
25 simp33l ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q ∧ e ∈ A ∧ ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → ¬ e ≤ ˙ W
26 24 25 jca ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q ∧ e ∈ A ∧ ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → e ∈ A ∧ ¬ e ≤ ˙ W
27 simp31 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q ∧ e ∈ A ∧ ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → R ≤ ˙ P ∨ ˙ Q
28 simp33r ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q ∧ e ∈ A ∧ ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → ¬ e ≤ ˙ P ∨ ˙ Q
29 1 2 3 4 5 6 7 8 9 10 11 12 13 14 cdlemeg46gfr ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ e ∈ A ∧ ¬ e ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q ∧ ¬ e ≤ ˙ P ∨ ˙ Q → G ⁡ F ⁡ R = R
30 21 22 23 26 27 28 29 syl132anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q ∧ e ∈ A ∧ ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → G ⁡ F ⁡ R = R
31 30 3expia ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W → R ≤ ˙ P ∨ ˙ Q ∧ e ∈ A ∧ ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → G ⁡ F ⁡ R = R
32 31 3expd ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W → R ≤ ˙ P ∨ ˙ Q → e ∈ A → ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → G ⁡ F ⁡ R = R
33 32 3impia ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q → e ∈ A → ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → G ⁡ F ⁡ R = R
34 33 rexlimdv ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q → ∃ e ∈ A ¬ e ≤ ˙ W ∧ ¬ e ≤ ˙ P ∨ ˙ Q → G ⁡ F ⁡ R = R
35 20 34 mpd ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ R ≤ ˙ P ∨ ˙ Q → G ⁡ F ⁡ R = R