Theorem mapdordlem2 42469

Description: Lemma for mapdord 42470. 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 42461	. . 3 ⊢ (𝜑 → (𝑀‘𝑋) = {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋})
12		mapdord.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝑆)
13	1, 2, 3, 4, 5, 6, 7, 8, 12, 10	mapdvalc 42461	. . 3 ⊢ (𝜑 → (𝑀‘𝑌) = {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌})
14	11, 13	sseq12d 3971	. 2 ⊢ (𝜑 → ((𝑀‘𝑋) ⊆ (𝑀‘𝑌) ↔ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌}))
15		ss2rab 4024	. . . . 5 ⊢ ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} ↔ ∀𝑓 ∈ 𝐶 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
16		eqid 2765	. . . . . . . . 9 ⊢ (Base‘𝑈) = (Base‘𝑈)
17		mapdord.c	. . . . . . . . 9 ⊢ 𝐽 = (LSHyp‘𝑈)
18		mapdord.t	. . . . . . . . 9 ⊢ 𝑇 = {𝑔 ∈ 𝐹 ∣ (𝑂‘(𝑂‘(𝐿‘𝑔))) ∈ 𝐽}
19	1, 6, 2, 16, 17, 4, 5, 18, 10, 8	mapdordlem1a 42466	. . . . . . . 8 ⊢ (𝜑 → (𝑓 ∈ 𝑇 ↔ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)))
20		simprl 783	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → 𝑓 ∈ 𝐶)
21		idd 25	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → (((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
22	20, 21	embantd 60	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)) → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
23	22	ex 418	. . . . . . . 8 ⊢ (𝜑 → ((𝑓 ∈ 𝐶 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽) → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
24	19, 23	sylbid 243	. . . . . . 7 ⊢ (𝜑 → (𝑓 ∈ 𝑇 → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
25	24	com23 87	. . . . . 6 ⊢ (𝜑 → ((𝑓 ∈ 𝐶 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)) → (𝑓 ∈ 𝑇 → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))))
26	25	ralimdv2 3176	. . . . 5 ⊢ (𝜑 → (∀𝑓 ∈ 𝐶 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) → ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
27	15, 26	biimtrid 245	. . . 4 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} → ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
28		mapdord.a	. . . . . 6 ⊢ 𝐴 = (LSAtoms‘𝑈)
29	1, 2, 8	dvhlmod 41942	. . . . . 6 ⊢ (𝜑 → 𝑈 ∈ LMod)
30	3, 28, 29, 9, 12	lssatle 39847	. . . . 5 ⊢ (𝜑 → (𝑋 ⊆ 𝑌 ↔ ∀𝑝 ∈ 𝐴 (𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌)))
31	18	mapdordlem1 42468	. . . . . . . . . . 11 ⊢ (𝑓 ∈ 𝑇 ↔ (𝑓 ∈ 𝐹 ∧ (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽))
32	31	simprbi 503	. . . . . . . . . 10 ⊢ (𝑓 ∈ 𝑇 → (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)
33	32	adantl 487	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)
34	8	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
35	31	simplbi 502	. . . . . . . . . . 11 ⊢ (𝑓 ∈ 𝑇 → 𝑓 ∈ 𝐹)
36	35	adantl 487	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → 𝑓 ∈ 𝐹)
37	1, 6, 2, 4, 17, 5, 34, 36	dochlkr 42217	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽 ↔ ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ∧ (𝐿‘𝑓) ∈ 𝐽)))
38	33, 37	mpbid 235	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ∧ (𝐿‘𝑓) ∈ 𝐽))
39	38	simpld 500	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓))
40	38	simprd 501	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝐿‘𝑓) ∈ 𝐽)
41	1, 6, 2, 28, 17, 34, 40	dochshpsat 42286	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → ((𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝐿‘𝑓) ↔ (𝑂‘(𝐿‘𝑓)) ∈ 𝐴))
42	39, 41	mpbid 235	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑇) → (𝑂‘(𝐿‘𝑓)) ∈ 𝐴)
43	1, 2, 8	dvhlvec 41941	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ LVec)
44	8	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
45		simpr 490	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ 𝐴)
46	1, 2, 6, 28, 17, 44, 45	dochsatshp 42283	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘𝑝) ∈ 𝐽)
47	17, 4, 5	lshpkrex 39950	. . . . . . . 8 ⊢ ((𝑈 ∈ LVec ∧ (𝑂‘𝑝) ∈ 𝐽) → ∃𝑓 ∈ 𝐹 (𝐿‘𝑓) = (𝑂‘𝑝))
48	43, 46, 47	syl2an2r 698	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓 ∈ 𝐹 (𝐿‘𝑓) = (𝑂‘𝑝))
49		simprl 783	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑓 ∈ 𝐹)
50		simprr 785	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝐿‘𝑓) = (𝑂‘𝑝))
51	50	fveq2d 6889	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝐿‘𝑓)) = (𝑂‘(𝑂‘𝑝)))
52	51	fveq2d 6889	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝑂‘(𝑂‘(𝑂‘𝑝))))
53	29	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑈 ∈ LMod)
54	16, 28, 53, 45	lsatssv 39830	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑝 ⊆ (Base‘𝑈))
55		eqid 2765	. . . . . . . . . . . . . 14 ⊢ ((DIsoH‘𝐾)‘𝑊) = ((DIsoH‘𝐾)‘𝑊)
56	1, 55, 2, 16, 6	dochcl 42185	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ⊆ (Base‘𝑈)) → (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊))
57	8, 54, 56	syl2an2r 698	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊))
58	1, 55, 6	dochoc 42199	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑂‘𝑝) ∈ ran ((DIsoH‘𝐾)‘𝑊)) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
59	8, 57, 58	syl2an2r 698	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
60	59	adantr 486	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝑂‘𝑝))) = (𝑂‘𝑝))
61	52, 60	eqtrd 2800	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) = (𝑂‘𝑝))
62	46	adantr 486	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘𝑝) ∈ 𝐽)
63	61, 62	eqeltrd 2865	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘(𝐿‘𝑓))) ∈ 𝐽)
64	49, 63, 31	sylanbrc 595	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑓 ∈ 𝑇)
65	1, 2, 55, 28	dih1dimat 42162	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊))
66	8, 45, 65	syl2an2r 698	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊))
67	1, 55, 6	dochoc 42199	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ∈ ran ((DIsoH‘𝐾)‘𝑊)) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
68	8, 66, 67	syl2an2r 698	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
69	68	adantr 486	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → (𝑂‘(𝑂‘𝑝)) = 𝑝)
70	51, 69	eqtr2d 2801	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ 𝐴) ∧ (𝑓 ∈ 𝐹 ∧ (𝐿‘𝑓) = (𝑂‘𝑝))) → 𝑝 = (𝑂‘(𝐿‘𝑓)))
71	48, 64, 70	reximssdv 3185	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝐴) → ∃𝑓 ∈ 𝑇 𝑝 = (𝑂‘(𝐿‘𝑓)))
72		sseq1 3963	. . . . . . . 8 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → (𝑝 ⊆ 𝑋 ↔ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋))
73		sseq1 3963	. . . . . . . 8 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → (𝑝 ⊆ 𝑌 ↔ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
74	72, 73	imbi12d 347	. . . . . . 7 ⊢ (𝑝 = (𝑂‘(𝐿‘𝑓)) → ((𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
75	74	adantl 487	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 = (𝑂‘(𝐿‘𝑓))) → ((𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
76	42, 71, 75	ralxfrd 5381	. . . . 5 ⊢ (𝜑 → (∀𝑝 ∈ 𝐴 (𝑝 ⊆ 𝑋 → 𝑝 ⊆ 𝑌) ↔ ∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)))
77	30, 76	bitr2d 283	. . . 4 ⊢ (𝜑 → (∀𝑓 ∈ 𝑇 ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌) ↔ 𝑋 ⊆ 𝑌))
78	27, 77	sylibd 242	. . 3 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} → 𝑋 ⊆ 𝑌))
79		simplr 781	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → 𝑋 ⊆ 𝑌)
80		sstr 3946	. . . . . . . 8 ⊢ (((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 ∧ 𝑋 ⊆ 𝑌) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)
81	80	ancoms 464	. . . . . . 7 ⊢ ((𝑋 ⊆ 𝑌 ∧ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌)
82	81	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → ((𝑋 ⊆ 𝑌 ∧ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋) → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
83	79, 82	mpand 708	. . . . 5 ⊢ (((𝜑 ∧ 𝑋 ⊆ 𝑌) ∧ 𝑓 ∈ 𝐶) → ((𝑂‘(𝐿‘𝑓)) ⊆ 𝑋 → (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌))
84	83	ss2rabdv 4030	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ⊆ 𝑌) → {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌})
85	84	ex 418	. . 3 ⊢ (𝜑 → (𝑋 ⊆ 𝑌 → {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌}))
86	78, 85	impbid 215	. 2 ⊢ (𝜑 → ({𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑋} ⊆ {𝑓 ∈ 𝐶 ∣ (𝑂‘(𝐿‘𝑓)) ⊆ 𝑌} ↔ 𝑋 ⊆ 𝑌))
87	14, 86	bitrd 282	1 ⊢ (𝜑 → ((𝑀‘𝑋) ⊆ (𝑀‘𝑌) ↔ 𝑋 ⊆ 𝑌))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146  ∀wral 3081  ∃wrex 3091  {crab 3418   ⊆ wss 3906  ran crn 5664  ‘cfv 6540  Basecbs 17291  LModclmod 21031  LSubSpclss 21102  LVecclvec 21273  LSAtomsclsa 39806  LSHypclsh 39807  LFnlclfn 39889  LKerclk 39917  HLchlt 40182  LHypclh 40816  DVecHcdvh 41910  DIsoHcdih 42060  ocHcoch 42179  mapdcmpd 42456

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11171  ax-resscn 11172  ax-1cn 11173  ax-icn 11174  ax-addcl 11175  ax-addrcl 11176  ax-mulcl 11177  ax-mulrcl 11178  ax-mulcom 11179  ax-addass 11180  ax-mulass 11181  ax-distr 11182  ax-i2m1 11183  ax-1ne0 11184  ax-1rid 11185  ax-rnegex 11186  ax-rrecex 11187  ax-cnre 11188  ax-pre-lttri 11189  ax-pre-lttrn 11190  ax-pre-ltadd 11191  ax-pre-mulgt0 11192  ax-riotaBAD 39785

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4875  df-int 4915  df-iun 4960  df-iin 4961  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  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-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-1st 7992  df-2nd 7993  df-tpos 8228  df-undef 8275  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-er 8700  df-map 8832  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-pnf 11260  df-mnf 11261  df-xr 11262  df-ltxr 11263  df-le 11264  df-sub 11458  df-neg 11459  df-nn 12249  df-2 12318  df-3 12319  df-4 12320  df-5 12321  df-6 12322  df-n0 12520  df-z 12607  df-uz 12879  df-fz 13552  df-struct 17229  df-sets 17246  df-slot 17264  df-ndx 17276  df-base 17292  df-ress 17313  df-plusg 17345  df-mulr 17346  df-sca 17348  df-vsca 17349  df-0g 17516  df-proset 18372  df-poset 18391  df-plt 18406  df-lub 18422  df-glb 18423  df-join 18424  df-meet 18425  df-p0 18501  df-p1 18502  df-lat 18510  df-clat 18577  df-mgm 18720  df-sgrp 18809  df-mnd 18825  df-submnd 18879  df-grp 19047  df-minusg 19048  df-sbg 19049  df-subg 19233  df-cntz 19431  df-lsm 19750  df-cmn 19896  df-abl 19897  df-mgp 20261  df-rng 20275  df-ur 20308  df-ring 20361  df-oppr 20465  df-dvdsr 20485  df-unit 20486  df-invr 20516  df-dvr 20529  df-drng 20879  df-lmod 21033  df-lss 21103  df-lsp 21143  df-lvec 21274  df-lsatoms 39808  df-lshyp 39809  df-lfl 39890  df-lkr 39918  df-oposet 40008  df-ol 40010  df-oml 40011  df-covers 40098  df-ats 40099  df-atl 40130  df-cvlat 40154  df-hlat 40183  df-llines 40330  df-lplanes 40331  df-lvols 40332  df-lines 40333  df-psubsp 40335  df-pmap 40336  df-padd 40628  df-lhyp 40820  df-laut 40821  df-ldil 40936  df-ltrn 40937  df-trl 40991  df-tgrp 41575  df-tendo 41587  df-edring 41589  df-dveca 41835  df-disoa 41861  df-dvech 41911  df-dib 41971  df-dic 42005  df-dih 42061  df-doch 42180  df-djh 42227  df-mapd 42457

This theorem is used by:  mapdord  42470