let V be set ; :: thesis: for C being finite set
for a being Element of PFuncs (V,C) st a is finite holds
(Atom (V,C)) . a = {a}
let C be finite set ; :: thesis: for a being Element of PFuncs (V,C) st a is finite holds
(Atom (V,C)) . a = {a}
let a be Element of PFuncs (V,C); :: thesis: ( a is finite implies (Atom (V,C)) . a = {a} )
A1: for s, t being Element of PFuncs (V,C) st s in {a} & t in {a} & s c= t holds
s = t

proof

let s, t be Element of PFuncs (V,C); :: thesis: ( s in {a} & t in {a} & s c= t implies s = t )
assume that
A2: s in {a} and
A3: t in {a} and
s c= t ; :: thesis: s = t
s = a by A2, TARSKI:def 1;
hence s = t by A3, TARSKI:def 1; :: thesis: verum

end;

assume a is finite ; :: thesis: (Atom (V,C)) . a = {a}
then for u being set st u in {a} holds
u is finite ;
then {.a.} in { A where A is Element of Fin (PFuncs (V,C)) : ( ( for u being set st u in A holds
u is finite ) & ( for s, t being Element of PFuncs (V,C) st s in A & t in A & s c= t holds
s = t ) ) } by A1;
then {a} in SubstitutionSet (V,C) by SUBSTLAT:def 1;
then {a} = mi {.a.} by SUBSTLAT:11
.= (Atom (V,C)) . a by Def8 ;
hence (Atom (V,C)) . a = {a} ; :: thesis: verum