Theorem mapdordlem2 42258

Description: Lemma for mapdord 42259. 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 42250	. . 3 ⊢ (𝜑 → (𝑀‘𝑋) = {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋})
12		mapdord.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝑆)
13	1, 2, 3, 4, 5, 6, 7, 8, 12, 10	mapdvalc 42250	. . 3 ⊢ (𝜑 → (𝑀‘𝑌) = {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌})
14	11, 13	sseq12d 3969	. 2 ⊢ (𝜑 → ((𝑀‘𝑋) ⊆ (𝑀‘𝑌) ↔ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌}))
15		ss2rab 4022	. . . . 5 ⊢ ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} ↔ ∀𝑓 ∈ 𝐶 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
16		eqid 2762	. . . . . . . . 9 ⊢ (Base‘𝑈) = (Base‘𝑈)
17		mapdord.c	. . . . . . . . 9 ⊢ 𝐽 = (LSHyp‘𝑈)
18		mapdord.t	. . . . . . . . 9 ⊢ 𝑇 = {𝑔 ∈ 𝐹 ∣ (𝑂‘(𝑂‘(𝐿‘𝑔))) ∈ 𝐽}
19	1, 6, 2, 16, 17, 4, 5, 18, 10, 8	mapdordlem1a 42255	. . . . . . . 8 ⊢ (𝜑 → (𝑓 ∈ 𝑇 ↔ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)))
20		simprl 780	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → 𝑓 ∈ 𝐶)
21		idd 24	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → (((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
22	20, 21	embantd 59	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
23	22	ex 416	. . . . . . . 8 ⊢ (𝜑 → ((𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽) → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
24	19, 23	sylbid 242	. . . . . . 7 ⊢ (𝜑 → (𝑓 ∈ 𝑇 → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
25	24	com23 86	. . . . . 6 ⊢ (𝜑 → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → (𝑓 ∈ 𝑇 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
26	25	ralimdv2 3171	. . . . 5 ⊢ (𝜑 → (∀𝑓 ∈ 𝐶 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) → ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
27	15, 26	biimtrid 244	. . . 4 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} → ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
28		mapdord.a	. . . . . 6 ⊢ 𝐴 = (LSAtoms‘𝑈)
29	1, 2, 8	dvhlmod 41731	. . . . . 6 ⊢ (𝜑 → 𝑈 ∈ LMod)
30	3, 28, 29, 9, 12	lssatle 39636	. . . . 5 ⊢ (𝜑 → (𝑋 ⊆ 𝑌 ↔ ∀𝑝 ∈ 𝐴 (𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌)))
31	18	mapdordlem1 42257	. . . . . . . . . . 11 ⊢ (𝑓 ∈ 𝑇 ↔ (𝑓 ∈ 𝐹 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽))
32	31	simprbi 501	. . . . . . . . . 10 ⊢ (𝑓 ∈ 𝑇 → (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)
33	32	adantl 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)
34	8	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
35	31	simplbi 500	. . . . . . . . . . 11 ⊢ (𝑓 ∈ 𝑇 → 𝑓 ∈ 𝐹)
36	35	adantl 485	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → 𝑓 ∈ 𝐹)
37	1, 6, 2, 4, 17, 5, 34, 36	dochlkr 42006	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽 ↔ ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ∧ (𝐿‘𝑓) ∈ 𝐽)))
38	33, 37	mpbid 234	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ∧ (𝐿‘𝑓) ∈ 𝐽))
39	38	simpld 498	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓))
40	38	simprd 499	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝐿‘𝑓) ∈ 𝐽)
41	1, 6, 2, 28, 17, 34, 40	dochshpsat 42075	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ↔ (𝑂‘(𝐿‘𝑓)) ∈ 𝐴))
42	39, 41	mpbid 234	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝑂‘(𝐿‘𝑓)) ∈ 𝐴)
43	1, 2, 8	dvhlvec 41730	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ LVec)
44	8	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
45		simpr 488	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ 𝐴)
46	1, 2, 6, 28, 17, 44, 45	dochsatshp 42072	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘𝑝) ∈ 𝐽)
47	17, 4, 5	lshpkrex 39739	. . . . . . . 8 ⊢ ((𝑈 ∈ LVec ∧ (𝑂‘𝑝) ∈ 𝐽) → ∃𝑓 ∈ 𝐹 (𝐿‘𝑓) = (𝑂‘𝑝))
48	43, 46, 47	syl2an2r 695	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓 ∈ 𝐹 (𝐿‘𝑓) = (𝑂‘𝑝))
49		simprl 780	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑓 ∈ 𝐹)
50		simprr 782	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝐿‘𝑓) = (𝑂‘𝑝))
51	50	fveq2d 6871	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝐿‘𝑓)) = (𝑂‘(𝑂‘𝑝)))
52	51	fveq2d 6871	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝑂‘(𝑂‘(𝑂‘𝑝))))
53	29	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑈 ∈ LMod)
54	16, 28, 53, 45	lsatssv 39619	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑝 ⊆ (Base‘𝑈))
55		eqid 2762	. . . . . . . . . . . . . 14 ⊢ ((DIsoH‘𝐾)‘𝑊) = ((DIsoH‘𝐾)‘𝑊)
56	1, 55, 2, 16, 6	dochcl 41974	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ⊆ (Base‘𝑈)) → (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊))
57	8, 54, 56	syl2an2r 695	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊))
58	1, 55, 6	dochoc 41988	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊)) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
59	8, 57, 58	syl2an2r 695	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
60	59	adantr 484	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
61	52, 60	eqtrd 2797	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝑂‘𝑝))
62	46	adantr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘𝑝) ∈ 𝐽)
63	61, 62	eqeltrd 2862	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)
64	49, 63, 31	sylanbrc 592	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑓 ∈ 𝑇)
65	1, 2, 55, 28	dih1dimat 41951	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊))
66	8, 45, 65	syl2an2r 695	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊))
67	1, 55, 6	dochoc 41988	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊)) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
68	8, 66, 67	syl2an2r 695	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
69	68	adantr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
70	51, 69	eqtr2d 2798	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑝 = (𝑂‘(𝐿‘𝑓)))
71	48, 64, 70	reximssdv 3180	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓 ∈ 𝑇 𝑝 = (𝑂‘(𝐿‘𝑓)))
72		sseq1 3961	. . . . . . . 8 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → (𝑝 ⊆ 𝑋 ↔ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋))
73		sseq1 3961	. . . . . . . 8 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → (𝑝 ⊆ 𝑌 ↔ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
74	72, 73	imbi12d 346	. . . . . . 7 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → ((𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
75	74	adantl 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓))) → ((𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
76	42, 71, 75	ralxfrd 5365	. . . . 5 ⊢ (𝜑 → (∀𝑝 ∈ 𝐴 (𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
77	30, 76	bitr2d 282	. . . 4 ⊢ (𝜑 → (∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) ↔ 𝑋 ⊆ 𝑌))
78	27, 77	sylibd 241	. . 3 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} → 𝑋 ⊆ 𝑌))
79		simplr 778	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → 𝑋 ⊆ 𝑌)
80		sstr 3944	. . . . . . . 8 ⊢ (((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 ∧ 𝑋 ⊆ 𝑌) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)
81	80	ancoms 462	. . . . . . 7 ⊢ ((𝑋 ⊆ 𝑌 ∧ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)
82	81	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → ((𝑋 ⊆ 𝑌 ∧ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
83	79, 82	mpand 705	. . . . 5 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
84	83	ss2rabdv 4028	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ⊆ 𝑌) → {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌})
85	84	ex 416	. . 3 ⊢ (𝜑 → (𝑋 ⊆ 𝑌 → {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌}))
86	78, 85	impbid 214	. 2 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} ↔ 𝑋 ⊆ 𝑌))
87	14, 86	bitrd 281	1 ⊢ (𝜑 → ((𝑀‘𝑋) ⊆ (𝑀‘𝑌) ↔ 𝑋 ⊆ 𝑌))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399   = wceq 1560   ∈ wcel 2142  ∀wral 3076  ∃wrex 3086  {crab 3414   ⊆ wss 3904  ran crn 5648  ‘cfv 6521  Basecbs 17245  LModclmod 20924  LSubSpclss 20995  LVecclvec 21166  LSAtomsclsa 39595  LSHypclsh 39596  LFnlclfn 39678  LKerclk 39706  HLchlt 39971  LHypclh 40605  DVecHcdvh 41699  DIsoHcdih 41849  ocHcoch 41968  mapdcmpd 42245

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-rep 5227  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718  ax-cnex 11129  ax-resscn 11130  ax-1cn 11131  ax-icn 11132  ax-addcl 11133  ax-addrcl 11134  ax-mulcl 11135  ax-mulrcl 11136  ax-mulcom 11137  ax-addass 11138  ax-mulass 11139  ax-distr 11140  ax-i2m1 11141  ax-1ne0 11142  ax-1rid 11143  ax-rnegex 11144  ax-rrecex 11145  ax-cnre 11146  ax-pre-lttri 11147  ax-pre-lttrn 11148  ax-pre-ltadd 11149  ax-pre-mulgt0 11150  ax-riotaBAD 39574

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-int 4906  df-iun 4951  df-iin 4952  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6288  df-ord 6349  df-on 6350  df-lim 6351  df-suc 6352  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-om 7847  df-1st 7970  df-2nd 7971  df-tpos 8206  df-undef 8253  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8381  df-1o 8437  df-er 8678  df-map 8810  df-en 8928  df-dom 8929  df-sdom 8930  df-fin 8931  df-pnf 11218  df-mnf 11219  df-xr 11220  df-ltxr 11221  df-le 11222  df-sub 11416  df-neg 11417  df-nn 12211  df-2 12280  df-3 12281  df-4 12282  df-5 12283  df-6 12284  df-n0 12482  df-z 12569  df-uz 12840  df-fz 13513  df-struct 17183  df-sets 17200  df-slot 17218  df-ndx 17230  df-base 17246  df-ress 17267  df-plusg 17299  df-mulr 17300  df-sca 17302  df-vsca 17303  df-0g 17470  df-proset 18326  df-poset 18345  df-plt 18360  df-lub 18376  df-glb 18377  df-join 18378  df-meet 18379  df-p0 18455  df-p1 18456  df-lat 18464  df-clat 18531  df-mgm 18674  df-sgrp 18753  df-mnd 18769  df-submnd 18818  df-grp 18978  df-minusg 18979  df-sbg 18980  df-subg 19165  df-cntz 19357  df-lsm 19676  df-cmn 19822  df-abl 19823  df-mgp 20187  df-rng 20199  df-ur 20228  df-ring 20281  df-oppr 20382  df-dvdsr 20402  df-unit 20403  df-invr 20433  df-dvr 20446  df-drng 20777  df-lmod 20926  df-lss 20996  df-lsp 21036  df-lvec 21167  df-lsatoms 39597  df-lshyp 39598  df-lfl 39679  df-lkr 39707  df-oposet 39797  df-ol 39799  df-oml 39800  df-covers 39887  df-ats 39888  df-atl 39919  df-cvlat 39943  df-hlat 39972  df-llines 40119  df-lplanes 40120  df-lvols 40121  df-lines 40122  df-psubsp 40124  df-pmap 40125  df-padd 40417  df-lhyp 40609  df-laut 40610  df-ldil 40725  df-ltrn 40726  df-trl 40780  df-tgrp 41364  df-tendo 41376  df-edring 41378  df-dveca 41624  df-disoa 41650  df-dvech 41700  df-dib 41760  df-dic 41794  df-dih 41850  df-doch 41969  df-djh 42016  df-mapd 42246

This theorem is referenced by:  mapdord  42259