Metamath Proof Explorer


Theorem acsfiindd

Description: In an algebraic closure system, a set is independent if and only if all its finite subsets are independent. Part of Proposition 4.1.3 in FaureFrolicher p. 83. (Contributed by David Moews, 1-May-2017)

Ref Expression
Hypotheses acsfiindd.1 φAACSX
acsfiindd.2 N=mrClsA
acsfiindd.3 I=mrIndA
acsfiindd.4 φSX
Assertion acsfiindd φSI𝒫SFinI

Proof

Step Hyp Ref Expression
1 acsfiindd.1 φAACSX
2 acsfiindd.2 N=mrClsA
3 acsfiindd.3 I=mrIndA
4 acsfiindd.4 φSX
5 1 acsmred φAMooreX
6 5 ad2antrr φSIs𝒫SFinAMooreX
7 simplr φSIs𝒫SFinSI
8 simpr φSIs𝒫SFins𝒫SFin
9 8 elin1d φSIs𝒫SFins𝒫S
10 9 elpwid φSIs𝒫SFinsS
11 6 2 3 7 10 mrissmrid φSIs𝒫SFinsI
12 11 ralrimiva φSIs𝒫SFinsI
13 dfss3 𝒫SFinIs𝒫SFinsI
14 12 13 sylibr φSI𝒫SFinI
15 5 adantr φ𝒫SFinIAMooreX
16 4 adantr φ𝒫SFinISX
17 simpr φxSt𝒫SxFint𝒫SxFin
18 elfpw t𝒫SxFintSxtFin
19 17 18 sylib φxSt𝒫SxFintSxtFin
20 19 simpld φxSt𝒫SxFintSx
21 20 difss2d φxSt𝒫SxFintS
22 simplr φxSt𝒫SxFinxS
23 22 snssd φxSt𝒫SxFinxS
24 21 23 unssd φxSt𝒫SxFintxS
25 19 simprd φxSt𝒫SxFintFin
26 snfi xFin
27 unfi tFinxFintxFin
28 25 26 27 sylancl φxSt𝒫SxFintxFin
29 elfpw tx𝒫SFintxStxFin
30 24 28 29 sylanbrc φxSt𝒫SxFintx𝒫SFin
31 5 ad4antr φxSt𝒫SxFins=txsIAMooreX
32 simpr φxSt𝒫SxFins=txsIsI
33 simpllr φxSt𝒫SxFins=txxS
34 snidg xSxx
35 elun2 xxxtx
36 33 34 35 3syl φxSt𝒫SxFins=txxtx
37 simpr φxSt𝒫SxFins=txs=tx
38 36 37 eleqtrrd φxSt𝒫SxFins=txxs
39 38 adantr φxSt𝒫SxFins=txsIxs
40 2 3 31 32 39 ismri2dad φxSt𝒫SxFins=txsI¬xNsx
41 5 ad3antrrr φxSt𝒫SxFins=txAMooreX
42 20 adantr φxSt𝒫SxFins=txtSx
43 neldifsnd φxSt𝒫SxFins=tx¬xSx
44 42 43 ssneldd φxSt𝒫SxFins=tx¬xt
45 difsnb ¬xttx=t
46 44 45 sylib φxSt𝒫SxFins=txtx=t
47 ssun1 ttx
48 47 37 sseqtrrid φxSt𝒫SxFins=txts
49 48 ssdifd φxSt𝒫SxFins=txtxsx
50 46 49 eqsstrrd φxSt𝒫SxFins=txtsx
51 24 adantr φxSt𝒫SxFins=txtxS
52 4 ad3antrrr φxSt𝒫SxFins=txSX
53 51 52 sstrd φxSt𝒫SxFins=txtxX
54 37 53 eqsstrd φxSt𝒫SxFins=txsX
55 54 ssdifssd φxSt𝒫SxFins=txsxX
56 41 2 50 55 mrcssd φxSt𝒫SxFins=txNtNsx
57 56 sseld φxSt𝒫SxFins=txxNtxNsx
58 57 adantr φxSt𝒫SxFins=txsIxNtxNsx
59 40 58 mtod φxSt𝒫SxFins=txsI¬xNt
60 59 ex φxSt𝒫SxFins=txsI¬xNt
61 30 60 rspcimdv φxSt𝒫SxFins𝒫SFinsI¬xNt
62 13 61 biimtrid φxSt𝒫SxFin𝒫SFinI¬xNt
63 62 impancom φxS𝒫SFinIt𝒫SxFin¬xNt
64 63 ralrimiv φxS𝒫SFinIt𝒫SxFin¬xNt
65 4 ssdifssd φSxX
66 1 2 65 acsficl2d φxNSxt𝒫SxFinxNt
67 66 notbid φ¬xNSx¬t𝒫SxFinxNt
68 ralnex t𝒫SxFin¬xNt¬t𝒫SxFinxNt
69 67 68 bitr4di φ¬xNSxt𝒫SxFin¬xNt
70 69 ad2antrr φxS𝒫SFinI¬xNSxt𝒫SxFin¬xNt
71 64 70 mpbird φxS𝒫SFinI¬xNSx
72 71 an32s φ𝒫SFinIxS¬xNSx
73 72 ralrimiva φ𝒫SFinIxS¬xNSx
74 2 3 15 16 73 ismri2dd φ𝒫SFinISI
75 14 74 impbida φSI𝒫SFinI