Theorem mclsppslem 36528

Description: The closure is closed under application of provable pre-statements. (Compare mclsax 36514.) 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 36477	. . . 4 ⊢ (𝑠 ∈ ran 𝐿 → 𝑠:𝐸⟶𝐸)
5	1, 4	syl 18	. . 3 ⊢ (𝜑 → 𝑠:𝐸⟶𝐸)
6		mclspps.1	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ mFS)
7		eqid 2763	. . . . . . . . 9 ⊢ (mAx‘𝑇) = (mAx‘𝑇)
8		eqid 2763	. . . . . . . . 9 ⊢ (mStat‘𝑇) = (mStat‘𝑇)
9	7, 8	maxsta 36499	. . . . . . . 8 ⊢ (𝑇 ∈ mFS → (mAx‘𝑇) ⊆ (mStat‘𝑇))
10	6, 9	syl 18	. . . . . . 7 ⊢ (𝜑 → (mAx‘𝑇) ⊆ (mStat‘𝑇))
11		eqid 2763	. . . . . . . 8 ⊢ (mPreSt‘𝑇) = (mPreSt‘𝑇)
12	11, 8	mstapst 36492	. . . . . . 7 ⊢ (mStat‘𝑇) ⊆ (mPreSt‘𝑇)
13	10, 12	sstrdi 3925	. . . . . 6 ⊢ (𝜑 → (mAx‘𝑇) ⊆ (mPreSt‘𝑇))
14		mclsppslem.9	. . . . . 6 ⊢ (𝜑 → ⟨𝑚, 𝑜, 𝑝⟩ ∈ (mAx‘𝑇))
15	13, 14	sseldd 3914	. . . . 5 ⊢ (𝜑 → ⟨𝑚, 𝑜, 𝑝⟩ ∈ (mPreSt‘𝑇))
16		mclspps.d	. . . . . 6 ⊢ 𝐷 = (mDV‘𝑇)
17	16, 3, 11	elmpst 36481	. . . . 5 ⊢ (⟨𝑚, 𝑜, 𝑝⟩ ∈ (mPreSt‘𝑇) ↔ ((𝑚 ⊆ 𝐷 ∧ ◡𝑚 = 𝑚) ∧ (𝑜 ⊆ 𝐸 ∧ 𝑜 ∈ Fin) ∧ 𝑝 ∈ 𝐸))
18	15, 17	sylib 221	. . . 4 ⊢ (𝜑 → ((𝑚 ⊆ 𝐷 ∧ ◡𝑚 = 𝑚) ∧ (𝑜 ⊆ 𝐸 ∧ 𝑜 ∈ Fin) ∧ 𝑝 ∈ 𝐸))
19	18	simp3d 1162	. . 3 ⊢ (𝜑 → 𝑝 ∈ 𝐸)
20	5, 19	ffvelcdmd 7112	. 2 ⊢ (𝜑 → (𝑠‘𝑝) ∈ 𝐸)
21		fvco3 7011	. . . 4 ⊢ ((𝑠:𝐸⟶𝐸 ∧ 𝑝 ∈ 𝐸) → ((𝑆 ∘ 𝑠)‘𝑝) = (𝑆‘(𝑠‘𝑝)))
22	5, 19, 21	syl2anc 596	. . 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 36476	. . . . 5 ⊢ ((𝑆 ∈ ran 𝐿 ∧ 𝑠 ∈ ran 𝐿) → (𝑆 ∘ 𝑠) ∈ ran 𝐿)
31	29, 1, 30	syl2anc 596	. . . 4 ⊢ (𝜑 → (𝑆 ∘ 𝑠) ∈ ran 𝐿)
32	2, 3	msubf 36477	. . . . . . . . 9 ⊢ (𝑆 ∈ ran 𝐿 → 𝑆:𝐸⟶𝐸)
33	29, 32	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑆:𝐸⟶𝐸)
34		fco 6759	. . . . . . . 8 ⊢ ((𝑆:𝐸⟶𝐸 ∧ 𝑠:𝐸⟶𝐸) → (𝑆 ∘ 𝑠):𝐸⟶𝐸)
35	33, 5, 34	syl2anc 596	. . . . . . 7 ⊢ (𝜑 → (𝑆 ∘ 𝑠):𝐸⟶𝐸)
36	35	ffnd 6735	. . . . . 6 ⊢ (𝜑 → (𝑆 ∘ 𝑠) Fn 𝐸)
37	36	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑜) → (𝑆 ∘ 𝑠) Fn 𝐸)
38		mclsppslem.11	. . . . . . . . 9 ⊢ (𝜑 → (𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ (◡𝑆 “ (𝐾𝐶𝐵)))
39	5	ffund 6739	. . . . . . . . . 10 ⊢ (𝜑 → Fun 𝑠)
40	17	simp2bi 1164	. . . . . . . . . . . . . 14 ⊢ (⟨𝑚, 𝑜, 𝑝⟩ ∈ (mPreSt‘𝑇) → (𝑜 ⊆ 𝐸 ∧ 𝑜 ∈ Fin))
41	15, 40	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑜 ⊆ 𝐸 ∧ 𝑜 ∈ Fin))
42	41	simpld 500	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑜 ⊆ 𝐸)
43	26, 3, 27	mvhf 36503	. . . . . . . . . . . . 13 ⊢ (𝑇 ∈ mFS → 𝐻:𝑉⟶𝐸)
44		frn 6742	. . . . . . . . . . . . 13 ⊢ (𝐻:𝑉⟶𝐸 → ran 𝐻 ⊆ 𝐸)
45	6, 43, 44	3syl 19	. . . . . . . . . . . 12 ⊢ (𝜑 → ran 𝐻 ⊆ 𝐸)
46	42, 45	unssd 4193	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑜 ∪ ran 𝐻) ⊆ 𝐸)
47	5	fdmd 6745	. . . . . . . . . . 11 ⊢ (𝜑 → dom 𝑠 = 𝐸)
48	46, 47	sseqtrrd 3950	. . . . . . . . . 10 ⊢ (𝜑 → (𝑜 ∪ ran 𝐻) ⊆ dom 𝑠)
49		funimass3 7079	. . . . . . . . . 10 ⊢ ((Fun 𝑠 ∧ (𝑜 ∪ ran 𝐻) ⊆ dom 𝑠) → ((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ (◡𝑆 “ (𝐾𝐶𝐵)) ↔ (𝑜 ∪ ran 𝐻) ⊆ (◡𝑠 “ (◡𝑆 “ (𝐾𝐶𝐵)))))
50	39, 48, 49	syl2anc 596	. . . . . . . . 9 ⊢ (𝜑 → ((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ (◡𝑆 “ (𝐾𝐶𝐵)) ↔ (𝑜 ∪ ran 𝐻) ⊆ (◡𝑠 “ (◡𝑆 “ (𝐾𝐶𝐵)))))
51	38, 50	mpbid 235	. . . . . . . 8 ⊢ (𝜑 → (𝑜 ∪ ran 𝐻) ⊆ (◡𝑠 “ (◡𝑆 “ (𝐾𝐶𝐵))))
52		cnvco 5875	. . . . . . . . . 10 ⊢ ◡(𝑆 ∘ 𝑠) = (◡𝑠 ∘ ◡𝑆)
53	52	imaeq1i 6062	. . . . . . . . 9 ⊢ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)) = ((◡𝑠 ∘ ◡𝑆) “ (𝐾𝐶𝐵))
54		imaco 6266	. . . . . . . . 9 ⊢ ((◡𝑠 ∘ ◡𝑆) “ (𝐾𝐶𝐵)) = (◡𝑠 “ (◡𝑆 “ (𝐾𝐶𝐵)))
55	53, 54	eqtri 2786	. . . . . . . 8 ⊢ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)) = (◡𝑠 “ (◡𝑆 “ (𝐾𝐶𝐵)))
56	51, 55	sseqtrrdi 3954	. . . . . . 7 ⊢ (𝜑 → (𝑜 ∪ ran 𝐻) ⊆ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
57	56	unssad 4194	. . . . . 6 ⊢ (𝜑 → 𝑜 ⊆ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
58	57	sselda 3913	. . . . 5 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑜) → 𝑐 ∈ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
59		elpreima 7083	. . . . . 6 ⊢ ((𝑆 ∘ 𝑠) Fn 𝐸 → (𝑐 ∈ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)) ↔ (𝑐 ∈ 𝐸 ∧ ((𝑆 ∘ 𝑠)‘𝑐) ∈ (𝐾𝐶𝐵))))
60	59	simplbda 505	. . . . 5 ⊢ (((𝑆 ∘ 𝑠) Fn 𝐸 ∧ 𝑐 ∈ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵))) → ((𝑆 ∘ 𝑠)‘𝑐) ∈ (𝐾𝐶𝐵))
61	37, 58, 60	syl2anc 596	. . . 4 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑜) → ((𝑆 ∘ 𝑠)‘𝑐) ∈ (𝐾𝐶𝐵))
62	36	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑉) → (𝑆 ∘ 𝑠) Fn 𝐸)
63	56	unssbd 4195	. . . . . . 7 ⊢ (𝜑 → ran 𝐻 ⊆ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
64	63	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑉) → ran 𝐻 ⊆ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
65		ffn 6734	. . . . . . . 8 ⊢ (𝐻:𝑉⟶𝐸 → 𝐻 Fn 𝑉)
66	6, 43, 65	3syl 19	. . . . . . 7 ⊢ (𝜑 → 𝐻 Fn 𝑉)
67		fnfvelrn 7107	. . . . . . 7 ⊢ ((𝐻 Fn 𝑉 ∧ 𝑡 ∈ 𝑉) → (𝐻‘𝑡) ∈ ran 𝐻)
68	66, 67	sylan 592	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑉) → (𝐻‘𝑡) ∈ ran 𝐻)
69	64, 68	sseldd 3914	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑉) → (𝐻‘𝑡) ∈ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)))
70		elpreima 7083	. . . . . 6 ⊢ ((𝑆 ∘ 𝑠) Fn 𝐸 → ((𝐻‘𝑡) ∈ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵)) ↔ ((𝐻‘𝑡) ∈ 𝐸 ∧ ((𝑆 ∘ 𝑠)‘(𝐻‘𝑡)) ∈ (𝐾𝐶𝐵))))
71	70	simplbda 505	. . . . 5 ⊢ (((𝑆 ∘ 𝑠) Fn 𝐸 ∧ (𝐻‘𝑡) ∈ (◡(𝑆 ∘ 𝑠) “ (𝐾𝐶𝐵))) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑡)) ∈ (𝐾𝐶𝐵))
72	62, 69, 71	syl2anc 596	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑉) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑡)) ∈ (𝐾𝐶𝐵))
73	5	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑠:𝐸⟶𝐸)
74	6, 43	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐻:𝑉⟶𝐸)
75	74	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝐻:𝑉⟶𝐸)
76	18	simp1d 1160	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑚 ⊆ 𝐷 ∧ ◡𝑚 = 𝑚))
77	76	simpld 500	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑚 ⊆ 𝐷)
78	26, 16	mdvval 36449	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐷 = ((𝑉 × 𝑉) ∖ I )
79		difss 4075	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑉 × 𝑉) ∖ I ) ⊆ (𝑉 × 𝑉)
80	78, 79	eqsstri 3959	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐷 ⊆ (𝑉 × 𝑉)
81	77, 80	sstrdi 3925	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑚 ⊆ (𝑉 × 𝑉))
82	81	ssbrd 5152	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑐𝑚𝑑 → 𝑐(𝑉 × 𝑉)𝑑))
83	82	imp 412	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑐(𝑉 × 𝑉)𝑑)
84		brxp 5705	. . . . . . . . . . . . . . . 16 ⊢ (𝑐(𝑉 × 𝑉)𝑑 ↔ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉))
85	83, 84	sylib 221	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉))
86	85	simpld 500	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑐 ∈ 𝑉)
87	75, 86	ffvelcdmd 7112	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝐻‘𝑐) ∈ 𝐸)
88		fvco3 7011	. . . . . . . . . . . . 13 ⊢ ((𝑠:𝐸⟶𝐸 ∧ (𝐻‘𝑐) ∈ 𝐸) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑐)) = (𝑆‘(𝑠‘(𝐻‘𝑐))))
89	73, 87, 88	syl2anc 596	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑐)) = (𝑆‘(𝑠‘(𝐻‘𝑐))))
90	89	fveq2d 6915	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) = (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑐)))))
91	6	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑇 ∈ mFS)
92	29	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑆 ∈ ran 𝐿)
93	73, 87	ffvelcdmd 7112	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑠‘(𝐻‘𝑐)) ∈ 𝐸)
94	2, 3, 28, 27	msubvrs 36505	. . . . . . . . . . . 12 ⊢ ((𝑇 ∈ mFS ∧ 𝑆 ∈ ran 𝐿 ∧ (𝑠‘(𝐻‘𝑐)) ∈ 𝐸) → (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑐)))) = ∪ 𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))(𝑊‘(𝑆‘(𝐻‘𝑢))))
95	91, 92, 93, 94	syl3anc 1399	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑐)))) = ∪ 𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))(𝑊‘(𝑆‘(𝐻‘𝑢))))
96	90, 95	eqtrd 2798	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) = ∪ 𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))(𝑊‘(𝑆‘(𝐻‘𝑢))))
97	96	eleq2d 2850	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) ↔ 𝑎 ∈ ∪ 𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))(𝑊‘(𝑆‘(𝐻‘𝑢)))))
98		eliun 4958	. . . . . . . . 9 ⊢ (𝑎 ∈ ∪ 𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))(𝑊‘(𝑆‘(𝐻‘𝑢))) ↔ ∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))))
99	97, 98	bitrdi 290	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) ↔ ∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢)))))
100	85	simprd 501	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → 𝑑 ∈ 𝑉)
101	75, 100	ffvelcdmd 7112	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝐻‘𝑑) ∈ 𝐸)
102		fvco3 7011	. . . . . . . . . . . . 13 ⊢ ((𝑠:𝐸⟶𝐸 ∧ (𝐻‘𝑑) ∈ 𝐸) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑑)) = (𝑆‘(𝑠‘(𝐻‘𝑑))))
103	73, 101, 102	syl2anc 596	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑆 ∘ 𝑠)‘(𝐻‘𝑑)) = (𝑆‘(𝑠‘(𝐻‘𝑑))))
104	103	fveq2d 6915	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))) = (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑑)))))
105	73, 101	ffvelcdmd 7112	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑠‘(𝐻‘𝑑)) ∈ 𝐸)
106	2, 3, 28, 27	msubvrs 36505	. . . . . . . . . . . 12 ⊢ ((𝑇 ∈ mFS ∧ 𝑆 ∈ ran 𝐿 ∧ (𝑠‘(𝐻‘𝑑)) ∈ 𝐸) → (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑑)))) = ∪ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑊‘(𝑆‘(𝐻‘𝑣))))
107	91, 92, 105, 106	syl3anc 1399	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘(𝑆‘(𝑠‘(𝐻‘𝑑)))) = ∪ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑊‘(𝑆‘(𝐻‘𝑣))))
108	104, 107	eqtrd 2798	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))) = ∪ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑊‘(𝑆‘(𝐻‘𝑣))))
109	108	eleq2d 2850	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))) ↔ 𝑏 ∈ ∪ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑊‘(𝑆‘(𝐻‘𝑣)))))
110		eliun 4958	. . . . . . . . 9 ⊢ (𝑏 ∈ ∪ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑊‘(𝑆‘(𝐻‘𝑣))) ↔ ∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))))
111	109, 110	bitrdi 290	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))) ↔ ∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))))
112	99, 111	anbi12d 644	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) ∧ 𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑)))) ↔ (∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ ∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))))))
113		reeanv 3238	. . . . . . . 8 ⊢ (∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))) ↔ (∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ ∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))))
114		simpll 779	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐𝑚𝑑) ∧ (𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐))) ∧ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑))))) → 𝜑)
115		brxp 5705	. . . . . . . . . . . 12 ⊢ (𝑢((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑))))𝑣 ↔ (𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐))) ∧ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))))
116		mclsppslem.12	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ∀𝑧∀𝑤(𝑧𝑚𝑤 → ((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) ⊆ 𝑀))
117		breq12 5111	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝑧𝑚𝑤 ↔ 𝑐𝑚𝑑))
118		simpl 488	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → 𝑧 = 𝑐)
119	118	fveq2d 6915	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝐻‘𝑧) = (𝐻‘𝑐))
120	119	fveq2d 6915	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝑠‘(𝐻‘𝑧)) = (𝑠‘(𝐻‘𝑐)))
121	120	fveq2d 6915	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝑊‘(𝑠‘(𝐻‘𝑧))) = (𝑊‘(𝑠‘(𝐻‘𝑐))))
122		simpr 490	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → 𝑤 = 𝑑)
123	122	fveq2d 6915	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝐻‘𝑤) = (𝐻‘𝑑))
124	123	fveq2d 6915	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝑠‘(𝐻‘𝑤)) = (𝑠‘(𝐻‘𝑑)))
125	124	fveq2d 6915	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (𝑊‘(𝑠‘(𝐻‘𝑤))) = (𝑊‘(𝑠‘(𝐻‘𝑑))))
126	121, 125	xpeq12d 5687	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → ((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) = ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))))
127	126	sseq1d 3944	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → (((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) ⊆ 𝑀 ↔ ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀))
128	117, 127	imbi12d 347	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑧 = 𝑐 ∧ 𝑤 = 𝑑) → ((𝑧𝑚𝑤 → ((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) ⊆ 𝑀) ↔ (𝑐𝑚𝑑 → ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀)))
129	128	spc2gv 3558	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ V ∧ 𝑑 ∈ V) → (∀𝑧∀𝑤(𝑧𝑚𝑤 → ((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) ⊆ 𝑀) → (𝑐𝑚𝑑 → ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀)))
130	129	el2v 3461	. . . . . . . . . . . . . . 15 ⊢ (∀𝑧∀𝑤(𝑧𝑚𝑤 → ((𝑊‘(𝑠‘(𝐻‘𝑧))) × (𝑊‘(𝑠‘(𝐻‘𝑤)))) ⊆ 𝑀) → (𝑐𝑚𝑑 → ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀))
131	116, 130	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑐𝑚𝑑 → ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀))
132	131	imp 412	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑)))) ⊆ 𝑀)
133	132	ssbrd 5152	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (𝑢((𝑊‘(𝑠‘(𝐻‘𝑐))) × (𝑊‘(𝑠‘(𝐻‘𝑑))))𝑣 → 𝑢𝑀𝑣))
134	115, 133	biimtrrid 246	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐))) ∧ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))) → 𝑢𝑀𝑣))
135	134	imp 412	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐𝑚𝑑) ∧ (𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐))) ∧ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑))))) → 𝑢𝑀𝑣)
136		vex 3458	. . . . . . . . . . . . 13 ⊢ 𝑢 ∈ V
137		vex 3458	. . . . . . . . . . . . 13 ⊢ 𝑣 ∈ V
138		breq12 5111	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑥𝑀𝑦 ↔ 𝑢𝑀𝑣))
139		simpl 488	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → 𝑥 = 𝑢)
140	139	fveq2d 6915	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝐻‘𝑥) = (𝐻‘𝑢))
141	140	fveq2d 6915	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑆‘(𝐻‘𝑥)) = (𝑆‘(𝐻‘𝑢)))
142	141	fveq2d 6915	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑊‘(𝑆‘(𝐻‘𝑥))) = (𝑊‘(𝑆‘(𝐻‘𝑢))))
143	142	eleq2d 2850	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑥))) ↔ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢)))))
144		simpr 490	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → 𝑦 = 𝑣)
145	144	fveq2d 6915	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝐻‘𝑦) = (𝐻‘𝑣))
146	145	fveq2d 6915	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑆‘(𝐻‘𝑦)) = (𝑆‘(𝐻‘𝑣)))
147	146	fveq2d 6915	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑊‘(𝑆‘(𝐻‘𝑦))) = (𝑊‘(𝑆‘(𝐻‘𝑣))))
148	147	eleq2d 2850	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑦))) ↔ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))))
149	138, 143, 148	3anbi123d 1465	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → ((𝑥𝑀𝑦 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑥))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑦)))) ↔ (𝑢𝑀𝑣 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))))))
150	149	anbi2d 642	. . . . . . . . . . . . . 14 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → ((𝜑 ∧ (𝑥𝑀𝑦 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑥))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑦))))) ↔ (𝜑 ∧ (𝑢𝑀𝑣 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))))))
151	150	imbi1d 344	. . . . . . . . . . . . 13 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (((𝜑 ∧ (𝑥𝑀𝑦 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑥))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑦))))) → 𝑎𝐾𝑏) ↔ ((𝜑 ∧ (𝑢𝑀𝑣 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))))) → 𝑎𝐾𝑏)))
152		mclspps.8	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥𝑀𝑦 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑥))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑦))))) → 𝑎𝐾𝑏)
153	136, 137, 151, 152	vtocl2 3530	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑢𝑀𝑣 ∧ 𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))))) → 𝑎𝐾𝑏)
154	153	3exp2 1373	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑢𝑀𝑣 → (𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) → (𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣))) → 𝑎𝐾𝑏))))
155	154	imp4b 427	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢𝑀𝑣) → ((𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))) → 𝑎𝐾𝑏))
156	114, 135, 155	syl2anc 596	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑐𝑚𝑑) ∧ (𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐))) ∧ 𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑))))) → ((𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))) → 𝑎𝐾𝑏))
157	156	rexlimdvva 3223	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → (∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))(𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ 𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))) → 𝑎𝐾𝑏))
158	113, 157	biimtrrid 246	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((∃𝑢 ∈ (𝑊‘(𝑠‘(𝐻‘𝑐)))𝑎 ∈ (𝑊‘(𝑆‘(𝐻‘𝑢))) ∧ ∃𝑣 ∈ (𝑊‘(𝑠‘(𝐻‘𝑑)))𝑏 ∈ (𝑊‘(𝑆‘(𝐻‘𝑣)))) → 𝑎𝐾𝑏))
159	112, 158	sylbid 243	. . . . . 6 ⊢ ((𝜑 ∧ 𝑐𝑚𝑑) → ((𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) ∧ 𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑)))) → 𝑎𝐾𝑏))
160	159	exp4b 436	. . . . 5 ⊢ (𝜑 → (𝑐𝑚𝑑 → (𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) → (𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))) → 𝑎𝐾𝑏))))
161	160	3imp2 1368	. . . 4 ⊢ ((𝜑 ∧ (𝑐𝑚𝑑 ∧ 𝑎 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑐))) ∧ 𝑏 ∈ (𝑊‘((𝑆 ∘ 𝑠)‘(𝐻‘𝑑))))) → 𝑎𝐾𝑏)
162	16, 3, 23, 6, 24, 25, 7, 2, 26, 27, 28, 14, 31, 61, 72, 161	mclsax 36514	. . 3 ⊢ (𝜑 → ((𝑆 ∘ 𝑠)‘𝑝) ∈ (𝐾𝐶𝐵))
163	22, 162	eqeltrrd 2865	. 2 ⊢ (𝜑 → (𝑆‘(𝑠‘𝑝)) ∈ (𝐾𝐶𝐵))
164	33	ffnd 6735	. . 3 ⊢ (𝜑 → 𝑆 Fn 𝐸)
165		elpreima 7083	. . 3 ⊢ (𝑆 Fn 𝐸 → ((𝑠‘𝑝) ∈ (◡𝑆 “ (𝐾𝐶𝐵)) ↔ ((𝑠‘𝑝) ∈ 𝐸 ∧ (𝑆‘(𝑠‘𝑝)) ∈ (𝐾𝐶𝐵))))
166	164, 165	syl 18	. 2 ⊢ (𝜑 → ((𝑠‘𝑝) ∈ (◡𝑆 “ (𝐾𝐶𝐵)) ↔ ((𝑠‘𝑝) ∈ 𝐸 ∧ (𝑆‘(𝑠‘𝑝)) ∈ (𝐾𝐶𝐵))))
167	20, 163, 166	mpbir2and 726	1 ⊢ (𝜑 → (𝑠‘𝑝) ∈ (◡𝑆 “ (𝐾𝐶𝐵)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103  ∀wal 1568   = wceq 1570   ∈ wcel 2147  ∃wrex 3090  Vcvv 3454   ⊆ wss 3900   ∖ cdif 4048   ∪ cun 4152  ⟨cotp 4861  ∪ ciun 4954   class class class wbr 5106   I cid 5550   × cxp 5654  ^◡ccnv 5655  dom cdm 5656  ran crn 5657   “ cima 5659   ∘ ccom 5660  Fun wfun 6555   Fn wfn 6556  ⟶wf 6557  ‘cfv 6561  (class class class)co 7446  Fincfn 9004  mVRcmvar 36406  mAxcmax 36410  mExcmex 36412  mDVcmdv 36413  mVarscmvrs 36414  mSubstcmsub 36416  mVHcmvh 36417  mPreStcmpst 36418  mStatcmsta 36420  mFScmfs 36421  mClscmcls 36422  mPPStcmpps 36423

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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5236  ax-sep 5253  ax-nul 5264  ax-pow 5332  ax-pr 5396  ax-un 7778  ax-cnex 11286  ax-resscn 11287  ax-1cn 11288  ax-icn 11289  ax-addcl 11290  ax-addrcl 11291  ax-mulcl 11292  ax-mulrcl 11293  ax-mulcom 11294  ax-addass 11295  ax-mulass 11296  ax-distr 11297  ax-i2m1 11298  ax-1ne0 11299  ax-1rid 11300  ax-rnegex 11301  ax-rrecex 11302  ax-cnre 11303  ax-pre-lttri 11304  ax-pre-lttrn 11305  ax-pre-ltadd 11306  ax-pre-mulgt0 11307

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 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-ot 4862  df-uni 4871  df-int 4911  df-iun 4956  df-br 5107  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5551  df-eprel 5556  df-po 5564  df-so 5565  df-fr 5609  df-we 5611  df-xp 5662  df-rel 5663  df-cnv 5664  df-co 5665  df-dm 5666  df-rn 5667  df-res 5668  df-ima 5669  df-pred 6325  df-ord 6386  df-on 6387  df-lim 6388  df-suc 6389  df-iota 6515  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-riota 7403  df-ov 7449  df-oprab 7450  df-mpo 7451  df-om 7905  df-1st 8028  df-2nd 8029  df-frecs 8330  df-wrecs 8361  df-recs 8410  df-rdg 8449  df-1o 8507  df-er 8748  df-map 8880  df-pm 8881  df-en 9005  df-dom 9006  df-sdom 9007  df-fin 9008  df-card 10050  df-pnf 11375  df-mnf 11376  df-xr 11377  df-ltxr 11378  df-le 11379  df-sub 11573  df-neg 11574  df-nn 12366  df-2 12435  df-n0 12637  df-xnn0 12710  df-z 12724  df-uz 12996  df-fz 13670  df-fzo 13819  df-seq 14175  df-hash 14505  df-word 14689  df-lsw 14738  df-concat 14746  df-s1 14773  df-substr 14820  df-pfx 14852  df-struct 17357  df-sets 17374  df-slot 17392  df-ndx 17404  df-base 17420  df-ress 17441  df-plusg 17473  df-0g 17644  df-gsum 17645  df-mgm 18848  df-sgrp 18940  df-mnd 18956  df-mhm 19010  df-submnd 19011  df-frmd 19077  df-vrmd 19078  df-mrex 36431  df-mex 36432  df-mdv 36433  df-mvrs 36434  df-mrsub 36435  df-msub 36436  df-mvh 36437  df-mpst 36438  df-msr 36439  df-msta 36440  df-mfs 36441  df-mcls 36442

This theorem is used by:  mclspps  36529