Theorem dihffval 41894

Description: The 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‘𝐾)

Assertion

Ref	Expression
dihffval	⊢ (𝐾 ∈ 𝑉 → (DIsoH‘𝐾) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))))))

Distinct variable groups:   𝐴,𝑞   𝑤,𝐻   𝑢,𝑞,𝑤,𝑥,𝐾

Allowed substitution hints:   𝐴(𝑥,𝑤,𝑢)   𝐵(𝑥,𝑤,𝑢,𝑞)   𝐻(𝑥,𝑢,𝑞)   ∨ (𝑥,𝑤,𝑢,𝑞)   ≤ (𝑥,𝑤,𝑢,𝑞)   ∧ (𝑥,𝑤,𝑢,𝑞)   𝑉(𝑥,𝑤,𝑢,𝑞)

Proof of Theorem dihffval

Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		elex 3484	. 2 ⊢ (𝐾 ∈ 𝑉 → 𝐾 ∈ V)
2		fveq2 6882	. . . . 5 ⊢ (𝑘 = 𝐾 → (LHyp‘𝑘) = (LHyp‘𝐾))
3		dihval.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
4	2, 3	eqtr4di 2822	. . . 4 ⊢ (𝑘 = 𝐾 → (LHyp‘𝑘) = 𝐻)
5		fveq2 6882	. . . . . 6 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = (Base‘𝐾))
6		dihval.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
7	5, 6	eqtr4di 2822	. . . . 5 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = 𝐵)
8		fveq2 6882	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = (le‘𝐾))
9		dihval.l	. . . . . . . 8 ⊢ ≤ = (le‘𝐾)
10	8, 9	eqtr4di 2822	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = ≤ )
11	10	breqd 5124	. . . . . 6 ⊢ (𝑘 = 𝐾 → (𝑥(le‘𝑘)𝑤 ↔ 𝑥 ≤ 𝑤))
12		fveq2 6882	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (DIsoB‘𝑘) = (DIsoB‘𝐾))
13	12	fveq1d 6884	. . . . . . 7 ⊢ (𝑘 = 𝐾 → ((DIsoB‘𝑘)‘𝑤) = ((DIsoB‘𝐾)‘𝑤))
14	13	fveq1d 6884	. . . . . 6 ⊢ (𝑘 = 𝐾 → (((DIsoB‘𝑘)‘𝑤)‘𝑥) = (((DIsoB‘𝐾)‘𝑤)‘𝑥))
15		fveq2 6882	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (DVecH‘𝑘) = (DVecH‘𝐾))
16	15	fveq1d 6884	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → ((DVecH‘𝑘)‘𝑤) = ((DVecH‘𝐾)‘𝑤))
17	16	fveq2d 6886	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (LSubSp‘((DVecH‘𝑘)‘𝑤)) = (LSubSp‘((DVecH‘𝐾)‘𝑤)))
18		fveq2 6882	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = (Atoms‘𝐾))
19		dihval.a	. . . . . . . . 9 ⊢ 𝐴 = (Atoms‘𝐾)
20	18, 19	eqtr4di 2822	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = 𝐴)
21	10	breqd 5124	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (𝑞(le‘𝑘)𝑤 ↔ 𝑞 ≤ 𝑤))
22	21	notbid 321	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (¬ 𝑞(le‘𝑘)𝑤 ↔ ¬ 𝑞 ≤ 𝑤))
23		fveq2 6882	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = (join‘𝐾))
24		dihval.j	. . . . . . . . . . . . 13 ⊢ ∨ = (join‘𝐾)
25	23, 24	eqtr4di 2822	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = ∨ )
26		eqidd 2770	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → 𝑞 = 𝑞)
27		fveq2 6882	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝐾 → (meet‘𝑘) = (meet‘𝐾))
28		dihval.m	. . . . . . . . . . . . . 14 ⊢ ∧ = (meet‘𝐾)
29	27, 28	eqtr4di 2822	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝐾 → (meet‘𝑘) = ∧ )
30	29	oveqd 7428	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → (𝑥(meet‘𝑘)𝑤) = (𝑥 ∧ 𝑤))
31	25, 26, 30	oveq123d 7432	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (𝑞(join‘𝑘)(𝑥(meet‘𝑘)𝑤)) = (𝑞 ∨ (𝑥 ∧ 𝑤)))
32	31	eqeq1d 2771	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → ((𝑞(join‘𝑘)(𝑥(meet‘𝑘)𝑤)) = 𝑥 ↔ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥))
33	22, 32	anbi12d 643	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → ((¬ 𝑞(le‘𝑘)𝑤 ∧ (𝑞(join‘𝑘)(𝑥(meet‘𝑘)𝑤)) = 𝑥) ↔ (¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥)))
34	16	fveq2d 6886	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (LSSum‘((DVecH‘𝑘)‘𝑤)) = (LSSum‘((DVecH‘𝐾)‘𝑤)))
35		fveq2 6882	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝐾 → (DIsoC‘𝑘) = (DIsoC‘𝐾))
36	35	fveq1d 6884	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → ((DIsoC‘𝑘)‘𝑤) = ((DIsoC‘𝐾)‘𝑤))
37	36	fveq1d 6884	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (((DIsoC‘𝑘)‘𝑤)‘𝑞) = (((DIsoC‘𝐾)‘𝑤)‘𝑞))
38	13, 30	fveq12d 6889	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (((DIsoB‘𝑘)‘𝑤)‘(𝑥(meet‘𝑘)𝑤)) = (((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))
39	34, 37, 38	oveq123d 7432	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → ((((DIsoC‘𝑘)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝑘)‘𝑤))(((DIsoB‘𝑘)‘𝑤)‘(𝑥(meet‘𝑘)𝑤))) = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))
40	39	eqeq2d 2780	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (𝑢 = ((((DIsoC‘𝑘)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝑘)‘𝑤))(((DIsoB‘𝑘)‘𝑤)‘(𝑥(meet‘𝑘)𝑤))) ↔ 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))
41	33, 40	imbi12d 347	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (((¬ 𝑞(le‘𝑘)𝑤 ∧ (𝑞(join‘𝑘)(𝑥(meet‘𝑘)𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝑘)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝑘)‘𝑤))(((DIsoB‘𝑘)‘𝑤)‘(𝑥(meet‘𝑘)𝑤)))) ↔ ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))
42	20, 41	raleqbidv 3345	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑞(le‘𝑘)𝑤 ∧ (𝑞(join‘𝑘)(𝑥(meet‘𝑘)𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝑘)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝑘)‘𝑤))(((DIsoB‘𝑘)‘𝑤)‘(𝑥(meet‘𝑘)𝑤)))) ↔ ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))
43	17, 42	riotaeqbidv 7371	. . . . . 6 ⊢ (𝑘 = 𝐾 → (℩𝑢 ∈ (LSubSp‘((DVecH‘𝑘)‘𝑤))∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑞(le‘𝑘)𝑤 ∧ (𝑞(join‘𝑘)(𝑥(meet‘𝑘)𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝑘)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝑘)‘𝑤))(((DIsoB‘𝑘)‘𝑤)‘(𝑥(meet‘𝑘)𝑤))))) = (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))
44	11, 14, 43	ifbieq12d 4521	. . . . 5 ⊢ (𝑘 = 𝐾 → if(𝑥(le‘𝑘)𝑤, (((DIsoB‘𝑘)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝑘)‘𝑤))∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑞(le‘𝑘)𝑤 ∧ (𝑞(join‘𝑘)(𝑥(meet‘𝑘)𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝑘)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝑘)‘𝑤))(((DIsoB‘𝑘)‘𝑤)‘(𝑥(meet‘𝑘)𝑤)))))) = if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))))
45	7, 44	mpteq12dv 5202	. . . 4 ⊢ (𝑘 = 𝐾 → (𝑥 ∈ (Base‘𝑘) ↦ if(𝑥(le‘𝑘)𝑤, (((DIsoB‘𝑘)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝑘)‘𝑤))∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑞(le‘𝑘)𝑤 ∧ (𝑞(join‘𝑘)(𝑥(meet‘𝑘)𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝑘)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝑘)‘𝑤))(((DIsoB‘𝑘)‘𝑤)‘(𝑥(meet‘𝑘)𝑤))))))) = (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤))))))))
46	4, 45	mpteq12dv 5202	. . 3 ⊢ (𝑘 = 𝐾 → (𝑤 ∈ (LHyp‘𝑘) ↦ (𝑥 ∈ (Base‘𝑘) ↦ if(𝑥(le‘𝑘)𝑤, (((DIsoB‘𝑘)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝑘)‘𝑤))∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑞(le‘𝑘)𝑤 ∧ (𝑞(join‘𝑘)(𝑥(meet‘𝑘)𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝑘)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝑘)‘𝑤))(((DIsoB‘𝑘)‘𝑤)‘(𝑥(meet‘𝑘)𝑤)))))))) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))))))
47		df-dih 41893	. . 3 ⊢ DIsoH = (𝑘 ∈ V ↦ (𝑤 ∈ (LHyp‘𝑘) ↦ (𝑥 ∈ (Base‘𝑘) ↦ if(𝑥(le‘𝑘)𝑤, (((DIsoB‘𝑘)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝑘)‘𝑤))∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑞(le‘𝑘)𝑤 ∧ (𝑞(join‘𝑘)(𝑥(meet‘𝑘)𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝑘)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝑘)‘𝑤))(((DIsoB‘𝑘)‘𝑤)‘(𝑥(meet‘𝑘)𝑤)))))))))
48	46, 47, 3	mptfvmpt 7227	. 2 ⊢ (𝐾 ∈ V → (DIsoH‘𝐾) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))))))
49	1, 48	syl 18	1 ⊢ (𝐾 ∈ 𝑉 → (DIsoH‘𝐾) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑤, (((DIsoB‘𝐾)‘𝑤)‘𝑥), (℩𝑢 ∈ (LSubSp‘((DVecH‘𝐾)‘𝑤))∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑤 ∧ (𝑞 ∨ (𝑥 ∧ 𝑤)) = 𝑥) → 𝑢 = ((((DIsoC‘𝐾)‘𝑤)‘𝑞)(LSSum‘((DVecH‘𝐾)‘𝑤))(((DIsoB‘𝐾)‘𝑤)‘(𝑥 ∧ 𝑤)))))))))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 400   = wceq 1567   ∈ wcel 2149  ∀wral 3085  Vcvv 3463  ifcif 4492   class class class wbr 5113   ↦ cmpt 5196  ‘cfv 6537  ℩crio 7367  (class class class)co 7411  Basecbs 17269  lecple 17317  joincjn 18367  meetcmee 18368  LSSumclsm 19704  LSubSpclss 21030  Atomscatm 39927  LHypclh 40648  DVecHcdvh 41742  DIsoBcdib 41802  DIsoCcdic 41836  DIsoHcdih 41892

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pr 5405

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-id 5557  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-dih 41893

This theorem is referenced by:  dihfval  41895