Metamath Proof Explorer


Theorem dihord11b

Description: Part of proof after Lemma N of Crawley p. 122. Reverse ordering property. (Contributed by NM, 3-Mar-2014)

Ref Expression
Hypotheses dihjust.b ⊢ B = Base K
dihjust.l ⊢ ≤ ˙ = ≤ K
dihjust.j ⊢ ∨ ˙ = join ⁡ K
dihjust.m ⊢ ∧ ˙ = meet ⁡ K
dihjust.a ⊢ A = Atoms ⁡ K
dihjust.h ⊢ H = LHyp ⁡ K
dihjust.i ⊢ I = DIsoB ⁡ K ⁡ W
dihjust.J ⊢ J = DIsoC ⁡ K ⁡ W
dihjust.u ⊢ U = DVecH ⁡ K ⁡ W
dihjust.s ⊢ ⊕ ˙ = LSSum ⁡ U
dihord2c.t ⊢ T = LTrn ⁡ K ⁡ W
dihord2c.r ⊢ R = trL ⁡ K ⁡ W
dihord2c.o ⊢ O = h ∈ T ⟼ I ↾ B
dihord2.p ⊢ P = oc ⁡ K ⁡ W
dihord2.e ⊢ E = TEndo ⁡ K ⁡ W
dihord2.d ⊢ + ˙ = + U
dihord2.g ⊢ G = ι h ∈ T | h ⁡ P = N
Assertion dihord11b ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → f O ∈ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W

Proof

Step Hyp Ref Expression
1 dihjust.b ⊢ B = Base K
2 dihjust.l ⊢ ≤ ˙ = ≤ K
3 dihjust.j ⊢ ∨ ˙ = join ⁡ K
4 dihjust.m ⊢ ∧ ˙ = meet ⁡ K
5 dihjust.a ⊢ A = Atoms ⁡ K
6 dihjust.h ⊢ H = LHyp ⁡ K
7 dihjust.i ⊢ I = DIsoB ⁡ K ⁡ W
8 dihjust.J ⊢ J = DIsoC ⁡ K ⁡ W
9 dihjust.u ⊢ U = DVecH ⁡ K ⁡ W
10 dihjust.s ⊢ ⊕ ˙ = LSSum ⁡ U
11 dihord2c.t ⊢ T = LTrn ⁡ K ⁡ W
12 dihord2c.r ⊢ R = trL ⁡ K ⁡ W
13 dihord2c.o ⊢ O = h ∈ T ⟼ I ↾ B
14 dihord2.p ⊢ P = oc ⁡ K ⁡ W
15 dihord2.e ⊢ E = TEndo ⁡ K ⁡ W
16 dihord2.d ⊢ + ˙ = + U
17 dihord2.g ⊢ G = ι h ∈ T | h ⁡ P = N
18 1 2 3 4 5 6 7 8 9 10 dihord2b ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W → I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W
19 18 adantr ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W
20 simpr ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W
21 eqidd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → O = O
22 simpl11 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → K ∈ HL ∧ W ∈ H
23 simp11l ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W → K ∈ HL
24 23 adantr ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → K ∈ HL
25 24 hllatd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → K ∈ Lat
26 simpl2l ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → X ∈ B
27 simp11r ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W → W ∈ H
28 27 adantr ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → W ∈ H
29 1 6 lhpbase ⊢ W ∈ H → W ∈ B
30 28 29 syl ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → W ∈ B
31 1 4 latmcl ⊢ K ∈ Lat ∧ X ∈ B ∧ W ∈ B → X ∧ ˙ W ∈ B
32 25 26 30 31 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → X ∧ ˙ W ∈ B
33 1 2 4 latmle2 ⊢ K ∈ Lat ∧ X ∈ B ∧ W ∈ B → X ∧ ˙ W ≤ ˙ W
34 25 26 30 33 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → X ∧ ˙ W ≤ ˙ W
35 1 2 6 11 12 13 7 dibopelval3 ⊢ K ∈ HL ∧ W ∈ H ∧ X ∧ ˙ W ∈ B ∧ X ∧ ˙ W ≤ ˙ W → f O ∈ I ⁡ X ∧ ˙ W ↔ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W ∧ O = O
36 22 32 34 35 syl12anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → f O ∈ I ⁡ X ∧ ˙ W ↔ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W ∧ O = O
37 20 21 36 mpbir2and ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → f O ∈ I ⁡ X ∧ ˙ W
38 19 37 sseldd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ N ∈ A ∧ ¬ N ≤ ˙ W ∧ X ∈ B ∧ Y ∈ B ∧ J ⁡ Q ⊕ ˙ I ⁡ X ∧ ˙ W ⊆ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W ∧ f ∈ T ∧ R ⁡ f ≤ ˙ X ∧ ˙ W → f O ∈ J ⁡ N ⊕ ˙ I ⁡ Y ∧ ˙ W