Theorem dihfval 38382

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 38381	. . . 4 ⊢ (𝐾 ∈ 𝑉 → (DIsoH‘𝐾) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))))))
9	8	fveq1d 6672	. . 3 ⊢ (𝐾 ∈ 𝑉 → ((DIsoH‘𝐾)‘𝑊) = ((𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))))‘𝑊))
10	1, 9	syl5eq 2868	. 2 ⊢ (𝐾 ∈ 𝑉 → 𝐼 = ((𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))))‘𝑊))
11		breq2 5070	. . . . 5 ⊢ (𝑤 = 𝑊 → (𝑥 ≤ 𝑤 ↔ 𝑥 ≤ 𝑊))
12		fveq2 6670	. . . . . . 7 ⊢ (𝑤 = 𝑊 → ((DIsoB‘𝐾)‘𝑤) = ((DIsoB‘𝐾)‘𝑊))
13		dihval.d	. . . . . . 7 ⊢ 𝐷 = ((DIsoB‘𝐾)‘𝑊)
14	12, 13	syl6eqr 2874	. . . . . 6 ⊢ (𝑤 = 𝑊 → ((DIsoB‘𝐾)‘𝑤) = 𝐷)
15	14	fveq1d 6672	. . . . 5 ⊢ (𝑤 = 𝑊 → (((DIsoB‘𝐾)‘𝑤)‘𝑥) = (𝐷‘𝑥))
16		fveq2 6670	. . . . . . . . 9 ⊢ (𝑤 = 𝑊 → ((DVecH‘𝐾)‘𝑤) = ((DVecH‘𝐾)‘𝑊))
17		dihval.u	. . . . . . . . 9 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
18	16, 17	syl6eqr 2874	. . . . . . . 8 ⊢ (𝑤 = 𝑊 → ((DVecH‘𝐾)‘𝑤) = 𝑈)
19	18	fveq2d 6674	. . . . . . 7 ⊢ (𝑤 = 𝑊 → (LSubSp‘((DVecH‘𝐾)‘𝑤)) = (LSubSp‘𝑈))
20		dihval.s	. . . . . . 7 ⊢ 𝑆 = (LSubSp‘𝑈)
21	19, 20	syl6eqr 2874	. . . . . 6 ⊢ (𝑤 = 𝑊 → (LSubSp‘((DVecH‘𝐾)‘𝑤)) = 𝑆)
22		breq2 5070	. . . . . . . . . 10 ⊢ (𝑤 = 𝑊 → (𝑞 ≤ 𝑤 ↔ 𝑞 ≤ 𝑊))
23	22	notbid 320	. . . . . . . . 9 ⊢ (𝑤 = 𝑊 → (¬ 𝑞 ≤ 𝑤 ↔ ¬ 𝑞 ≤ 𝑊))
24		oveq2 7164	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑊 → (𝑥 ∧ 𝑤) = (𝑥 ∧ 𝑊))
25	24	oveq2d 7172	. . . . . . . . . 10 ⊢ (𝑤 = 𝑊 → (𝑞 ∨ (𝑥 ∧ 𝑤)) = (𝑞 ∨ (𝑥 ∧ 𝑊)))
26	25	eqeq1d 2823	. . . . . . . . 9 ⊢ (𝑤 = 𝑊 → ((𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥 ↔ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥))
27	23, 26	anbi12d 632	. . . . . . . 8 ⊢ (𝑤 = 𝑊 → ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) ↔ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥)))
28	18	fveq2d 6674	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑊 → (LSSum‘((DVecH‘𝐾)‘𝑤)) = (LSSum‘𝑈))
29		dihval.p	. . . . . . . . . . 11 ⊢ ⊕ = (LSSum‘𝑈)
30	28, 29	syl6eqr 2874	. . . . . . . . . 10 ⊢ (𝑤 = 𝑊 → (LSSum‘((DVecH‘𝐾)‘𝑤)) = ⊕ )
31		fveq2 6670	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑊 → ((DIsoC‘𝐾)‘𝑤) = ((DIsoC‘𝐾)‘𝑊))
32		dihval.c	. . . . . . . . . . . 12 ⊢ 𝐶 = ((DIsoC‘𝐾)‘𝑊)
33	31, 32	syl6eqr 2874	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑊 → ((DIsoC‘𝐾)‘𝑤) = 𝐶)
34	33	fveq1d 6672	. . . . . . . . . 10 ⊢ (𝑤 = 𝑊 → (((DIsoC‘𝐾)‘𝑤)‘𝑞) = (𝐶‘𝑞))
35	14, 24	fveq12d 6677	. . . . . . . . . 10 ⊢ (𝑤 = 𝑊 → (((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)) = (𝐷‘(𝑥 ∧ 𝑊)))
36	30, 34, 35	oveq123d 7177	. . . . . . . . 9 ⊢ (𝑤 = 𝑊 → ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))) = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))
37	36	eqeq2d 2832	. . . . . . . 8 ⊢ (𝑤 = 𝑊 → (𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))) ↔ 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊)))))
38	27, 37	imbi12d 347	. . . . . . 7 ⊢ (𝑤 = 𝑊 → (((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))) ↔ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))
39	38	ralbidv 3197	. . . . . 6 ⊢ (𝑤 = 𝑊 → (∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))) ↔ ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))
40	21, 39	riotaeqbidv 7117	. . . . 5 ⊢ (𝑤 = 𝑊 → (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))) = (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))
41	11, 15, 40	ifbieq12d 4494	. . . 4 ⊢ (𝑤 = 𝑊 → if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))) = if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊)))))))
42	41	mpteq2dv 5162	. . 3 ⊢ (𝑤 = 𝑊 → (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))) = (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))))
43		eqid 2821	. . 3 ⊢ (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))))) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))))
44	42, 43, 2	mptfvmpt 6990	. 2 ⊢ (𝑊 ∈ 𝐻 → ((𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))))‘𝑊) = (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))))
45	10, 44	sylan9eq 2876	1 ⊢ ((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) → 𝐼 = (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 398   = wceq 1537   ∈ wcel 2114  ∀wral 3138  ifcif 4467   class class class wbr 5066   ↦ cmpt 5146  ‘cfv 6355  ℩crio 7113  (class class class)co 7156  Basecbs 16483  lecple 16572  joincjn 17554  meetcmee 17555  LSSumclsm 18759  LSubSpclss 19703  Atomscatm 36414  LHypclh 37135  DVecHcdvh 38229  DIsoBcdib 38289  DIsoCcdic 38323  DIsoHcdih 38379

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 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5190  ax-sep 5203  ax-nul 5210  ax-pr 5330

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-reu 3145  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4839  df-iun 4921  df-br 5067  df-opab 5129  df-mpt 5147  df-id 5460  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-riota 7114  df-ov 7159  df-dih 38380

This theorem is referenced by:  dihval  38383  dihf11lem  38417