Theorem dihfval 41403

Description: Isomorphism H for a lattice 𝐾. Definition of isomorphism map in [Crawley] p. 122 line 3. (Contributed by NM, 28-Jan-2014.)

Hypotheses

Ref	Expression
dihval.b	⊢ 𝐵 = (Base‘𝐾)
dihval.l	⊢ ≤ = (le‘𝐾)
dihval.j	⊢ ∨ = (join‘𝐾)
dihval.m	⊢ ∧ = (meet‘𝐾)
dihval.a	⊢ 𝐴 = (Atoms‘𝐾)
dihval.h	⊢ 𝐻 = (LHyp‘𝐾)
dihval.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dihval.d	⊢ 𝐷 = ((DIsoB‘𝐾)‘𝑊)
dihval.c	⊢ 𝐶 = ((DIsoC‘𝐾)‘𝑊)
dihval.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihval.s	⊢ 𝑆 = (LSubSp‘𝑈)
dihval.p	⊢ ⊕ = (LSSum‘𝑈)

Assertion

Ref	Expression
dihfval	⊢ ((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) → 𝐼 = (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))))

Distinct variable groups:   𝐴,𝑞   𝑢,𝑞,𝑥,𝐾   𝑥,𝐵   𝑢,𝑆   𝑊,𝑞,𝑢,𝑥

Allowed substitution hints:   𝐴(𝑥,𝑢)   𝐵(𝑢,𝑞)   𝐶(𝑥,𝑢,𝑞)   𝐷(𝑥,𝑢,𝑞)   ⊕ (𝑥,𝑢,𝑞)   𝑆(𝑥,𝑞)   𝑈(𝑥,𝑢,𝑞)   𝐻(𝑥,𝑢,𝑞)   𝐼(𝑥,𝑢,𝑞)   ∨ (𝑥,𝑢,𝑞)   ≤ (𝑥,𝑢,𝑞)   ∧ (𝑥,𝑢,𝑞)   𝑉(𝑥,𝑢,𝑞)

Proof of Theorem dihfval

Dummy variable 𝑤 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		dihval.i	. . 3 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
2		dihval.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐾)
3		dihval.l	. . . . 5 ⊢ ≤ = (le‘𝐾)
4		dihval.j	. . . . 5 ⊢ ∨ = (join‘𝐾)
5		dihval.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
6		dihval.a	. . . . 5 ⊢ 𝐴 = (Atoms‘𝐾)
7		dihval.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
8	2, 3, 4, 5, 6, 7	dihffval 41402	. . . 4 ⊢ (𝐾 ∈ 𝑉 → (DIsoH‘𝐾) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))))))
9	8	fveq1d 6833	. . 3 ⊢ (𝐾 ∈ 𝑉 → ((DIsoH‘𝐾)‘𝑊) = ((𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))))‘𝑊))
10	1, 9	eqtrid 2780	. 2 ⊢ (𝐾 ∈ 𝑉 → 𝐼 = ((𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))))‘𝑊))
11		breq2 5099	. . . . 5 ⊢ (𝑤 = 𝑊 → (𝑥 ≤ 𝑤 ↔ 𝑥 ≤ 𝑊))
12		fveq2 6831	. . . . . . 7 ⊢ (𝑤 = 𝑊 → ((DIsoB‘𝐾)‘𝑤) = ((DIsoB‘𝐾)‘𝑊))
13		dihval.d	. . . . . . 7 ⊢ 𝐷 = ((DIsoB‘𝐾)‘𝑊)
14	12, 13	eqtr4di 2786	. . . . . 6 ⊢ (𝑤 = 𝑊 → ((DIsoB‘𝐾)‘𝑤) = 𝐷)
15	14	fveq1d 6833	. . . . 5 ⊢ (𝑤 = 𝑊 → (((DIsoB‘𝐾)‘𝑤)‘𝑥) = (𝐷‘𝑥))
16		fveq2 6831	. . . . . . . . 9 ⊢ (𝑤 = 𝑊 → ((DVecH‘𝐾)‘𝑤) = ((DVecH‘𝐾)‘𝑊))
17		dihval.u	. . . . . . . . 9 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
18	16, 17	eqtr4di 2786	. . . . . . . 8 ⊢ (𝑤 = 𝑊 → ((DVecH‘𝐾)‘𝑤) = 𝑈)
19	18	fveq2d 6835	. . . . . . 7 ⊢ (𝑤 = 𝑊 → (LSubSp‘((DVecH‘𝐾)‘𝑤)) = (LSubSp‘𝑈))
20		dihval.s	. . . . . . 7 ⊢ 𝑆 = (LSubSp‘𝑈)
21	19, 20	eqtr4di 2786	. . . . . 6 ⊢ (𝑤 = 𝑊 → (LSubSp‘((DVecH‘𝐾)‘𝑤)) = 𝑆)
22		breq2 5099	. . . . . . . . . 10 ⊢ (𝑤 = 𝑊 → (𝑞 ≤ 𝑤 ↔ 𝑞 ≤ 𝑊))
23	22	notbid 318	. . . . . . . . 9 ⊢ (𝑤 = 𝑊 → (¬ 𝑞 ≤ 𝑤 ↔ ¬ 𝑞 ≤ 𝑊))
24		oveq2 7363	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑊 → (𝑥 ∧ 𝑤) = (𝑥 ∧ 𝑊))
25	24	oveq2d 7371	. . . . . . . . . 10 ⊢ (𝑤 = 𝑊 → (𝑞 ∨ (𝑥 ∧ 𝑤)) = (𝑞 ∨ (𝑥 ∧ 𝑊)))
26	25	eqeq1d 2735	. . . . . . . . 9 ⊢ (𝑤 = 𝑊 → ((𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥 ↔ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥))
27	23, 26	anbi12d 632	. . . . . . . 8 ⊢ (𝑤 = 𝑊 → ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) ↔ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥)))
28	18	fveq2d 6835	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑊 → (LSSum‘((DVecH‘𝐾)‘𝑤)) = (LSSum‘𝑈))
29		dihval.p	. . . . . . . . . . 11 ⊢ ⊕ = (LSSum‘𝑈)
30	28, 29	eqtr4di 2786	. . . . . . . . . 10 ⊢ (𝑤 = 𝑊 → (LSSum‘((DVecH‘𝐾)‘𝑤)) = ⊕ )
31		fveq2 6831	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑊 → ((DIsoC‘𝐾)‘𝑤) = ((DIsoC‘𝐾)‘𝑊))
32		dihval.c	. . . . . . . . . . . 12 ⊢ 𝐶 = ((DIsoC‘𝐾)‘𝑊)
33	31, 32	eqtr4di 2786	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑊 → ((DIsoC‘𝐾)‘𝑤) = 𝐶)
34	33	fveq1d 6833	. . . . . . . . . 10 ⊢ (𝑤 = 𝑊 → (((DIsoC‘𝐾)‘𝑤)‘𝑞) = (𝐶‘𝑞))
35	14, 24	fveq12d 6838	. . . . . . . . . 10 ⊢ (𝑤 = 𝑊 → (((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)) = (𝐷‘(𝑥 ∧ 𝑊)))
36	30, 34, 35	oveq123d 7376	. . . . . . . . 9 ⊢ (𝑤 = 𝑊 → ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))) = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))
37	36	eqeq2d 2744	. . . . . . . 8 ⊢ (𝑤 = 𝑊 → (𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))) ↔ 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊)))))
38	27, 37	imbi12d 344	. . . . . . 7 ⊢ (𝑤 = 𝑊 → (((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))) ↔ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))
39	38	ralbidv 3156	. . . . . 6 ⊢ (𝑤 = 𝑊 → (∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))) ↔ ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))
40	21, 39	riotaeqbidv 7315	. . . . 5 ⊢ (𝑤 = 𝑊 → (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))) = (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))
41	11, 15, 40	ifbieq12d 4505	. . . 4 ⊢ (𝑤 = 𝑊 → if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))) = if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊)))))))
42	41	mpteq2dv 5189	. . 3 ⊢ (𝑤 = 𝑊 → (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))) = (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))))
43		eqid 2733	. . 3 ⊢ (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))))) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))))
44	42, 43, 2	mptfvmpt 7171	. 2 ⊢ (𝑊 ∈ 𝐻 → ((𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))))‘𝑊) = (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))))
45	10, 44	sylan9eq 2788	1 ⊢ ((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) → 𝐼 = (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   = wceq 1541   ∈ wcel 2113  ∀wral 3048  ifcif 4476   class class class wbr 5095   ↦ cmpt 5176  ‘cfv 6489  ℩crio 7311  (class class class)co 7355  Basecbs 17127  lecple 17175  joincjn 18225  meetcmee 18226  LSSumclsm 19554  LSubSpclss 20873  Atomscatm 39435  LHypclh 40156  DVecHcdvh 41250  DIsoBcdib 41310  DIsoCcdic 41344  DIsoHcdih 41400

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pr 5374

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-ral 3049  df-rex 3058  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-nul 4283  df-if 4477  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4861  df-iun 4945  df-br 5096  df-opab 5158  df-mpt 5177  df-id 5516  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-riota 7312  df-ov 7358  df-dih 41401

This theorem is referenced by:  dihval  41404  dihf11lem  41438