Theorem mapdordlem2 38317

Description: Lemma for mapdord 38318. Ordering property of projectivity 𝑀. TODO: This was proved using some hacked-up older proofs. Maybe simplify; get rid of the 𝑇 hypothesis. (Contributed by NM, 27-Jan-2015.)

Hypotheses

Ref	Expression
mapdord.h	⊢ 𝐻 = (LHyp‘𝐾)
mapdord.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
mapdord.s	⊢ 𝑆 = (LSubSp‘𝑈)
mapdord.m	⊢ 𝑀 = ((mapd‘𝐾)‘𝑊)
mapdord.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
mapdord.x	⊢ (𝜑 → 𝑋 ∈ 𝑆)
mapdord.y	⊢ (𝜑 → 𝑌 ∈ 𝑆)
mapdord.o	⊢ 𝑂 = ((ocH‘𝐾)‘𝑊)
mapdord.a	⊢ 𝐴 = (LSAtoms‘𝑈)
mapdord.f	⊢ 𝐹 = (LFnl‘𝑈)
mapdord.c	⊢ 𝐽 = (LSHyp‘𝑈)
mapdord.l	⊢ 𝐿 = (LKer‘𝑈)
mapdord.t	⊢ 𝑇 = {𝑔 ∈ 𝐹 ∣ (𝑂‘(𝑂‘(𝐿‘𝑔))) ∈ 𝐽}
mapdord.q	⊢ 𝐶 = {𝑔 ∈ 𝐹 ∣ (𝑂‘(𝑂‘(𝐿‘𝑔))) = (𝐿‘𝑔)}

Assertion

Ref	Expression
mapdordlem2	⊢ (𝜑 → ((𝑀‘𝑋) ⊆ (𝑀‘𝑌) ↔ 𝑋 ⊆ 𝑌))

Distinct variable groups:   𝑔,𝐾   𝑈,𝑔   𝑔,𝑊   𝑔,𝐹   𝑔,𝐽   𝑔,𝐿   𝑔,𝑂

Allowed substitution hints:   𝜑(𝑔)   𝐴(𝑔)   𝐶(𝑔)   𝑆(𝑔)   𝑇(𝑔)   𝐻(𝑔)   𝑀(𝑔)   𝑋(𝑔)   𝑌(𝑔)

Proof of Theorem mapdordlem2

Dummy variables 𝑓 𝑝 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mapdord.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
2		mapdord.u	. . . 4 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
3		mapdord.s	. . . 4 ⊢ 𝑆 = (LSubSp‘𝑈)
4		mapdord.f	. . . 4 ⊢ 𝐹 = (LFnl‘𝑈)
5		mapdord.l	. . . 4 ⊢ 𝐿 = (LKer‘𝑈)
6		mapdord.o	. . . 4 ⊢ 𝑂 = ((ocH‘𝐾)‘𝑊)
7		mapdord.m	. . . 4 ⊢ 𝑀 = ((mapd‘𝐾)‘𝑊)
8		mapdord.k	. . . 4 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
9		mapdord.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝑆)
10		mapdord.q	. . . 4 ⊢ 𝐶 = {𝑔 ∈ 𝐹 ∣ (𝑂‘(𝑂‘(𝐿‘𝑔))) = (𝐿‘𝑔)}
11	1, 2, 3, 4, 5, 6, 7, 8, 9, 10	mapdvalc 38309	. . 3 ⊢ (𝜑 → (𝑀‘𝑋) = {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋})
12		mapdord.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝑆)
13	1, 2, 3, 4, 5, 6, 7, 8, 12, 10	mapdvalc 38309	. . 3 ⊢ (𝜑 → (𝑀‘𝑌) = {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌})
14	11, 13	sseq12d 3923	. 2 ⊢ (𝜑 → ((𝑀‘𝑋) ⊆ (𝑀‘𝑌) ↔ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌}))
15		ss2rab 3970	. . . . 5 ⊢ ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} ↔ ∀𝑓 ∈ 𝐶 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
16		eqid 2794	. . . . . . . . 9 ⊢ (Base‘𝑈) = (Base‘𝑈)
17		mapdord.c	. . . . . . . . 9 ⊢ 𝐽 = (LSHyp‘𝑈)
18		mapdord.t	. . . . . . . . 9 ⊢ 𝑇 = {𝑔 ∈ 𝐹 ∣ (𝑂‘(𝑂‘(𝐿‘𝑔))) ∈ 𝐽}
19	1, 6, 2, 16, 17, 4, 5, 18, 10, 8	mapdordlem1a 38314	. . . . . . . 8 ⊢ (𝜑 → (𝑓 ∈ 𝑇 ↔ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)))
20		simprl 767	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → 𝑓 ∈ 𝐶)
21		idd 24	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → (((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
22	20, 21	embantd 59	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
23	22	ex 413	. . . . . . . 8 ⊢ (𝜑 → ((𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽) → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
24	19, 23	sylbid 241	. . . . . . 7 ⊢ (𝜑 → (𝑓 ∈ 𝑇 → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
25	24	com23 86	. . . . . 6 ⊢ (𝜑 → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → (𝑓 ∈ 𝑇 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
26	25	ralimdv2 3142	. . . . 5 ⊢ (𝜑 → (∀𝑓 ∈ 𝐶 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) → ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
27	15, 26	syl5bi 243	. . . 4 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} → ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
28		mapdord.a	. . . . . 6 ⊢ 𝐴 = (LSAtoms‘𝑈)
29	1, 2, 8	dvhlmod 37790	. . . . . 6 ⊢ (𝜑 → 𝑈 ∈ LMod)
30	3, 28, 29, 9, 12	lssatle 35695	. . . . 5 ⊢ (𝜑 → (𝑋 ⊆ 𝑌 ↔ ∀𝑝 ∈ 𝐴 (𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌)))
31	18	mapdordlem1 38316	. . . . . . . . . . 11 ⊢ (𝑓 ∈ 𝑇 ↔ (𝑓 ∈ 𝐹 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽))
32	31	simprbi 497	. . . . . . . . . 10 ⊢ (𝑓 ∈ 𝑇 → (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)
33	32	adantl 482	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)
34	8	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
35	31	simplbi 498	. . . . . . . . . . 11 ⊢ (𝑓 ∈ 𝑇 → 𝑓 ∈ 𝐹)
36	35	adantl 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → 𝑓 ∈ 𝐹)
37	1, 6, 2, 4, 17, 5, 34, 36	dochlkr 38065	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽 ↔ ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ∧ (𝐿‘𝑓) ∈ 𝐽)))
38	33, 37	mpbid 233	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ∧ (𝐿‘𝑓) ∈ 𝐽))
39	38	simpld 495	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓))
40	38	simprd 496	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝐿‘𝑓) ∈ 𝐽)
41	1, 6, 2, 28, 17, 34, 40	dochshpsat 38134	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ↔ (𝑂‘(𝐿‘𝑓)) ∈ 𝐴))
42	39, 41	mpbid 233	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝑂‘(𝐿‘𝑓)) ∈ 𝐴)
43	1, 2, 8	dvhlvec 37789	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑈 ∈ LVec)
44	43	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑈 ∈ LVec)
45	8	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
46		simpr 485	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ 𝐴)
47	1, 2, 6, 28, 17, 45, 46	dochsatshp 38131	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘𝑝) ∈ 𝐽)
48	17, 4, 5	lshpkrex 35798	. . . . . . . . . 10 ⊢ ((𝑈 ∈ LVec ∧ (𝑂‘𝑝) ∈ 𝐽) → ∃𝑓 ∈ 𝐹 (𝐿‘𝑓) = (𝑂‘𝑝))
49	44, 47, 48	syl2anc 584	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓 ∈ 𝐹 (𝐿‘𝑓) = (𝑂‘𝑝))
50		df-rex 3110	. . . . . . . . 9 ⊢ (∃𝑓 ∈ 𝐹 (𝐿‘𝑓) = (𝑂‘𝑝) ↔ ∃𝑓(𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝)))
51	49, 50	sylib 219	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓(𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝)))
52		simprl 767	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑓 ∈ 𝐹)
53		simprr 769	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝐿‘𝑓) = (𝑂‘𝑝))
54	53	fveq2d 6545	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝐿‘𝑓)) = (𝑂‘(𝑂‘𝑝)))
55	54	fveq2d 6545	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝑂‘(𝑂‘(𝑂‘𝑝))))
56	29	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑈 ∈ LMod)
57	16, 28, 56, 46	lsatssv 35678	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑝 ⊆ (Base‘𝑈))
58		eqid 2794	. . . . . . . . . . . . . . . . . 18 ⊢ ((DIsoH‘𝐾)‘𝑊) = ((DIsoH‘𝐾)‘𝑊)
59	1, 58, 2, 16, 6	dochcl 38033	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ⊆ (Base‘𝑈)) → (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊))
60	45, 57, 59	syl2anc 584	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊))
61	1, 58, 6	dochoc 38047	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊)) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
62	45, 60, 61	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
63	62	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
64	55, 63	eqtrd 2830	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝑂‘𝑝))
65	47	adantr 481	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘𝑝) ∈ 𝐽)
66	64, 65	eqeltrd 2882	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)
67	52, 66, 31	sylanbrc 583	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑓 ∈ 𝑇)
68	1, 2, 58, 28	dih1dimat 38010	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊))
69	45, 46, 68	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊))
70	1, 58, 6	dochoc 38047	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊)) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
71	45, 69, 70	syl2anc 584	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
72	71	adantr 481	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
73	54, 72	eqtr2d 2831	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑝 = (𝑂‘(𝐿‘𝑓)))
74	67, 73	jca 512	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑓 ∈ 𝑇 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓))))
75	74	ex 413	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ((𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝)) → (𝑓 ∈ 𝑇 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓)))))
76	75	eximdv 1896	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (∃𝑓(𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝)) → ∃𝑓(𝑓 ∈ 𝑇 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓)))))
77	51, 76	mpd 15	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓(𝑓 ∈ 𝑇 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓))))
78		df-rex 3110	. . . . . . 7 ⊢ (∃𝑓 ∈ 𝑇 𝑝 = (𝑂‘(𝐿‘𝑓)) ↔ ∃𝑓(𝑓 ∈ 𝑇 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓))))
79	77, 78	sylibr 235	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓 ∈ 𝑇 𝑝 = (𝑂‘(𝐿‘𝑓)))
80		sseq1 3915	. . . . . . . 8 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → (𝑝 ⊆ 𝑋 ↔ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋))
81		sseq1 3915	. . . . . . . 8 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → (𝑝 ⊆ 𝑌 ↔ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
82	80, 81	imbi12d 346	. . . . . . 7 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → ((𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
83	82	adantl 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓))) → ((𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
84	42, 79, 83	ralxfrd 5203	. . . . 5 ⊢ (𝜑 → (∀𝑝 ∈ 𝐴 (𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
85	30, 84	bitr2d 281	. . . 4 ⊢ (𝜑 → (∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) ↔ 𝑋 ⊆ 𝑌))
86	27, 85	sylibd 240	. . 3 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} → 𝑋 ⊆ 𝑌))
87		simplr 765	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → 𝑋 ⊆ 𝑌)
88		sstr 3899	. . . . . . . 8 ⊢ (((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 ∧ 𝑋 ⊆ 𝑌) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)
89	88	ancoms 459	. . . . . . 7 ⊢ ((𝑋 ⊆ 𝑌 ∧ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)
90	89	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → ((𝑋 ⊆ 𝑌 ∧ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
91	87, 90	mpand 691	. . . . 5 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
92	91	ss2rabdv 3975	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ⊆ 𝑌) → {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌})
93	92	ex 413	. . 3 ⊢ (𝜑 → (𝑋 ⊆ 𝑌 → {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌}))
94	86, 93	impbid 213	. 2 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} ↔ 𝑋 ⊆ 𝑌))
95	14, 94	bitrd 280	1 ⊢ (𝜑 → ((𝑀‘𝑋) ⊆ (𝑀‘𝑌) ↔ 𝑋 ⊆ 𝑌))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1522  ∃wex 1762   ∈ wcel 2080  ∀wral 3104  ∃wrex 3105  {crab 3108   ⊆ wss 3861  ran crn 5447  ‘cfv 6228  Basecbs 16312  LModclmod 19324  LSubSpclss 19393  LVecclvec 19564  LSAtomsclsa 35654  LSHypclsh 35655  LFnlclfn 35737  LKerclk 35765  HLchlt 36030  LHypclh 36664  DVecHcdvh 37758  DIsoHcdih 37908  ocHcoch 38027  mapdcmpd 38304

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1778  ax-4 1792  ax-5 1889  ax-6 1948  ax-7 1993  ax-8 2082  ax-9 2090  ax-10 2111  ax-11 2125  ax-12 2140  ax-13 2343  ax-ext 2768  ax-rep 5084  ax-sep 5097  ax-nul 5104  ax-pow 5160  ax-pr 5224  ax-un 7322  ax-cnex 10442  ax-resscn 10443  ax-1cn 10444  ax-icn 10445  ax-addcl 10446  ax-addrcl 10447  ax-mulcl 10448  ax-mulrcl 10449  ax-mulcom 10450  ax-addass 10451  ax-mulass 10452  ax-distr 10453  ax-i2m1 10454  ax-1ne0 10455  ax-1rid 10456  ax-rnegex 10457  ax-rrecex 10458  ax-cnre 10459  ax-pre-lttri 10460  ax-pre-lttrn 10461  ax-pre-ltadd 10462  ax-pre-mulgt0 10463  ax-riotaBAD 35633

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1525  df-fal 1535  df-ex 1763  df-nf 1767  df-sb 2042  df-mo 2575  df-eu 2611  df-clab 2775  df-cleq 2787  df-clel 2862  df-nfc 2934  df-ne 2984  df-nel 3090  df-ral 3109  df-rex 3110  df-reu 3111  df-rmo 3112  df-rab 3113  df-v 3438  df-sbc 3708  df-csb 3814  df-dif 3864  df-un 3866  df-in 3868  df-ss 3876  df-pss 3878  df-nul 4214  df-if 4384  df-pw 4457  df-sn 4475  df-pr 4477  df-tp 4479  df-op 4481  df-uni 4748  df-int 4785  df-iun 4829  df-iin 4830  df-br 4965  df-opab 5027  df-mpt 5044  df-tr 5067  df-id 5351  df-eprel 5356  df-po 5365  df-so 5366  df-fr 5405  df-we 5407  df-xp 5452  df-rel 5453  df-cnv 5454  df-co 5455  df-dm 5456  df-rn 5457  df-res 5458  df-ima 5459  df-pred 6026  df-ord 6072  df-on 6073  df-lim 6074  df-suc 6075  df-iota 6192  df-fun 6230  df-fn 6231  df-f 6232  df-f1 6233  df-fo 6234  df-f1o 6235  df-fv 6236  df-riota 6980  df-ov 7022  df-oprab 7023  df-mpo 7024  df-om 7440  df-1st 7548  df-2nd 7549  df-tpos 7746  df-undef 7793  df-wrecs 7801  df-recs 7863  df-rdg 7901  df-1o 7956  df-oadd 7960  df-er 8142  df-map 8261  df-en 8361  df-dom 8362  df-sdom 8363  df-fin 8364  df-pnf 10526  df-mnf 10527  df-xr 10528  df-ltxr 10529  df-le 10530  df-sub 10721  df-neg 10722  df-nn 11489  df-2 11550  df-3 11551  df-4 11552  df-5 11553  df-6 11554  df-n0 11748  df-z 11832  df-uz 12094  df-fz 12743  df-struct 16314  df-ndx 16315  df-slot 16316  df-base 16318  df-sets 16319  df-ress 16320  df-plusg 16407  df-mulr 16408  df-sca 16410  df-vsca 16411  df-0g 16544  df-proset 17367  df-poset 17385  df-plt 17397  df-lub 17413  df-glb 17414  df-join 17415  df-meet 17416  df-p0 17478  df-p1 17479  df-lat 17485  df-clat 17547  df-mgm 17681  df-sgrp 17723  df-mnd 17734  df-submnd 17775  df-grp 17864  df-minusg 17865  df-sbg 17866  df-subg 18030  df-cntz 18188  df-lsm 18491  df-cmn 18635  df-abl 18636  df-mgp 18930  df-ur 18942  df-ring 18989  df-oppr 19063  df-dvdsr 19081  df-unit 19082  df-invr 19112  df-dvr 19123  df-drng 19194  df-lmod 19326  df-lss 19394  df-lsp 19434  df-lvec 19565  df-lsatoms 35656  df-lshyp 35657  df-lfl 35738  df-lkr 35766  df-oposet 35856  df-ol 35858  df-oml 35859  df-covers 35946  df-ats 35947  df-atl 35978  df-cvlat 36002  df-hlat 36031  df-llines 36178  df-lplanes 36179  df-lvols 36180  df-lines 36181  df-psubsp 36183  df-pmap 36184  df-padd 36476  df-lhyp 36668  df-laut 36669  df-ldil 36784  df-ltrn 36785  df-trl 36839  df-tgrp 37423  df-tendo 37435  df-edring 37437  df-dveca 37683  df-disoa 37709  df-dvech 37759  df-dib 37819  df-dic 37853  df-dih 37909  df-doch 38028  df-djh 38075  df-mapd 38305

This theorem is referenced by:  mapdord  38318