Metamath Proof Explorer


Theorem isnacs3

Description: A choice-free order equivalent to the Noetherian condition on a closure system. (Contributed by Stefan O'Rear, 4-Apr-2015)

Ref Expression
Assertion isnacs3 ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ↔ ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) )

Proof

Step Hyp Ref Expression
1 nacsacs ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) → 𝐶 ∈ ( ACS ‘ 𝑋 ) )
2 1 acsmred ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) → 𝐶 ∈ ( Moore ‘ 𝑋 ) )
3 simpll ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → 𝐶 ∈ ( NoeACS ‘ 𝑋 ) )
4 1 ad2antrr ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → 𝐶 ∈ ( ACS ‘ 𝑋 ) )
5 elpwi ( 𝑠 ∈ 𝒫 𝐶𝑠𝐶 )
6 5 ad2antlr ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → 𝑠𝐶 )
7 simpr ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → ( toInc ‘ 𝑠 ) ∈ Dirset )
8 acsdrsel ( ( 𝐶 ∈ ( ACS ‘ 𝑋 ) ∧ 𝑠𝐶 ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → 𝑠𝐶 )
9 4 6 7 8 syl3anc ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → 𝑠𝐶 )
10 eqid ( mrCls ‘ 𝐶 ) = ( mrCls ‘ 𝐶 )
11 10 nacsfg ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠𝐶 ) → ∃ 𝑔 ∈ ( 𝒫 𝑋 ∩ Fin ) 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) )
12 3 9 11 syl2anc ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → ∃ 𝑔 ∈ ( 𝒫 𝑋 ∩ Fin ) 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) )
13 10 mrefg2 ( 𝐶 ∈ ( Moore ‘ 𝑋 ) → ( ∃ 𝑔 ∈ ( 𝒫 𝑋 ∩ Fin ) 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ↔ ∃ 𝑔 ∈ ( 𝒫 𝑠 ∩ Fin ) 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) )
14 2 13 syl ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) → ( ∃ 𝑔 ∈ ( 𝒫 𝑋 ∩ Fin ) 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ↔ ∃ 𝑔 ∈ ( 𝒫 𝑠 ∩ Fin ) 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) )
15 14 ad2antrr ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → ( ∃ 𝑔 ∈ ( 𝒫 𝑋 ∩ Fin ) 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ↔ ∃ 𝑔 ∈ ( 𝒫 𝑠 ∩ Fin ) 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) )
16 12 15 mpbid ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → ∃ 𝑔 ∈ ( 𝒫 𝑠 ∩ Fin ) 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) )
17 elfpw ( 𝑔 ∈ ( 𝒫 𝑠 ∩ Fin ) ↔ ( 𝑔 𝑠𝑔 ∈ Fin ) )
18 fissuni ( ( 𝑔 𝑠𝑔 ∈ Fin ) → ∃ ∈ ( 𝒫 𝑠 ∩ Fin ) 𝑔 )
19 17 18 sylbi ( 𝑔 ∈ ( 𝒫 𝑠 ∩ Fin ) → ∃ ∈ ( 𝒫 𝑠 ∩ Fin ) 𝑔 )
20 elfpw ( ∈ ( 𝒫 𝑠 ∩ Fin ) ↔ ( 𝑠 ∈ Fin ) )
21 ipodrsfi ( ( ( toInc ‘ 𝑠 ) ∈ Dirset ∧ 𝑠 ∈ Fin ) → ∃ 𝑖𝑠 𝑖 )
22 21 3expb ( ( ( toInc ‘ 𝑠 ) ∈ Dirset ∧ ( 𝑠 ∈ Fin ) ) → ∃ 𝑖𝑠 𝑖 )
23 20 22 sylan2b ( ( ( toInc ‘ 𝑠 ) ∈ Dirset ∧ ∈ ( 𝒫 𝑠 ∩ Fin ) ) → ∃ 𝑖𝑠 𝑖 )
24 sstr ( ( 𝑔 𝑖 ) → 𝑔𝑖 )
25 24 ancoms ( ( 𝑖𝑔 ) → 𝑔𝑖 )
26 simpr ( ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) ∧ 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) → 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) )
27 2 ad2antrr ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) → 𝐶 ∈ ( Moore ‘ 𝑋 ) )
28 simprr ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) → 𝑔𝑖 )
29 5 ad2antlr ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) → 𝑠𝐶 )
30 simprl ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) → 𝑖𝑠 )
31 29 30 sseldd ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) → 𝑖𝐶 )
32 10 mrcsscl ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑔𝑖𝑖𝐶 ) → ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ⊆ 𝑖 )
33 27 28 31 32 syl3anc ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) → ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ⊆ 𝑖 )
34 33 adantr ( ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) ∧ 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) → ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ⊆ 𝑖 )
35 26 34 eqsstrd ( ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) ∧ 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) → 𝑠𝑖 )
36 simplrl ( ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) ∧ 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) → 𝑖𝑠 )
37 elssuni ( 𝑖𝑠𝑖 𝑠 )
38 36 37 syl ( ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) ∧ 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) → 𝑖 𝑠 )
39 35 38 eqssd ( ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) ∧ 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) → 𝑠 = 𝑖 )
40 39 36 eqeltrd ( ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) ∧ 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) → 𝑠𝑠 )
41 40 ex ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( 𝑖𝑠𝑔𝑖 ) ) → ( 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) → 𝑠𝑠 ) )
42 41 expr ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ 𝑖𝑠 ) → ( 𝑔𝑖 → ( 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) → 𝑠𝑠 ) ) )
43 25 42 syl5 ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ 𝑖𝑠 ) → ( ( 𝑖𝑔 ) → ( 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) → 𝑠𝑠 ) ) )
44 43 expd ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ 𝑖𝑠 ) → ( 𝑖 → ( 𝑔 → ( 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) → 𝑠𝑠 ) ) ) )
45 44 rexlimdva ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) → ( ∃ 𝑖𝑠 𝑖 → ( 𝑔 → ( 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) → 𝑠𝑠 ) ) ) )
46 23 45 syl5 ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) → ( ( ( toInc ‘ 𝑠 ) ∈ Dirset ∧ ∈ ( 𝒫 𝑠 ∩ Fin ) ) → ( 𝑔 → ( 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) → 𝑠𝑠 ) ) ) )
47 46 expdimp ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → ( ∈ ( 𝒫 𝑠 ∩ Fin ) → ( 𝑔 → ( 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) → 𝑠𝑠 ) ) ) )
48 47 rexlimdv ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → ( ∃ ∈ ( 𝒫 𝑠 ∩ Fin ) 𝑔 → ( 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) → 𝑠𝑠 ) ) )
49 19 48 syl5 ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → ( 𝑔 ∈ ( 𝒫 𝑠 ∩ Fin ) → ( 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) → 𝑠𝑠 ) ) )
50 49 rexlimdv ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → ( ∃ 𝑔 ∈ ( 𝒫 𝑠 ∩ Fin ) 𝑠 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) → 𝑠𝑠 ) )
51 16 50 mpd ( ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) ∧ ( toInc ‘ 𝑠 ) ∈ Dirset ) → 𝑠𝑠 )
52 51 ex ( ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) → ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) )
53 52 ralrimiva ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) → ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) )
54 2 53 jca ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) → ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) )
55 simpl ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) → 𝐶 ∈ ( Moore ‘ 𝑋 ) )
56 5 adantl ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) → 𝑠𝐶 )
57 56 sseld ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) → ( 𝑠𝑠 𝑠𝐶 ) )
58 57 imim2d ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑠 ∈ 𝒫 𝐶 ) → ( ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) → ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝐶 ) ) )
59 58 ralimdva ( 𝐶 ∈ ( Moore ‘ 𝑋 ) → ( ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) → ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝐶 ) ) )
60 59 imp ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) → ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝐶 ) )
61 isacs3 ( 𝐶 ∈ ( ACS ‘ 𝑋 ) ↔ ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝐶 ) ) )
62 55 60 61 sylanbrc ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) → 𝐶 ∈ ( ACS ‘ 𝑋 ) )
63 10 mrcid ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) → ( ( mrCls ‘ 𝐶 ) ‘ 𝑡 ) = 𝑡 )
64 63 adantlr ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ( ( mrCls ‘ 𝐶 ) ‘ 𝑡 ) = 𝑡 )
65 62 adantr ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → 𝐶 ∈ ( ACS ‘ 𝑋 ) )
66 mress ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) → 𝑡𝑋 )
67 66 adantlr ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → 𝑡𝑋 )
68 65 10 67 acsficld ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ( ( mrCls ‘ 𝐶 ) ‘ 𝑡 ) = ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) )
69 64 68 eqtr3d ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → 𝑡 = ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) )
70 10 mrcf ( 𝐶 ∈ ( Moore ‘ 𝑋 ) → ( mrCls ‘ 𝐶 ) : 𝒫 𝑋𝐶 )
71 70 ffnd ( 𝐶 ∈ ( Moore ‘ 𝑋 ) → ( mrCls ‘ 𝐶 ) Fn 𝒫 𝑋 )
72 71 adantr ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) → ( mrCls ‘ 𝐶 ) Fn 𝒫 𝑋 )
73 10 mrcss ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑔𝑋 ) → ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ⊆ ( ( mrCls ‘ 𝐶 ) ‘ ) )
74 73 3expb ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ( 𝑔𝑋 ) ) → ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ⊆ ( ( mrCls ‘ 𝐶 ) ‘ ) )
75 74 adantlr ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) ∧ ( 𝑔𝑋 ) ) → ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ⊆ ( ( mrCls ‘ 𝐶 ) ‘ ) )
76 vex 𝑡 ∈ V
77 fpwipodrs ( 𝑡 ∈ V → ( toInc ‘ ( 𝒫 𝑡 ∩ Fin ) ) ∈ Dirset )
78 76 77 mp1i ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) → ( toInc ‘ ( 𝒫 𝑡 ∩ Fin ) ) ∈ Dirset )
79 inss1 ( 𝒫 𝑡 ∩ Fin ) ⊆ 𝒫 𝑡
80 66 sspwd ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) → 𝒫 𝑡 ⊆ 𝒫 𝑋 )
81 79 80 sstrid ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) → ( 𝒫 𝑡 ∩ Fin ) ⊆ 𝒫 𝑋 )
82 fvex ( mrCls ‘ 𝐶 ) ∈ V
83 imaexg ( ( mrCls ‘ 𝐶 ) ∈ V → ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ V )
84 82 83 ax-mp ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ V
85 84 a1i ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) → ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ V )
86 72 75 78 81 85 ipodrsima ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) → ( toInc ‘ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ) ∈ Dirset )
87 86 adantlr ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ( toInc ‘ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ) ∈ Dirset )
88 imassrn ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ⊆ ran ( mrCls ‘ 𝐶 )
89 70 frnd ( 𝐶 ∈ ( Moore ‘ 𝑋 ) → ran ( mrCls ‘ 𝐶 ) ⊆ 𝐶 )
90 88 89 sstrid ( 𝐶 ∈ ( Moore ‘ 𝑋 ) → ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ⊆ 𝐶 )
91 90 adantr ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) → ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ⊆ 𝐶 )
92 84 elpw ( ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ 𝒫 𝐶 ↔ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ⊆ 𝐶 )
93 91 92 sylibr ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) → ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ 𝒫 𝐶 )
94 93 adantlr ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ 𝒫 𝐶 )
95 simplr ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) )
96 fveq2 ( 𝑠 = ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) → ( toInc ‘ 𝑠 ) = ( toInc ‘ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ) )
97 96 eleq1d ( 𝑠 = ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) → ( ( toInc ‘ 𝑠 ) ∈ Dirset ↔ ( toInc ‘ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ) ∈ Dirset ) )
98 unieq ( 𝑠 = ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) → 𝑠 = ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) )
99 id ( 𝑠 = ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) → 𝑠 = ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) )
100 98 99 eleq12d ( 𝑠 = ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) → ( 𝑠𝑠 ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ) )
101 97 100 imbi12d ( 𝑠 = ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) → ( ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ↔ ( ( toInc ‘ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ) ∈ Dirset → ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ) ) )
102 101 rspcva ( ( ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ 𝒫 𝐶 ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) → ( ( toInc ‘ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ) ∈ Dirset → ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ) )
103 94 95 102 syl2anc ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ( ( toInc ‘ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ) ∈ Dirset → ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ) )
104 87 103 mpd ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ∈ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) )
105 69 104 eqeltrd ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → 𝑡 ∈ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) )
106 fvelimab ( ( ( mrCls ‘ 𝐶 ) Fn 𝒫 𝑋 ∧ ( 𝒫 𝑡 ∩ Fin ) ⊆ 𝒫 𝑋 ) → ( 𝑡 ∈ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ↔ ∃ 𝑔 ∈ ( 𝒫 𝑡 ∩ Fin ) ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) = 𝑡 ) )
107 72 81 106 syl2anc ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ 𝑡𝐶 ) → ( 𝑡 ∈ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ↔ ∃ 𝑔 ∈ ( 𝒫 𝑡 ∩ Fin ) ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) = 𝑡 ) )
108 107 adantlr ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ( 𝑡 ∈ ( ( mrCls ‘ 𝐶 ) “ ( 𝒫 𝑡 ∩ Fin ) ) ↔ ∃ 𝑔 ∈ ( 𝒫 𝑡 ∩ Fin ) ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) = 𝑡 ) )
109 105 108 mpbid ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ∃ 𝑔 ∈ ( 𝒫 𝑡 ∩ Fin ) ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) = 𝑡 )
110 eqcom ( 𝑡 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ↔ ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) = 𝑡 )
111 110 rexbii ( ∃ 𝑔 ∈ ( 𝒫 𝑡 ∩ Fin ) 𝑡 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ↔ ∃ 𝑔 ∈ ( 𝒫 𝑡 ∩ Fin ) ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) = 𝑡 )
112 109 111 sylibr ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ∃ 𝑔 ∈ ( 𝒫 𝑡 ∩ Fin ) 𝑡 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) )
113 10 mrefg2 ( 𝐶 ∈ ( Moore ‘ 𝑋 ) → ( ∃ 𝑔 ∈ ( 𝒫 𝑋 ∩ Fin ) 𝑡 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ↔ ∃ 𝑔 ∈ ( 𝒫 𝑡 ∩ Fin ) 𝑡 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) )
114 113 ad2antrr ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ( ∃ 𝑔 ∈ ( 𝒫 𝑋 ∩ Fin ) 𝑡 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ↔ ∃ 𝑔 ∈ ( 𝒫 𝑡 ∩ Fin ) 𝑡 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) )
115 112 114 mpbird ( ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) ∧ 𝑡𝐶 ) → ∃ 𝑔 ∈ ( 𝒫 𝑋 ∩ Fin ) 𝑡 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) )
116 115 ralrimiva ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) → ∀ 𝑡𝐶𝑔 ∈ ( 𝒫 𝑋 ∩ Fin ) 𝑡 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) )
117 10 isnacs ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ↔ ( 𝐶 ∈ ( ACS ‘ 𝑋 ) ∧ ∀ 𝑡𝐶𝑔 ∈ ( 𝒫 𝑋 ∩ Fin ) 𝑡 = ( ( mrCls ‘ 𝐶 ) ‘ 𝑔 ) ) )
118 62 116 117 sylanbrc ( ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) → 𝐶 ∈ ( NoeACS ‘ 𝑋 ) )
119 54 118 impbii ( 𝐶 ∈ ( NoeACS ‘ 𝑋 ) ↔ ( 𝐶 ∈ ( Moore ‘ 𝑋 ) ∧ ∀ 𝑠 ∈ 𝒫 𝐶 ( ( toInc ‘ 𝑠 ) ∈ Dirset → 𝑠𝑠 ) ) )