Theorem mapdordlem2 39658

Description: Lemma for mapdord 39659. 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 39650	. . 3 ⊢ (𝜑 → (𝑀‘𝑋) = {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋})
12		mapdord.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝑆)
13	1, 2, 3, 4, 5, 6, 7, 8, 12, 10	mapdvalc 39650	. . 3 ⊢ (𝜑 → (𝑀‘𝑌) = {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌})
14	11, 13	sseq12d 3955	. 2 ⊢ (𝜑 → ((𝑀‘𝑋) ⊆ (𝑀‘𝑌) ↔ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌}))
15		ss2rab 4005	. . . . 5 ⊢ ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} ↔ ∀𝑓 ∈ 𝐶 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
16		eqid 2739	. . . . . . . . 9 ⊢ (Base‘𝑈) = (Base‘𝑈)
17		mapdord.c	. . . . . . . . 9 ⊢ 𝐽 = (LSHyp‘𝑈)
18		mapdord.t	. . . . . . . . 9 ⊢ 𝑇 = {𝑔 ∈ 𝐹 ∣ (𝑂‘(𝑂‘(𝐿‘𝑔))) ∈ 𝐽}
19	1, 6, 2, 16, 17, 4, 5, 18, 10, 8	mapdordlem1a 39655	. . . . . . . 8 ⊢ (𝜑 → (𝑓 ∈ 𝑇 ↔ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)))
20		simprl 768	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → 𝑓 ∈ 𝐶)
21		idd 24	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → (((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
22	20, 21	embantd 59	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
23	22	ex 413	. . . . . . . 8 ⊢ (𝜑 → ((𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽) → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
24	19, 23	sylbid 239	. . . . . . 7 ⊢ (𝜑 → (𝑓 ∈ 𝑇 → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
25	24	com23 86	. . . . . 6 ⊢ (𝜑 → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → (𝑓 ∈ 𝑇 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
26	25	ralimdv2 3108	. . . . 5 ⊢ (𝜑 → (∀𝑓 ∈ 𝐶 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) → ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
27	15, 26	syl5bi 241	. . . 4 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} → ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
28		mapdord.a	. . . . . 6 ⊢ 𝐴 = (LSAtoms‘𝑈)
29	1, 2, 8	dvhlmod 39131	. . . . . 6 ⊢ (𝜑 → 𝑈 ∈ LMod)
30	3, 28, 29, 9, 12	lssatle 37036	. . . . 5 ⊢ (𝜑 → (𝑋 ⊆ 𝑌 ↔ ∀𝑝 ∈ 𝐴 (𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌)))
31	18	mapdordlem1 39657	. . . . . . . . . . 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 39406	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽 ↔ ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ∧ (𝐿‘𝑓) ∈ 𝐽)))
38	33, 37	mpbid 231	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ∧ (𝐿‘𝑓) ∈ 𝐽))
39	38	simpld 495	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓))
40	38	simprd 496	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝐿‘𝑓) ∈ 𝐽)
41	1, 6, 2, 28, 17, 34, 40	dochshpsat 39475	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ↔ (𝑂‘(𝐿‘𝑓)) ∈ 𝐴))
42	39, 41	mpbid 231	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝑂‘(𝐿‘𝑓)) ∈ 𝐴)
43	1, 2, 8	dvhlvec 39130	. . . . . . . . . . 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 39472	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘𝑝) ∈ 𝐽)
48	17, 4, 5	lshpkrex 37139	. . . . . . . . . 10 ⊢ ((𝑈 ∈ LVec ∧ (𝑂‘𝑝) ∈ 𝐽) → ∃𝑓 ∈ 𝐹 (𝐿‘𝑓) = (𝑂‘𝑝))
49	44, 47, 48	syl2anc 584	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓 ∈ 𝐹 (𝐿‘𝑓) = (𝑂‘𝑝))
50		df-rex 3071	. . . . . . . . 9 ⊢ (∃𝑓 ∈ 𝐹 (𝐿‘𝑓) = (𝑂‘𝑝) ↔ ∃𝑓(𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝)))
51	49, 50	sylib 217	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓(𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝)))
52		simprl 768	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑓 ∈ 𝐹)
53		simprr 770	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝐿‘𝑓) = (𝑂‘𝑝))
54	53	fveq2d 6787	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝐿‘𝑓)) = (𝑂‘(𝑂‘𝑝)))
55	54	fveq2d 6787	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝑂‘(𝑂‘(𝑂‘𝑝))))
56	29	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑈 ∈ LMod)
57	16, 28, 56, 46	lsatssv 37019	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑝 ⊆ (Base‘𝑈))
58		eqid 2739	. . . . . . . . . . . . . . . . . 18 ⊢ ((DIsoH‘𝐾)‘𝑊) = ((DIsoH‘𝐾)‘𝑊)
59	1, 58, 2, 16, 6	dochcl 39374	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ⊆ (Base‘𝑈)) → (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊))
60	45, 57, 59	syl2anc 584	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊))
61	1, 58, 6	dochoc 39388	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊)) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
62	45, 60, 61	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
63	62	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
64	55, 63	eqtrd 2779	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝑂‘𝑝))
65	47	adantr 481	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘𝑝) ∈ 𝐽)
66	64, 65	eqeltrd 2840	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)
67	52, 66, 31	sylanbrc 583	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑓 ∈ 𝑇)
68	1, 2, 58, 28	dih1dimat 39351	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊))
69	45, 46, 68	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊))
70	1, 58, 6	dochoc 39388	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊)) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
71	45, 69, 70	syl2anc 584	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
72	71	adantr 481	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
73	54, 72	eqtr2d 2780	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑝 = (𝑂‘(𝐿‘𝑓)))
74	67, 73	jca 512	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑓 ∈ 𝑇 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓))))
75	74	ex 413	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ((𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝)) → (𝑓 ∈ 𝑇 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓)))))
76	75	eximdv 1921	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (∃𝑓(𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝)) → ∃𝑓(𝑓 ∈ 𝑇 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓)))))
77	51, 76	mpd 15	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓(𝑓 ∈ 𝑇 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓))))
78		df-rex 3071	. . . . . . 7 ⊢ (∃𝑓 ∈ 𝑇 𝑝 = (𝑂‘(𝐿‘𝑓)) ↔ ∃𝑓(𝑓 ∈ 𝑇 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓))))
79	77, 78	sylibr 233	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓 ∈ 𝑇 𝑝 = (𝑂‘(𝐿‘𝑓)))
80		sseq1 3947	. . . . . . . 8 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → (𝑝 ⊆ 𝑋 ↔ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋))
81		sseq1 3947	. . . . . . . 8 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → (𝑝 ⊆ 𝑌 ↔ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
82	80, 81	imbi12d 345	. . . . . . 7 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → ((𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
83	82	adantl 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓))) → ((𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
84	42, 79, 83	ralxfrd 5332	. . . . 5 ⊢ (𝜑 → (∀𝑝 ∈ 𝐴 (𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
85	30, 84	bitr2d 279	. . . 4 ⊢ (𝜑 → (∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) ↔ 𝑋 ⊆ 𝑌))
86	27, 85	sylibd 238	. . 3 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} → 𝑋 ⊆ 𝑌))
87		simplr 766	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → 𝑋 ⊆ 𝑌)
88		sstr 3930	. . . . . . . 8 ⊢ (((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 ∧ 𝑋 ⊆ 𝑌) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)
89	88	ancoms 459	. . . . . . 7 ⊢ ((𝑋 ⊆ 𝑌 ∧ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)
90	89	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → ((𝑋 ⊆ 𝑌 ∧ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
91	87, 90	mpand 692	. . . . 5 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
92	91	ss2rabdv 4010	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ⊆ 𝑌) → {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌})
93	92	ex 413	. . 3 ⊢ (𝜑 → (𝑋 ⊆ 𝑌 → {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌}))
94	86, 93	impbid 211	. 2 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} ↔ 𝑋 ⊆ 𝑌))
95	14, 94	bitrd 278	1 ⊢ (𝜑 → ((𝑀‘𝑋) ⊆ (𝑀‘𝑌) ↔ 𝑋 ⊆ 𝑌))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1539  ∃wex 1782   ∈ wcel 2107  ∀wral 3065  ∃wrex 3066  {crab 3069   ⊆ wss 3888  ran crn 5591  ‘cfv 6437  Basecbs 16921  LModclmod 20132  LSubSpclss 20202  LVecclvec 20373  LSAtomsclsa 36995  LSHypclsh 36996  LFnlclfn 37078  LKerclk 37106  HLchlt 37371  LHypclh 38005  DVecHcdvh 39099  DIsoHcdih 39249  ocHcoch 39368  mapdcmpd 39645

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2710  ax-rep 5210  ax-sep 5224  ax-nul 5231  ax-pow 5289  ax-pr 5353  ax-un 7597  ax-cnex 10936  ax-resscn 10937  ax-1cn 10938  ax-icn 10939  ax-addcl 10940  ax-addrcl 10941  ax-mulcl 10942  ax-mulrcl 10943  ax-mulcom 10944  ax-addass 10945  ax-mulass 10946  ax-distr 10947  ax-i2m1 10948  ax-1ne0 10949  ax-1rid 10950  ax-rnegex 10951  ax-rrecex 10952  ax-cnre 10953  ax-pre-lttri 10954  ax-pre-lttrn 10955  ax-pre-ltadd 10956  ax-pre-mulgt0 10957  ax-riotaBAD 36974

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2541  df-eu 2570  df-clab 2717  df-cleq 2731  df-clel 2817  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3070  df-rex 3071  df-rmo 3072  df-reu 3073  df-rab 3074  df-v 3435  df-sbc 3718  df-csb 3834  df-dif 3891  df-un 3893  df-in 3895  df-ss 3905  df-pss 3907  df-nul 4258  df-if 4461  df-pw 4536  df-sn 4563  df-pr 4565  df-tp 4567  df-op 4569  df-uni 4841  df-int 4881  df-iun 4927  df-iin 4928  df-br 5076  df-opab 5138  df-mpt 5159  df-tr 5193  df-id 5490  df-eprel 5496  df-po 5504  df-so 5505  df-fr 5545  df-we 5547  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-pred 6206  df-ord 6273  df-on 6274  df-lim 6275  df-suc 6276  df-iota 6395  df-fun 6439  df-fn 6440  df-f 6441  df-f1 6442  df-fo 6443  df-f1o 6444  df-fv 6445  df-riota 7241  df-ov 7287  df-oprab 7288  df-mpo 7289  df-om 7722  df-1st 7840  df-2nd 7841  df-tpos 8051  df-undef 8098  df-frecs 8106  df-wrecs 8137  df-recs 8211  df-rdg 8250  df-1o 8306  df-er 8507  df-map 8626  df-en 8743  df-dom 8744  df-sdom 8745  df-fin 8746  df-pnf 11020  df-mnf 11021  df-xr 11022  df-ltxr 11023  df-le 11024  df-sub 11216  df-neg 11217  df-nn 11983  df-2 12045  df-3 12046  df-4 12047  df-5 12048  df-6 12049  df-n0 12243  df-z 12329  df-uz 12592  df-fz 13249  df-struct 16857  df-sets 16874  df-slot 16892  df-ndx 16904  df-base 16922  df-ress 16951  df-plusg 16984  df-mulr 16985  df-sca 16987  df-vsca 16988  df-0g 17161  df-proset 18022  df-poset 18040  df-plt 18057  df-lub 18073  df-glb 18074  df-join 18075  df-meet 18076  df-p0 18152  df-p1 18153  df-lat 18159  df-clat 18226  df-mgm 18335  df-sgrp 18384  df-mnd 18395  df-submnd 18440  df-grp 18589  df-minusg 18590  df-sbg 18591  df-subg 18761  df-cntz 18932  df-lsm 19250  df-cmn 19397  df-abl 19398  df-mgp 19730  df-ur 19747  df-ring 19794  df-oppr 19871  df-dvdsr 19892  df-unit 19893  df-invr 19923  df-dvr 19934  df-drng 20002  df-lmod 20134  df-lss 20203  df-lsp 20243  df-lvec 20374  df-lsatoms 36997  df-lshyp 36998  df-lfl 37079  df-lkr 37107  df-oposet 37197  df-ol 37199  df-oml 37200  df-covers 37287  df-ats 37288  df-atl 37319  df-cvlat 37343  df-hlat 37372  df-llines 37519  df-lplanes 37520  df-lvols 37521  df-lines 37522  df-psubsp 37524  df-pmap 37525  df-padd 37817  df-lhyp 38009  df-laut 38010  df-ldil 38125  df-ltrn 38126  df-trl 38180  df-tgrp 38764  df-tendo 38776  df-edring 38778  df-dveca 39024  df-disoa 39050  df-dvech 39100  df-dib 39160  df-dic 39194  df-dih 39250  df-doch 39369  df-djh 39416  df-mapd 39646

This theorem is referenced by:  mapdord  39659