Theorem pmapsub 40520

Description: The projective map of a Hilbert lattice maps to projective subspaces. Part of Theorem 15.5 of [MaedaMaeda] p. 62. (Contributed by NM, 17-Oct-2011.)

Hypotheses

Ref	Expression
pmapsub.b	⊢ 𝐵 = (Base‘𝐾)
pmapsub.s	⊢ 𝑆 = (PSubSp‘𝐾)
pmapsub.m	⊢ 𝑀 = (pmap‘𝐾)

Assertion

Ref	Expression
pmapsub	⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) → (𝑀‘𝑋) ∈ 𝑆)

Proof of Theorem pmapsub

Dummy variables 𝑞 𝑝 𝑟 𝑐 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pmapsub.b	. . 3 ⊢ 𝐵 = (Base‘𝐾)
2		eqid 2763	. . 3 ⊢ (le‘𝐾) = (le‘𝐾)
3		eqid 2763	. . 3 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
4		pmapsub.m	. . 3 ⊢ 𝑀 = (pmap‘𝐾)
5	1, 2, 3, 4	pmapval 40509	. 2 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) → (𝑀‘𝑋) = {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})
6		breq1 5113	. . . . . . . . . . . . . 14 ⊢ (𝑐 = 𝑝 → (𝑐(le‘𝐾)𝑋 ↔ 𝑝(le‘𝐾)𝑋))
7	6	elrab 3651	. . . . . . . . . . . . 13 ⊢ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ↔ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋))
8	1, 3	atbase 40041	. . . . . . . . . . . . . 14 ⊢ (𝑝 ∈ (Atoms‘𝐾) → 𝑝 ∈ 𝐵)
9	8	anim1i 626	. . . . . . . . . . . . 13 ⊢ ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋) → (𝑝 ∈ 𝐵 ∧ 𝑝(le‘𝐾)𝑋))
10	7, 9	sylbi 220	. . . . . . . . . . . 12 ⊢ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} → (𝑝 ∈ 𝐵 ∧ 𝑝(le‘𝐾)𝑋))
11		breq1 5113	. . . . . . . . . . . . . 14 ⊢ (𝑐 = 𝑞 → (𝑐(le‘𝐾)𝑋 ↔ 𝑞(le‘𝐾)𝑋))
12	11	elrab 3651	. . . . . . . . . . . . 13 ⊢ (𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ↔ (𝑞 ∈ (Atoms‘𝐾) ∧ 𝑞(le‘𝐾)𝑋))
13	1, 3	atbase 40041	. . . . . . . . . . . . . 14 ⊢ (𝑞 ∈ (Atoms‘𝐾) → 𝑞 ∈ 𝐵)
14	13	anim1i 626	. . . . . . . . . . . . 13 ⊢ ((𝑞 ∈ (Atoms‘𝐾) ∧ 𝑞(le‘𝐾)𝑋) → (𝑞 ∈ 𝐵 ∧ 𝑞(le‘𝐾)𝑋))
15	12, 14	sylbi 220	. . . . . . . . . . . 12 ⊢ (𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} → (𝑞 ∈ 𝐵 ∧ 𝑞(le‘𝐾)𝑋))
16	10, 15	anim12i 624	. . . . . . . . . . 11 ⊢ ((𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}) → ((𝑝 ∈ 𝐵 ∧ 𝑝(le‘𝐾)𝑋) ∧ (𝑞 ∈ 𝐵 ∧ 𝑞(le‘𝐾)𝑋)))
17		an4 668	. . . . . . . . . . 11 ⊢ (((𝑝 ∈ 𝐵 ∧ 𝑝(le‘𝐾)𝑋) ∧ (𝑞 ∈ 𝐵 ∧ 𝑞(le‘𝐾)𝑋)) ↔ ((𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) ∧ (𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋)))
18	16, 17	sylib 221	. . . . . . . . . 10 ⊢ ((𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}) → ((𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) ∧ (𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋)))
19	18	anim2i 628	. . . . . . . . 9 ⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) → ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ ((𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) ∧ (𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋))))
20	1, 3	atbase 40041	. . . . . . . . 9 ⊢ (𝑟 ∈ (Atoms‘𝐾) → 𝑟 ∈ 𝐵)
21		eqid 2763	. . . . . . . . . . . . . . . . 17 ⊢ (join‘𝐾) = (join‘𝐾)
22	1, 2, 21	latjle12 18507	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ Lat ∧ (𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵)) → ((𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋) ↔ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋))
23	22	biimpd 232	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Lat ∧ (𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵)) → ((𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋))
24	23	3exp2 1373	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Lat → (𝑝 ∈ 𝐵 → (𝑞 ∈ 𝐵 → (𝑋 ∈ 𝐵 → ((𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋)))))
25	24	impd 415	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ Lat → ((𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) → (𝑋 ∈ 𝐵 → ((𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋))))
26	25	com23 87	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ Lat → (𝑋 ∈ 𝐵 → ((𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) → ((𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋))))
27	26	imp43 432	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ ((𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) ∧ (𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋))) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋)
28	27	adantr 485	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ ((𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) ∧ (𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋))) ∧ 𝑟 ∈ 𝐵) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋)
29	1, 21	latjcl 18496	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Lat ∧ 𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) → (𝑝(join‘𝐾)𝑞) ∈ 𝐵)
30	29	3expib 1140	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ Lat → ((𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) → (𝑝(join‘𝐾)𝑞) ∈ 𝐵))
31	1, 2	lattr 18501	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Lat ∧ (𝑟 ∈ 𝐵 ∧ (𝑝(join‘𝐾)𝑞) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵)) → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋))
32	31	3exp2 1373	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Lat → (𝑟 ∈ 𝐵 → ((𝑝(join‘𝐾)𝑞) ∈ 𝐵 → (𝑋 ∈ 𝐵 → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋)))))
33	32	com24 96	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ Lat → (𝑋 ∈ 𝐵 → ((𝑝(join‘𝐾)𝑞) ∈ 𝐵 → (𝑟 ∈ 𝐵 → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋)))))
34	30, 33	syl5d 74	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ Lat → (𝑋 ∈ 𝐵 → ((𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) → (𝑟 ∈ 𝐵 → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋)))))
35	34	imp41 430	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ (𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵)) ∧ 𝑟 ∈ 𝐵) → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋))
36	35	adantlrr 733	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ ((𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) ∧ (𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋))) ∧ 𝑟 ∈ 𝐵) → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋))
37	28, 36	mpan2d 706	. . . . . . . . 9 ⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ ((𝑝 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) ∧ (𝑝(le‘𝐾)𝑋 ∧ 𝑞(le‘𝐾)𝑋))) ∧ 𝑟 ∈ 𝐵) → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟(le‘𝐾)𝑋))
38	19, 20, 37	syl2an 607	. . . . . . . 8 ⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) ∧ 𝑟 ∈ (Atoms‘𝐾)) → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟(le‘𝐾)𝑋))
39		simpr 489	. . . . . . . 8 ⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) ∧ 𝑟 ∈ (Atoms‘𝐾)) → 𝑟 ∈ (Atoms‘𝐾))
40	38, 39	jctild 534	. . . . . . 7 ⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) ∧ 𝑟 ∈ (Atoms‘𝐾)) → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → (𝑟 ∈ (Atoms‘𝐾) ∧ 𝑟(le‘𝐾)𝑋)))
41		breq1 5113	. . . . . . . 8 ⊢ (𝑐 = 𝑟 → (𝑐(le‘𝐾)𝑋 ↔ 𝑟(le‘𝐾)𝑋))
42	41	elrab 3651	. . . . . . 7 ⊢ (𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ↔ (𝑟 ∈ (Atoms‘𝐾) ∧ 𝑟(le‘𝐾)𝑋))
43	40, 42	imbitrrdi 255	. . . . . 6 ⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) ∧ 𝑟 ∈ (Atoms‘𝐾)) → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}))
44	43	ralrimiva 3157	. . . . 5 ⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) → ∀𝑟 ∈ (Atoms‘𝐾)(𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}))
45	44	ralrimivva 3208	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) → ∀𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑟 ∈ (Atoms‘𝐾)(𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}))
46		ssrab2 4035	. . . 4 ⊢ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ⊆ (Atoms‘𝐾)
47	45, 46	jctil 528	. . 3 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) → ({𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ⊆ (Atoms‘𝐾) ∧ ∀𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑟 ∈ (Atoms‘𝐾)(𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})))
48		pmapsub.s	. . . . 5 ⊢ 𝑆 = (PSubSp‘𝐾)
49	2, 21, 3, 48	ispsubsp 40497	. . . 4 ⊢ (𝐾 ∈ Lat → ({𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∈ 𝑆 ↔ ({𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ⊆ (Atoms‘𝐾) ∧ ∀𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑟 ∈ (Atoms‘𝐾)(𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}))))
50	49	adantr 485	. . 3 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) → ({𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∈ 𝑆 ↔ ({𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ⊆ (Atoms‘𝐾) ∧ ∀𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑟 ∈ (Atoms‘𝐾)(𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}))))
51	47, 50	mpbird 260	. 2 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) → {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∈ 𝑆)
52	5, 51	eqeltrd 2863	1 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) → (𝑀‘𝑋) ∈ 𝑆)

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1103   = wceq 1570   ∈ wcel 2143  ∀wral 3079  {crab 3416   ⊆ wss 3906   class class class wbr 5110  ‘cfv 6538  (class class class)co 7412  Basecbs 17270  lecple 17318  joincjn 18368  Latclat 18488  Atomscatm 40015  PSubSpcpsubsp 40248  pmapcpmap 40249

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-id 5558  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-riota 7369  df-ov 7415  df-oprab 7416  df-poset 18370  df-lub 18401  df-glb 18402  df-join 18403  df-meet 18404  df-lat 18489  df-ats 40019  df-psubsp 40255  df-pmap 40256

This theorem is referenced by:  hlmod1i  40608  polsubN  40659  pl42lem4N  40734