Theorem dihval 40406

Description: Value of isomorphism H for a lattice 𝐾. Definition of isomorphism map in [Crawley] p. 122 line 3. (Contributed by NM, 3-Feb-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
dihval	⊢ (((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐼‘𝑋) = if(𝑋 ≤ 𝑊, (𝐷‘𝑋), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))))))

Distinct variable groups:   𝐴,𝑞   𝑢,𝑞,𝐾   𝑢,𝑆   𝑊,𝑞,𝑢   𝑋,𝑞,𝑢

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

Proof of Theorem dihval

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		dihval.b	. . . 4 ⊢ 𝐵 = (Base‘𝐾)
2		dihval.l	. . . 4 ⊢ ≤ = (le‘𝐾)
3		dihval.j	. . . 4 ⊢ ∨ = (join‘𝐾)
4		dihval.m	. . . 4 ⊢ ∧ = (meet‘𝐾)
5		dihval.a	. . . 4 ⊢ 𝐴 = (Atoms‘𝐾)
6		dihval.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
7		dihval.i	. . . 4 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
8		dihval.d	. . . 4 ⊢ 𝐷 = ((DIsoB‘𝐾)‘𝑊)
9		dihval.c	. . . 4 ⊢ 𝐶 = ((DIsoC‘𝐾)‘𝑊)
10		dihval.u	. . . 4 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
11		dihval.s	. . . 4 ⊢ 𝑆 = (LSubSp‘𝑈)
12		dihval.p	. . . 4 ⊢ ⊕ = (LSSum‘𝑈)
13	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12	dihfval 40405	. . 3 ⊢ ((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) → 𝐼 = (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))))
14	13	fveq1d 6893	. 2 ⊢ ((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) → (𝐼‘𝑋) = ((𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊)))))))‘𝑋))
15		breq1 5151	. . . 4 ⊢ (𝑥 = 𝑋 → (𝑥 ≤ 𝑊 ↔ 𝑋 ≤ 𝑊))
16		fveq2 6891	. . . 4 ⊢ (𝑥 = 𝑋 → (𝐷‘𝑥) = (𝐷‘𝑋))
17		oveq1 7418	. . . . . . . . . 10 ⊢ (𝑥 = 𝑋 → (𝑥 ∧ 𝑊) = (𝑋 ∧ 𝑊))
18	17	oveq2d 7427	. . . . . . . . 9 ⊢ (𝑥 = 𝑋 → (𝑞 ∨ (𝑥 ∧ 𝑊)) = (𝑞 ∨ (𝑋 ∧ 𝑊)))
19		id 22	. . . . . . . . 9 ⊢ (𝑥 = 𝑋 → 𝑥 = 𝑋)
20	18, 19	eqeq12d 2748	. . . . . . . 8 ⊢ (𝑥 = 𝑋 → ((𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥 ↔ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))
21	20	anbi2d 629	. . . . . . 7 ⊢ (𝑥 = 𝑋 → ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) ↔ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)))
22		fvoveq1 7434	. . . . . . . . 9 ⊢ (𝑥 = 𝑋 → (𝐷‘(𝑥 ∧ 𝑊)) = (𝐷‘(𝑋 ∧ 𝑊)))
23	22	oveq2d 7427	. . . . . . . 8 ⊢ (𝑥 = 𝑋 → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))) = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))
24	23	eqeq2d 2743	. . . . . . 7 ⊢ (𝑥 = 𝑋 → (𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))) ↔ 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))))
25	21, 24	imbi12d 344	. . . . . 6 ⊢ (𝑥 = 𝑋 → (((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊)))) ↔ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))))
26	25	ralbidv 3177	. . . . 5 ⊢ (𝑥 = 𝑋 → (∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊)))) ↔ ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))))
27	26	riotabidv 7369	. . . 4 ⊢ (𝑥 = 𝑋 → (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))) = (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))))
28	15, 16, 27	ifbieq12d 4556	. . 3 ⊢ (𝑥 = 𝑋 → if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊)))))) = if(𝑋 ≤ 𝑊, (𝐷‘𝑋), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))))))
29		eqid 2732	. . 3 ⊢ (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊))))))) = (𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊)))))))
30		fvex 6904	. . . 4 ⊢ (𝐷‘𝑋) ∈ V
31		riotaex 7371	. . . 4 ⊢ (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))) ∈ V
32	30, 31	ifex 4578	. . 3 ⊢ if(𝑋 ≤ 𝑊, (𝐷‘𝑋), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))))) ∈ V
33	28, 29, 32	fvmpt 6998	. 2 ⊢ (𝑋 ∈ 𝐵 → ((𝑥 ∈ 𝐵 ↦ if(𝑥 ≤ 𝑊, (𝐷‘𝑥), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑥 ∧ 𝑊)))))))‘𝑋) = if(𝑋 ≤ 𝑊, (𝐷‘𝑋), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))))))
34	14, 33	sylan9eq 2792	1 ⊢ (((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐼‘𝑋) = if(𝑋 ≤ 𝑊, (𝐷‘𝑋), (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))))))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 396   = wceq 1541   ∈ wcel 2106  ∀wral 3061  ifcif 4528   class class class wbr 5148   ↦ cmpt 5231  ‘cfv 6543  ℩crio 7366  (class class class)co 7411  Basecbs 17148  lecple 17208  joincjn 18268  meetcmee 18269  LSSumclsm 19543  LSubSpclss 20686  Atomscatm 38436  LHypclh 39158  DVecHcdvh 40252  DIsoBcdib 40312  DIsoCcdic 40346  DIsoHcdih 40402

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pr 5427

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-ral 3062  df-rex 3071  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-nul 4323  df-if 4529  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5574  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7367  df-ov 7414  df-dih 40403

This theorem is referenced by:  dihvalc  40407  dihvalb  40411