Theorem mclsrcl 36053

Description: Reverse closure for the closure function. (Contributed by Mario Carneiro, 18-Jul-2016.)

Hypotheses

Ref	Expression
mclsval.d	⊢ 𝐷 = (mDV‘𝑇)
mclsval.e	⊢ 𝐸 = (mEx‘𝑇)
mclsval.c	⊢ 𝐶 = (mCls‘𝑇)

Assertion

Ref	Expression
mclsrcl	⊢ (𝐴 ∈ (𝐾𝐶𝐵) → (𝑇 ∈ V ∧ 𝐾 ⊆ 𝐷 ∧ 𝐵 ⊆ 𝐸))

Proof of Theorem mclsrcl

Dummy variables ℎ 𝑑 𝑡 𝑐 𝑚 𝑜 𝑝 𝑠 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		n0i 4293	. . 3 ⊢ (𝐴 ∈ (𝐾𝐶𝐵) → ¬ (𝐾𝐶𝐵) = ∅)
2		mclsval.c	. . . . . 6 ⊢ 𝐶 = (mCls‘𝑇)
3		fvprc 6873	. . . . . 6 ⊢ (¬ 𝑇 ∈ V → (mCls‘𝑇) = ∅)
4	2, 3	eqtrid 2810	. . . . 5 ⊢ (¬ 𝑇 ∈ V → 𝐶 = ∅)
5	4	oveqd 7427	. . . 4 ⊢ (¬ 𝑇 ∈ V → (𝐾𝐶𝐵) = (𝐾∅𝐵))
6		0ov 7447	. . . 4 ⊢ (𝐾∅𝐵) = ∅
7	5, 6	eqtrdi 2814	. . 3 ⊢ (¬ 𝑇 ∈ V → (𝐾𝐶𝐵) = ∅)
8	1, 7	nsyl2 142	. 2 ⊢ (𝐴 ∈ (𝐾𝐶𝐵) → 𝑇 ∈ V)
9		fveq2 6881	. . . . . . . . 9 ⊢ (𝑡 = 𝑇 → (mCls‘𝑡) = (mCls‘𝑇))
10	9, 2	eqtr4di 2816	. . . . . . . 8 ⊢ (𝑡 = 𝑇 → (mCls‘𝑡) = 𝐶)
11	10	oveqd 7427	. . . . . . 7 ⊢ (𝑡 = 𝑇 → (𝐾(mCls‘𝑡)𝐵) = (𝐾𝐶𝐵))
12	11	eleq2d 2849	. . . . . 6 ⊢ (𝑡 = 𝑇 → (𝐴 ∈ (𝐾(mCls‘𝑡)𝐵) ↔ 𝐴 ∈ (𝐾𝐶𝐵)))
13		fvex 6894	. . . . . . . . 9 ⊢ (mDV‘𝑡) ∈ V
14	13	elpw2 5305	. . . . . . . 8 ⊢ (𝐾 ∈ 𝒫 (mDV‘𝑡) ↔ 𝐾 ⊆ (mDV‘𝑡))
15		fveq2 6881	. . . . . . . . . 10 ⊢ (𝑡 = 𝑇 → (mDV‘𝑡) = (mDV‘𝑇))
16		mclsval.d	. . . . . . . . . 10 ⊢ 𝐷 = (mDV‘𝑇)
17	15, 16	eqtr4di 2816	. . . . . . . . 9 ⊢ (𝑡 = 𝑇 → (mDV‘𝑡) = 𝐷)
18	17	sseq2d 3969	. . . . . . . 8 ⊢ (𝑡 = 𝑇 → (𝐾 ⊆ (mDV‘𝑡) ↔ 𝐾 ⊆ 𝐷))
19	14, 18	bitrid 286	. . . . . . 7 ⊢ (𝑡 = 𝑇 → (𝐾 ∈ 𝒫 (mDV‘𝑡) ↔ 𝐾 ⊆ 𝐷))
20		fvex 6894	. . . . . . . . 9 ⊢ (mEx‘𝑡) ∈ V
21	20	elpw2 5305	. . . . . . . 8 ⊢ (𝐵 ∈ 𝒫 (mEx‘𝑡) ↔ 𝐵 ⊆ (mEx‘𝑡))
22		fveq2 6881	. . . . . . . . . 10 ⊢ (𝑡 = 𝑇 → (mEx‘𝑡) = (mEx‘𝑇))
23		mclsval.e	. . . . . . . . . 10 ⊢ 𝐸 = (mEx‘𝑇)
24	22, 23	eqtr4di 2816	. . . . . . . . 9 ⊢ (𝑡 = 𝑇 → (mEx‘𝑡) = 𝐸)
25	24	sseq2d 3969	. . . . . . . 8 ⊢ (𝑡 = 𝑇 → (𝐵 ⊆ (mEx‘𝑡) ↔ 𝐵 ⊆ 𝐸))
26	21, 25	bitrid 286	. . . . . . 7 ⊢ (𝑡 = 𝑇 → (𝐵 ∈ 𝒫 (mEx‘𝑡) ↔ 𝐵 ⊆ 𝐸))
27	19, 26	anbi12d 643	. . . . . 6 ⊢ (𝑡 = 𝑇 → ((𝐾 ∈ 𝒫 (mDV‘𝑡) ∧ 𝐵 ∈ 𝒫 (mEx‘𝑡)) ↔ (𝐾 ⊆ 𝐷 ∧ 𝐵 ⊆ 𝐸)))
28	12, 27	imbi12d 347	. . . . 5 ⊢ (𝑡 = 𝑇 → ((𝐴 ∈ (𝐾(mCls‘𝑡)𝐵) → (𝐾 ∈ 𝒫 (mDV‘𝑡) ∧ 𝐵 ∈ 𝒫 (mEx‘𝑡))) ↔ (𝐴 ∈ (𝐾𝐶𝐵) → (𝐾 ⊆ 𝐷 ∧ 𝐵 ⊆ 𝐸))))
29		vex 3459	. . . . . . 7 ⊢ 𝑡 ∈ V
30	13	pwex 5351	. . . . . . . 8 ⊢ 𝒫 (mDV‘𝑡) ∈ V
31	20	pwex 5351	. . . . . . . 8 ⊢ 𝒫 (mEx‘𝑡) ∈ V
32	30, 31	mpoex 8072	. . . . . . 7 ⊢ (𝑑 ∈ 𝒫 (mDV‘𝑡), ℎ ∈ 𝒫 (mEx‘𝑡) ↦ ∩ {𝑐 ∣ ((ℎ ∪ ran (mVH‘𝑡)) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(⟨𝑚, 𝑜, 𝑝⟩ ∈ (mAx‘𝑡) → ∀𝑠 ∈ ran (mSubst‘𝑡)(((𝑠 “ (𝑜 ∪ ran (mVH‘𝑡))) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → (((mVars‘𝑡)‘(𝑠‘((mVH‘𝑡)‘𝑥))) × ((mVars‘𝑡)‘(𝑠‘((mVH‘𝑡)‘𝑦)))) ⊆ 𝑑)) → (𝑠‘𝑝) ∈ 𝑐)))}) ∈ V
33		df-mcls 35989	. . . . . . . 8 ⊢ mCls = (𝑡 ∈ V ↦ (𝑑 ∈ 𝒫 (mDV‘𝑡), ℎ ∈ 𝒫 (mEx‘𝑡) ↦ ∩ {𝑐 ∣ ((ℎ ∪ ran (mVH‘𝑡)) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(⟨𝑚, 𝑜, 𝑝⟩ ∈ (mAx‘𝑡) → ∀𝑠 ∈ ran (mSubst‘𝑡)(((𝑠 “ (𝑜 ∪ ran (mVH‘𝑡))) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → (((mVars‘𝑡)‘(𝑠‘((mVH‘𝑡)‘𝑥))) × ((mVars‘𝑡)‘(𝑠‘((mVH‘𝑡)‘𝑦)))) ⊆ 𝑑)) → (𝑠‘𝑝) ∈ 𝑐)))}))
34	33	fvmpt2 7001	. . . . . . 7 ⊢ ((𝑡 ∈ V ∧ (𝑑 ∈ 𝒫 (mDV‘𝑡), ℎ ∈ 𝒫 (mEx‘𝑡) ↦ ∩ {𝑐 ∣ ((ℎ ∪ ran (mVH‘𝑡)) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(⟨𝑚, 𝑜, 𝑝⟩ ∈ (mAx‘𝑡) → ∀𝑠 ∈ ran (mSubst‘𝑡)(((𝑠 “ (𝑜 ∪ ran (mVH‘𝑡))) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → (((mVars‘𝑡)‘(𝑠‘((mVH‘𝑡)‘𝑥))) × ((mVars‘𝑡)‘(𝑠‘((mVH‘𝑡)‘𝑦)))) ⊆ 𝑑)) → (𝑠‘𝑝) ∈ 𝑐)))}) ∈ V) → (mCls‘𝑡) = (𝑑 ∈ 𝒫 (mDV‘𝑡), ℎ ∈ 𝒫 (mEx‘𝑡) ↦ ∩ {𝑐 ∣ ((ℎ ∪ ran (mVH‘𝑡)) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(⟨𝑚, 𝑜, 𝑝⟩ ∈ (mAx‘𝑡) → ∀𝑠 ∈ ran (mSubst‘𝑡)(((𝑠 “ (𝑜 ∪ ran (mVH‘𝑡))) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → (((mVars‘𝑡)‘(𝑠‘((mVH‘𝑡)‘𝑥))) × ((mVars‘𝑡)‘(𝑠‘((mVH‘𝑡)‘𝑦)))) ⊆ 𝑑)) → (𝑠‘𝑝) ∈ 𝑐)))}))
35	29, 32, 34	mp2an 704	. . . . . 6 ⊢ (mCls‘𝑡) = (𝑑 ∈ 𝒫 (mDV‘𝑡), ℎ ∈ 𝒫 (mEx‘𝑡) ↦ ∩ {𝑐 ∣ ((ℎ ∪ ran (mVH‘𝑡)) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(⟨𝑚, 𝑜, 𝑝⟩ ∈ (mAx‘𝑡) → ∀𝑠 ∈ ran (mSubst‘𝑡)(((𝑠 “ (𝑜 ∪ ran (mVH‘𝑡))) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → (((mVars‘𝑡)‘(𝑠‘((mVH‘𝑡)‘𝑥))) × ((mVars‘𝑡)‘(𝑠‘((mVH‘𝑡)‘𝑦)))) ⊆ 𝑑)) → (𝑠‘𝑝) ∈ 𝑐)))})
36	35	elmpocl 7651	. . . . 5 ⊢ (𝐴 ∈ (𝐾(mCls‘𝑡)𝐵) → (𝐾 ∈ 𝒫 (mDV‘𝑡) ∧ 𝐵 ∈ 𝒫 (mEx‘𝑡)))
37	28, 36	vtoclg 3522	. . . 4 ⊢ (𝑇 ∈ V → (𝐴 ∈ (𝐾𝐶𝐵) → (𝐾 ⊆ 𝐷 ∧ 𝐵 ⊆ 𝐸)))
38	8, 37	mpcom 39	. . 3 ⊢ (𝐴 ∈ (𝐾𝐶𝐵) → (𝐾 ⊆ 𝐷 ∧ 𝐵 ⊆ 𝐸))
39	38	simpld 499	. 2 ⊢ (𝐴 ∈ (𝐾𝐶𝐵) → 𝐾 ⊆ 𝐷)
40	38	simprd 500	. 2 ⊢ (𝐴 ∈ (𝐾𝐶𝐵) → 𝐵 ⊆ 𝐸)
41	8, 39, 40	3jca 1146	1 ⊢ (𝐴 ∈ (𝐾𝐶𝐵) → (𝑇 ∈ V ∧ 𝐾 ⊆ 𝐷 ∧ 𝐵 ⊆ 𝐸))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 400   ∧ w3a 1103  ∀wal 1568   = wceq 1570   ∈ wcel 2143  {cab 2741  ∀wral 3079  Vcvv 3455   ∪ cun 3903   ⊆ wss 3905  ∅c0 4286  𝒫 cpw 4562  ⟨cotp 4597  ∩ cint 4912   class class class wbr 5109   × cxp 5659  ran crn 5662   “ cima 5664  ‘cfv 6536  (class class class)co 7410   ∈ cmpo 7412  mAxcmax 35957  mExcmex 35959  mDVcmdv 35960  mVarscmvrs 35961  mSubstcmsub 35963  mVHcmvh 35964  mClscmcls 35969

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-id 5556  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-ov 7413  df-oprab 7414  df-mpo 7415  df-1st 7982  df-2nd 7983  df-mcls 35989

This theorem is referenced by: (None)