mclsppslem - Mathbox for Mario Carneiro

	Mathbox for Mario Carneiro		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > mclsppslem		Structured version Visualization version GIF version

Theorem mclsppslem 34562

Description: The closure is closed under application of provable pre-statements. (Compare mclsax 34548.) This theorem is what justifies the treatment of theorems as "equivalent" to axioms once they have been proven: the composition of one theorem in the proof of another yields a theorem. (Contributed by Mario Carneiro, 18-Jul-2016.)

**Hypotheses**
Ref	Expression
mclspps.d	⊢ 𝐷 = (mDV‘𝑇)
mclspps.e	⊢ 𝐸 = (mEx‘𝑇)
mclspps.c	⊢ 𝐶 = (mCls‘𝑇)
mclspps.1	⊢ (𝜑 → 𝑇 ∈ mFS)
mclspps.2	⊢ (𝜑 → 𝐾 ⊆ 𝐷)
mclspps.3	⊢ (𝜑 → 𝐵 ⊆ 𝐸)
mclspps.j	⊢ 𝐽 = (mPPSt‘𝑇)
mclspps.l	⊢ 𝐿 = (mSubst‘𝑇)
mclspps.v	⊢ 𝑉 = (mVR‘𝑇)
mclspps.h	⊢ 𝐻 = (mVH‘𝑇)
mclspps.w	⊢ 𝑊 = (mVars‘𝑇)
mclspps.4	⊢ (𝜑 → ⟨𝑀, 𝑂, 𝑃⟩ ∈ 𝐽)
mclspps.5	⊢ (𝜑 → 𝑆 ∈ ran 𝐿)
mclspps.6	⊢ ((𝜑 ∧ 𝑥 ∈ 𝑂) → (𝑆‘𝑥) ∈ (𝐾𝐶𝐵))
mclspps.7	⊢ ((𝜑 ∧ 𝑣 ∈ 𝑉) → (𝑆‘(𝐻‘𝑣)) ∈ (𝐾𝐶𝐵))
mclspps.8	⊢ ((𝜑 ∧ (𝑥𝑀𝑦 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑥))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑦))))) → 𝑎𝐾𝑏)
mclsppslem.9	⊢ (𝜑 → ⟨𝑚, 𝑜, 𝑝⟩ ∈ (mAx‘𝑇))
mclsppslem.10	⊢ (𝜑 → 𝑠 ∈ ran 𝐿)
mclsppslem.11	⊢ (𝜑 → (𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ (^◡𝑆 “ (𝐾𝐶𝐵)))
mclsppslem.12	⊢ (𝜑 → ∀𝑧∀𝑤(𝑧𝑚𝑤 → ((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) ⊆ 𝑀))

**Assertion**
Ref	Expression
mclsppslem	⊢ (𝜑 → (𝑠‘𝑝) ∈ (^◡𝑆 “ (𝐾𝐶𝐵)))

Distinct variable groups: 𝑚,𝑜,𝑝,𝑠,𝑣,𝐸 𝑎,𝑏,𝑚,𝑜,𝑝,𝑠,𝑣,𝑤,𝑥,𝑦,𝑧,𝐻 𝑣,𝑉,𝑧 𝐾,𝑎,𝑏,𝑚,𝑜,𝑝,𝑠,𝑣,𝑥,𝑦 𝑇,𝑎,𝑏,𝑚,𝑜,𝑝,𝑠,𝑣,𝑤,𝑥,𝑦,𝑧 𝐿,𝑎,𝑏,𝑚,𝑜,𝑝,𝑠,𝑣,𝑤,𝑥,𝑦,𝑧 𝑆,𝑎,𝑏,𝑚,𝑜,𝑝,𝑠,𝑣,𝑥,𝑦 𝐵,𝑎,𝑏,𝑚,𝑜,𝑝,𝑠,𝑣,𝑥,𝑦 𝑊,𝑎,𝑏,𝑚,𝑜,𝑝,𝑠,𝑣,𝑤,𝑥,𝑦,𝑧 𝐶,𝑎,𝑏,𝑚,𝑜,𝑝,𝑠,𝑣,𝑥,𝑦,𝑧 𝑀,𝑎,𝑏,𝑚,𝑜,𝑝,𝑠,𝑣,𝑤,𝑥,𝑦,𝑧 𝑚,𝑂,𝑜,𝑝,𝑠,𝑣,𝑤,𝑥,𝑧 𝜑,𝑎,𝑏,𝑣,𝑥,𝑦 Allowed substitution hints: 𝜑(𝑧,𝑤,𝑚,𝑜,𝑠,𝑝) 𝐵(𝑧,𝑤) 𝐶(𝑤) 𝐷(𝑥,𝑦,𝑧,𝑤,𝑣,𝑚,𝑜,𝑠,𝑝,𝑎,𝑏) 𝑃(𝑥,𝑦,𝑧,𝑤,𝑣,𝑚,𝑜,𝑠,𝑝,𝑎,𝑏) 𝑆(𝑧,𝑤) 𝐸(𝑥,𝑦,𝑧,𝑤,𝑎,𝑏) 𝐽(𝑥,𝑦,𝑧,𝑤,𝑣,𝑚,𝑜,𝑠,𝑝,𝑎,𝑏) 𝐾(𝑧,𝑤) 𝑂(𝑦,𝑎,𝑏) 𝑉(𝑥,𝑦,𝑤,𝑚,𝑜,𝑠,𝑝,𝑎,𝑏)

Proof of Theorem mclsppslem Dummy variables 𝑡 𝑢 𝑐 𝑑 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mclsppslem.10	. . . 4 ⊢ (𝜑 → 𝑠 ∈ ran 𝐿)
2		mclspps.l	. . . . 5 ⊢ 𝐿 = (mSubst‘𝑇)
3		mclspps.e	. . . . 5 ⊢ 𝐸 = (mEx‘𝑇)
4	2, 3	msubf 34511	. . . 4 ⊢ (𝑠 ∈ ran 𝐿 → 𝑠:𝐸⟶𝐸)
5	1, 4	syl 17	. . 3 ⊢ (𝜑 → 𝑠:𝐸⟶𝐸)
6		mclspps.1	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ mFS)
7		eqid 2732	. . . . . . . . 9 ⊢ (mAx‘𝑇) = (mAx‘𝑇)
8		eqid 2732	. . . . . . . . 9 ⊢ (mStat‘𝑇) = (mStat‘𝑇)
9	7, 8	maxsta 34533	. . . . . . . 8 ⊢ (𝑇 ∈ mFS → (mAx‘𝑇) ⊆ (mStat‘𝑇))
10	6, 9	syl 17	. . . . . . 7 ⊢ (𝜑 → (mAx‘𝑇) ⊆ (mStat‘𝑇))
11		eqid 2732	. . . . . . . 8 ⊢ (mPreSt‘𝑇) = (mPreSt‘𝑇)
12	11, 8	mstapst 34526	. . . . . . 7 ⊢ (mStat‘𝑇) ⊆ (mPreSt‘𝑇)
13	10, 12	sstrdi 3993	. . . . . 6 ⊢ (𝜑 → (mAx‘𝑇) ⊆ (mPreSt‘𝑇))
14		mclsppslem.9	. . . . . 6 ⊢ (𝜑 → ⟨𝑚, 𝑜, 𝑝⟩ ∈ (mAx‘𝑇))
15	13, 14	sseldd 3982	. . . . 5 ⊢ (𝜑 → ⟨𝑚, 𝑜, 𝑝⟩ ∈ (mPreSt‘𝑇))
16		mclspps.d	. . . . . 6 ⊢ 𝐷 = (mDV‘𝑇)
17	16, 3, 11	elmpst 34515	. . . . 5 ⊢ (⟨𝑚, 𝑜, 𝑝⟩ ∈ (mPreSt‘𝑇) ↔ ((𝑚 ⊆ 𝐷 ∧ ^◡𝑚 = 𝑚) ∧ (𝑜 ⊆ 𝐸 ∧ 𝑜 ∈ Fin) ∧ 𝑝 ∈ 𝐸))
18	15, 17	sylib 217	. . . 4 ⊢ (𝜑 → ((𝑚 ⊆ 𝐷 ∧ ^◡𝑚 = 𝑚) ∧ (𝑜 ⊆ 𝐸 ∧ 𝑜 ∈ Fin) ∧ 𝑝 ∈ 𝐸))
19	18	simp3d 1144	. . 3 ⊢ (𝜑 → 𝑝 ∈ 𝐸)
20	5, 19	ffvelcdmd 7084	. 2 ⊢ (𝜑 → (𝑠‘𝑝) ∈ 𝐸)
21		fvco3 6987	. . . 4 ⊢ ((𝑠:𝐸⟶𝐸 ∧ 𝑝 ∈ 𝐸) → ((𝑆 ∘ 𝑠)‘𝑝) = (𝑆‘(𝑠‘𝑝)))
22	5, 19, 21	syl2anc 584	. . 3 ⊢ (𝜑 → ((𝑆 ∘ 𝑠)‘𝑝) = (𝑆‘(𝑠‘𝑝)))
23		mclspps.c	. . . 4 ⊢ 𝐶 = (mCls‘𝑇)
24		mclspps.2	. . . 4 ⊢ (𝜑 → 𝐾 ⊆ 𝐷)
25		mclspps.3	. . . 4 ⊢ (𝜑 → 𝐵 ⊆ 𝐸)
26		mclspps.v	. . . 4 ⊢ 𝑉 = (mVR‘𝑇)
27		mclspps.h	. . . 4 ⊢ 𝐻 = (mVH‘𝑇)
28		mclspps.w	. . . 4 ⊢ 𝑊 = (mVars‘𝑇)
29		mclspps.5	. . . . 5 ⊢ (𝜑 → 𝑆 ∈ ran 𝐿)
30	2	msubco 34510	. . . . 5 ⊢ ((𝑆 ∈ ran 𝐿 ∧ 𝑠 ∈ ran 𝐿) → (𝑆 ∘ 𝑠) ∈ ran 𝐿)
31	29, 1, 30	syl2anc 584	. . . 4 ⊢ (𝜑 → (𝑆 ∘ 𝑠) ∈ ran 𝐿)
32	2, 3	msubf 34511	. . . . . . . . 9 ⊢ (𝑆 ∈ ran 𝐿 → 𝑆:𝐸⟶𝐸)
33	29, 32	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑆:𝐸⟶𝐸)
34		fco 6738	. . . . . . . 8 ⊢ ((𝑆:𝐸⟶𝐸 ∧ 𝑠:𝐸⟶𝐸) → (𝑆 ∘ 𝑠):𝐸⟶𝐸)
35	33, 5, 34	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → (𝑆 ∘ 𝑠):𝐸⟶𝐸)
36	35	ffnd 6715	. . . . . 6 ⊢ (𝜑 → (𝑆 ∘ 𝑠) Fn 𝐸)
37	36	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑜) → (𝑆 ∘ 𝑠) Fn 𝐸)
38		mclsppslem.11	. . . . . . . . 9 ⊢ (𝜑 → (𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ (^◡𝑆 “ (𝐾𝐶𝐵)))
39	5	ffund 6718	. . . . . . . . . 10 ⊢ (𝜑 → Fun 𝑠)
40	17	simp2bi 1146	. . . . . . . . . . . . . 14 ⊢ (⟨𝑚, 𝑜, 𝑝⟩ ∈ (mPreSt‘𝑇) → (𝑜 ⊆ 𝐸 ∧ 𝑜 ∈ Fin))
41	15, 40	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑜 ⊆ 𝐸 ∧ 𝑜 ∈ Fin))
42	41	simpld 495	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑜 ⊆ 𝐸)
43	26, 3, 27	mvhf 34537	. . . . . . . . . . . . 13 ⊢ (𝑇 ∈ mFS → 𝐻:𝑉⟶𝐸)
44		frn 6721	. . . . . . . . . . . . 13 ⊢ (𝐻:𝑉⟶𝐸 → ran 𝐻 ⊆ 𝐸)
45	6, 43, 44	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → ran 𝐻 ⊆ 𝐸)
46	42, 45	unssd 4185	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑜 ∪ ran 𝐻) ⊆ 𝐸)
47	5	fdmd 6725	. . . . . . . . . . 11 ⊢ (𝜑 → dom 𝑠 = 𝐸)
48	46, 47	sseqtrrd 4022	. . . . . . . . . 10 ⊢ (𝜑 → (𝑜 ∪ ran 𝐻) ⊆ dom 𝑠)
49		funimass3 7052	. . . . . . . . . 10 ⊢ ((Fun 𝑠 ∧ (𝑜 ∪ ran 𝐻) ⊆ dom 𝑠) → ((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ (^◡𝑆 “ (𝐾𝐶𝐵)) ↔ (𝑜 ∪ ran 𝐻) ⊆ (^◡𝑠 “ (^◡𝑆 “ (𝐾𝐶𝐵)))))
50	39, 48, 49	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → ((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ (^◡𝑆 “ (𝐾𝐶𝐵)) ↔ (𝑜 ∪ ran 𝐻) ⊆ (^◡𝑠 “ (^◡𝑆 “ (𝐾𝐶𝐵)))))
51	38, 50	mpbid 231	. . . . . . . 8 ⊢ (𝜑 → (𝑜 ∪ ran 𝐻) ⊆ (^◡𝑠 “ (^◡𝑆 “ (𝐾𝐶𝐵))))
52		cnvco 5883	. . . . . . . . . 10 ⊢ ^◡(𝑆 ∘ 𝑠) = (^◡𝑠 ∘ ^◡𝑆)
53	52	imaeq1i 6054	. . . . . . . . 9 ⊢ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)) = ((^◡𝑠 ∘ ^◡𝑆) “ (𝐾𝐶𝐵))
54		imaco 6247	. . . . . . . . 9 ⊢ ((^◡𝑠 ∘ ^◡𝑆) “ (𝐾𝐶𝐵)) = (^◡𝑠 “ (^◡𝑆 “ (𝐾𝐶𝐵)))
55	53, 54	eqtri 2760	. . . . . . . 8 ⊢ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)) = (^◡𝑠 “ (^◡𝑆 “ (𝐾𝐶𝐵)))
56	51, 55	sseqtrrdi 4032	. . . . . . 7 ⊢ (𝜑 → (𝑜 ∪ ran 𝐻) ⊆ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
57	56	unssad 4186	. . . . . 6 ⊢ (𝜑 → 𝑜 ⊆ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
58	57	sselda 3981	. . . . 5 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑜) → 𝑐 ∈ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
59		elpreima 7056	. . . . . 6 ⊢ ((𝑆 ∘ 𝑠) Fn 𝐸 → (𝑐 ∈ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)) ↔ (𝑐 ∈ 𝐸 ∧ ((𝑆 ∘ 𝑠)‘𝑐) ∈ (𝐾𝐶𝐵))))
60	59	simplbda 500	. . . . 5 ⊢ (((𝑆 ∘ 𝑠) Fn 𝐸 ∧ 𝑐 ∈ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵))) → ((𝑆 ∘ 𝑠)‘𝑐) ∈ (𝐾𝐶𝐵))
61	37, 58, 60	syl2anc 584	. . . 4 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑜) → ((𝑆 ∘ 𝑠)‘𝑐) ∈ (𝐾𝐶𝐵))
62	36	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑉) → (𝑆 ∘ 𝑠) Fn 𝐸)
63	56	unssbd 4187	. . . . . . 7 ⊢ (𝜑 → ran 𝐻 ⊆ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
64	63	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑉) → ran 𝐻 ⊆ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
65		ffn 6714	. . . . . . . 8 ⊢ (𝐻:𝑉⟶𝐸 → 𝐻 Fn 𝑉)
66	6, 43, 65	3syl 18	. . . . . . 7 ⊢ (𝜑 → 𝐻 Fn 𝑉)
67		fnfvelrn 7079	. . . . . . 7 ⊢ ((𝐻 Fn 𝑉 ∧ 𝑡 ∈ 𝑉) → (𝐻‘𝑡) ∈ ran 𝐻)
68	66, 67	sylan 580	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑉) → (𝐻‘𝑡) ∈ ran 𝐻)
69	64, 68	sseldd 3982	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑉) → (𝐻‘𝑡) ∈ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
70		elpreima 7056	. . . . . 6 ⊢ ((𝑆 ∘ 𝑠) Fn 𝐸 → ((𝐻‘𝑡) ∈ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)) ↔ ((𝐻‘𝑡) ∈ 𝐸 ∧ ((𝑆 ∘ 𝑠)‘(𝐻‘𝑡)) ∈ (𝐾𝐶𝐵))))
71	70	simplbda 500	. . . . 5 ⊢ (((𝑆 ∘ 𝑠) Fn 𝐸 ∧ (𝐻‘𝑡) ∈ (^◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵))) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑡)) ∈ (𝐾𝐶𝐵))
72	62, 69, 71	syl2anc 584	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑉) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑡)) ∈ (𝐾𝐶𝐵))
73	5	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑠:𝐸⟶𝐸)
74	6, 43	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐻:𝑉⟶𝐸)
75	74	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝐻:𝑉⟶𝐸)
76	18	simp1d 1142	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑚 ⊆ 𝐷 ∧ ^◡𝑚 = 𝑚))
77	76	simpld 495	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑚 ⊆ 𝐷)
78	26, 16	mdvval 34483	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐷 = ((𝑉 × 𝑉) ∖ I )
79		difss 4130	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑉 × 𝑉) ∖ I ) ⊆ (𝑉 × 𝑉)
80	78, 79	eqsstri 4015	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐷 ⊆ (𝑉 × 𝑉)
81	77, 80	sstrdi 3993	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑚 ⊆ (𝑉 × 𝑉))
82	81	ssbrd 5190	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑐𝑚𝑑 → 𝑐(𝑉 × 𝑉)𝑑))
83	82	imp 407	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑐(𝑉 × 𝑉)𝑑)
84		brxp 5723	. . . . . . . . . . . . . . . 16 ⊢ (𝑐(𝑉 × 𝑉)𝑑 ↔ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉))
85	83, 84	sylib 217	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉))
86	85	simpld 495	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑐 ∈ 𝑉)
87	75, 86	ffvelcdmd 7084	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝐻‘𝑐) ∈ 𝐸)
88		fvco3 6987	. . . . . . . . . . . . 13 ⊢ ((𝑠:𝐸⟶𝐸 ∧ (𝐻‘𝑐) ∈ 𝐸) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑐)) = (𝑆‘(𝑠‘(𝐻‘𝑐))))
89	73, 87, 88	syl2anc 584	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑐)) = (𝑆‘(𝑠‘(𝐻‘𝑐))))
90	89	fveq2d 6892	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) = (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑐)))))
91	6	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑇 ∈ mFS)
92	29	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑆 ∈ ran 𝐿)
93	73, 87	ffvelcdmd 7084	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑠‘(𝐻‘𝑐)) ∈ 𝐸)
94	2, 3, 28, 27	msubvrs 34539	. . . . . . . . . . . 12 ⊢ ((𝑇 ∈ mFS ∧ 𝑆 ∈ ran 𝐿 ∧ (𝑠‘(𝐻‘𝑐)) ∈ 𝐸) → (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑐)))) = ∪ 𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))(𝑊‘(𝑆‘(𝐻‘𝑢))))
95	91, 92, 93, 94	syl3anc 1371	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑐)))) = ∪ 𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))(𝑊‘(𝑆‘(𝐻‘𝑢))))
96	90, 95	eqtrd 2772	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) = ∪ 𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))(𝑊‘(𝑆‘(𝐻‘𝑢))))
97	96	eleq2d 2819	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) ↔ 𝑎 ∈ ∪ 𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))(𝑊‘(𝑆‘(𝐻‘𝑢)))))
98		eliun 5000	. . . . . . . . 9 ⊢ (𝑎 ∈ ∪ 𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))(𝑊‘(𝑆‘(𝐻‘𝑢))) ↔ ∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))))
99	97, 98	bitrdi 286	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) ↔ ∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢)))))
100	85	simprd 496	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑑 ∈ 𝑉)
101	75, 100	ffvelcdmd 7084	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝐻‘𝑑) ∈ 𝐸)
102		fvco3 6987	. . . . . . . . . . . . 13 ⊢ ((𝑠:𝐸⟶𝐸 ∧ (𝐻‘𝑑) ∈ 𝐸) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑑)) = (𝑆‘(𝑠‘(𝐻‘𝑑))))
103	73, 101, 102	syl2anc 584	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑑)) = (𝑆‘(𝑠‘(𝐻‘𝑑))))
104	103	fveq2d 6892	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))) = (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑑)))))
105	73, 101	ffvelcdmd 7084	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑠‘(𝐻‘𝑑)) ∈ 𝐸)
106	2, 3, 28, 27	msubvrs 34539	. . . . . . . . . . . 12 ⊢ ((𝑇 ∈ mFS ∧ 𝑆 ∈ ran 𝐿 ∧ (𝑠‘(𝐻‘𝑑)) ∈ 𝐸) → (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑑)))) = ∪ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑊‘(𝑆‘(𝐻‘𝑣))))
107	91, 92, 105, 106	syl3anc 1371	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑑)))) = ∪ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑊‘(𝑆‘(𝐻‘𝑣))))
108	104, 107	eqtrd 2772	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))) = ∪ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑊‘(𝑆‘(𝐻‘𝑣))))
109	108	eleq2d 2819	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))) ↔ 𝑏 ∈ ∪ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑊‘(𝑆‘(𝐻‘𝑣)))))
110		eliun 5000	. . . . . . . . 9 ⊢ (𝑏 ∈ ∪ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑊‘(𝑆‘(𝐻‘𝑣))) ↔ ∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))))
111	109, 110	bitrdi 286	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))) ↔ ∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))))
112	99, 111	anbi12d 631	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) ∧ 𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑)))) ↔ (∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ ∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))))))
113		reeanv 3226	. . . . . . . 8 ⊢ (∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))) ↔ (∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ ∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))))
114		simpll 765	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐𝑚𝑑) ∧ (𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐))) ∧ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑))))) → 𝜑)
115		brxp 5723	. . . . . . . . . . . 12 ⊢ (𝑢((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑))))𝑣 ↔ (𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐))) ∧ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))))
116		mclsppslem.12	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ∀𝑧∀𝑤(𝑧𝑚𝑤 → ((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) ⊆ 𝑀))
117		breq12 5152	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝑧𝑚𝑤 ↔ 𝑐𝑚𝑑))
118		simpl 483	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → 𝑧 = 𝑐)
119	118	fveq2d 6892	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝐻‘𝑧) = (𝐻‘𝑐))
120	119	fveq2d 6892	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝑠‘(𝐻‘𝑧)) = (𝑠‘(𝐻‘𝑐)))
121	120	fveq2d 6892	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝑊‘(𝑠‘(𝐻‘𝑧))) = (𝑊‘(𝑠‘(𝐻‘𝑐))))
122		simpr 485	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → 𝑤 = 𝑑)
123	122	fveq2d 6892	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝐻‘𝑤) = (𝐻‘𝑑))
124	123	fveq2d 6892	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝑠‘(𝐻‘𝑤)) = (𝑠‘(𝐻‘𝑑)))
125	124	fveq2d 6892	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝑊‘(𝑠‘(𝐻‘𝑤))) = (𝑊‘(𝑠‘(𝐻‘𝑑))))
126	121, 125	xpeq12d 5706	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → ((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) = ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))))
127	126	sseq1d 4012	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) ⊆ 𝑀 ↔ ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀))
128	117, 127	imbi12d 344	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → ((𝑧𝑚𝑤 → ((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) ⊆ 𝑀) ↔ (𝑐𝑚𝑑 → ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀)))
129	128	spc2gv 3590	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ V ∧ 𝑑 ∈ V) → (∀𝑧∀𝑤(𝑧𝑚𝑤 → ((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) ⊆ 𝑀) → (𝑐𝑚𝑑 → ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀)))
130	129	el2v 3482	. . . . . . . . . . . . . . 15 ⊢ (∀𝑧∀𝑤(𝑧𝑚𝑤 → ((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) ⊆ 𝑀) → (𝑐𝑚𝑑 → ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀))
131	116, 130	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑐𝑚𝑑 → ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀))
132	131	imp 407	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀)
133	132	ssbrd 5190	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑢((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑))))𝑣 → 𝑢𝑀𝑣))
134	115, 133	biimtrrid 242	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐))) ∧ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))) → 𝑢𝑀𝑣))
135	134	imp 407	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐𝑚𝑑) ∧ (𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐))) ∧ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑))))) → 𝑢𝑀𝑣)
136		vex 3478	. . . . . . . . . . . . 13 ⊢ 𝑢 ∈ V
137		vex 3478	. . . . . . . . . . . . 13 ⊢ 𝑣 ∈ V
138		breq12 5152	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑥𝑀𝑦 ↔ 𝑢𝑀𝑣))
139		simpl 483	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → 𝑥 = 𝑢)
140	139	fveq2d 6892	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝐻‘𝑥) = (𝐻‘𝑢))
141	140	fveq2d 6892	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑆‘(𝐻‘𝑥)) = (𝑆‘(𝐻‘𝑢)))
142	141	fveq2d 6892	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑊‘(𝑆‘(𝐻‘𝑥))) = (𝑊‘(𝑆‘(𝐻‘𝑢))))
143	142	eleq2d 2819	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑥))) ↔ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢)))))
144		simpr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → 𝑦 = 𝑣)
145	144	fveq2d 6892	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝐻‘𝑦) = (𝐻‘𝑣))
146	145	fveq2d 6892	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑆‘(𝐻‘𝑦)) = (𝑆‘(𝐻‘𝑣)))
147	146	fveq2d 6892	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑊‘(𝑆‘(𝐻‘𝑦))) = (𝑊‘(𝑆‘(𝐻‘𝑣))))
148	147	eleq2d 2819	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑦))) ↔ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))))
149	138, 143, 148	3anbi123d 1436	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → ((𝑥𝑀𝑦 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑥))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑦)))) ↔ (𝑢𝑀𝑣 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))))))
150	149	anbi2d 629	. . . . . . . . . . . . . 14 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → ((𝜑 ∧ (𝑥𝑀𝑦 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑥))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑦))))) ↔ (𝜑 ∧ (𝑢𝑀𝑣 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))))))
151	150	imbi1d 341	. . . . . . . . . . . . 13 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (((𝜑 ∧ (𝑥𝑀𝑦 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑥))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑦))))) → 𝑎𝐾𝑏) ↔ ((𝜑 ∧ (𝑢𝑀𝑣 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))))) → 𝑎𝐾𝑏)))
152		mclspps.8	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥𝑀𝑦 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑥))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑦))))) → 𝑎𝐾𝑏)
153	136, 137, 151, 152	vtocl2 3551	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑢𝑀𝑣 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))))) → 𝑎𝐾𝑏)
154	153	3exp2 1354	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑢𝑀𝑣 → (𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) → (𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))) → 𝑎𝐾𝑏))))
155	154	imp4b 422	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢𝑀𝑣) → ((𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))) → 𝑎𝐾𝑏))
156	114, 135, 155	syl2anc 584	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑐𝑚𝑑) ∧ (𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐))) ∧ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑))))) → ((𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))) → 𝑎𝐾𝑏))
157	156	rexlimdvva 3211	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))) → 𝑎𝐾𝑏))
158	113, 157	biimtrrid 242	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ ∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))) → 𝑎𝐾𝑏))
159	112, 158	sylbid 239	. . . . . 6 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) ∧ 𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑)))) → 𝑎𝐾𝑏))
160	159	exp4b 431	. . . . 5 ⊢ (𝜑 → (𝑐𝑚𝑑 → (𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) → (𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))) → 𝑎𝐾𝑏))))
161	160	3imp2 1349	. . . 4 ⊢ ((𝜑 ∧ (𝑐𝑚𝑑 ∧ 𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) ∧ 𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))))) → 𝑎𝐾𝑏)
162	16, 3, 23, 6, 24, 25, 7, 2, 26, 27, 28, 14, 31, 61, 72, 161	mclsax 34548	. . 3 ⊢ (𝜑 → ((𝑆 ∘ 𝑠)‘𝑝) ∈ (𝐾𝐶𝐵))
163	22, 162	eqeltrrd 2834	. 2 ⊢ (𝜑 → (𝑆‘(𝑠‘𝑝)) ∈ (𝐾𝐶𝐵))
164	33	ffnd 6715	. . 3 ⊢ (𝜑 → 𝑆 Fn 𝐸)
165		elpreima 7056	. . 3 ⊢ (𝑆 Fn 𝐸 → ((𝑠‘𝑝) ∈ (^◡𝑆 “ (𝐾𝐶𝐵)) ↔ ((𝑠‘𝑝) ∈ 𝐸 ∧ (𝑆‘(𝑠‘𝑝)) ∈ (𝐾𝐶𝐵))))
166	164, 165	syl 17	. 2 ⊢ (𝜑 → ((𝑠‘𝑝) ∈ (^◡𝑆 “ (𝐾𝐶𝐵)) ↔ ((𝑠‘𝑝) ∈ 𝐸 ∧ (𝑆‘(𝑠‘𝑝)) ∈ (𝐾𝐶𝐵))))
167	20, 163, 166	mpbir2and 711	1 ⊢ (𝜑 → (𝑠‘𝑝) ∈ (^◡𝑆 “ (𝐾𝐶𝐵)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 ∧ w3a 1087 ∀wal 1539 = wceq 1541 ∈ wcel 2106 ∃wrex 3070 Vcvv 3474 ∖ cdif 3944 ∪ cun 3945 ⊆ wss 3947 ⟨cotp 4635 ∪ ciun 4996 class class class wbr 5147 I cid 5572 × cxp 5673 ^◡ccnv 5674 dom cdm 5675 ran crn 5676 “ cima 5678 ∘ ccom 5679 Fun wfun 6534 Fn wfn 6535 ⟶wf 6536 ‘cfv 6540 (class class class)co 7405 Fincfn 8935 mVRcmvar 34440 mAxcmax 34444 mExcmex 34446 mDVcmdv 34447 mVarscmvrs 34448 mSubstcmsub 34450 mVHcmvh 34451 mPreStcmpst 34452 mStatcmsta 34454 mFScmfs 34455 mClscmcls 34456 mPPStcmpps 34457

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7721 ax-cnex 11162 ax-resscn 11163 ax-1cn 11164 ax-icn 11165 ax-addcl 11166 ax-addrcl 11167 ax-mulcl 11168 ax-mulrcl 11169 ax-mulcom 11170 ax-addass 11171 ax-mulass 11172 ax-distr 11173 ax-i2m1 11174 ax-1ne0 11175 ax-1rid 11176 ax-rnegex 11177 ax-rrecex 11178 ax-cnre 11179 ax-pre-lttri 11180 ax-pre-lttrn 11181 ax-pre-ltadd 11182 ax-pre-mulgt0 11183

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-rmo 3376 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-op 4634 df-ot 4636 df-uni 4908 df-int 4950 df-iun 4998 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6297 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6492 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-riota 7361 df-ov 7408 df-oprab 7409 df-mpo 7410 df-om 7852 df-1st 7971 df-2nd 7972 df-frecs 8262 df-wrecs 8293 df-recs 8367 df-rdg 8406 df-1o 8462 df-er 8699 df-map 8818 df-pm 8819 df-en 8936 df-dom 8937 df-sdom 8938 df-fin 8939 df-card 9930 df-pnf 11246 df-mnf 11247 df-xr 11248 df-ltxr 11249 df-le 11250 df-sub 11442 df-neg 11443 df-nn 12209 df-2 12271 df-n0 12469 df-xnn0 12541 df-z 12555 df-uz 12819 df-fz 13481 df-fzo 13624 df-seq 13963 df-hash 14287 df-word 14461 df-lsw 14509 df-concat 14517 df-s1 14542 df-substr 14587 df-pfx 14617 df-struct 17076 df-sets 17093 df-slot 17111 df-ndx 17123 df-base 17141 df-ress 17170 df-plusg 17206 df-0g 17383 df-gsum 17384 df-mgm 18557 df-sgrp 18606 df-mnd 18622 df-mhm 18667 df-submnd 18668 df-frmd 18726 df-vrmd 18727 df-mrex 34465 df-mex 34466 df-mdv 34467 df-mvrs 34468 df-mrsub 34469 df-msub 34470 df-mvh 34471 df-mpst 34472 df-msr 34473 df-msta 34474 df-mfs 34475 df-mcls 34476

This theorem is referenced by: mclspps 34563

W3C validator