let V, C be set ; :: thesis: for B being Element of Fin (PFuncs (V,C))
for a being set st a in mi B holds
( a in B & ( for b being set st b in B & b c= a holds
b = a ) )

let B be Element of Fin (PFuncs (V,C)); :: thesis: for a being set st a in mi B holds
( a in B & ( for b being set st b in B & b c= a holds
b = a ) )

let a be set ; :: thesis: ( a in mi B implies ( a in B & ( for b being set st b in B & b c= a holds
b = a ) ) )

assume a in mi B ; :: thesis: ( a in B & ( for b being set st b in B & b c= a holds
b = a ) )

then A1: ex t being Element of PFuncs (V,C) st
( a = t & t is finite & ( for s being Element of PFuncs (V,C) holds
( ( s in B & s c= t ) iff s = t ) ) ) ;
hence a in B ; :: thesis: for b being set st b in B & b c= a holds
b = a

let b be set ; :: thesis: ( b in B & b c= a implies b = a )
assume that
A2: b in B and
A3: b c= a ; :: thesis: b = a
B c= PFuncs (V,C) by FINSUB_1:def 5;
then reconsider b9 = b as Element of PFuncs (V,C) by A2;
b9 = a by A1, A2, A3;
hence b = a ; :: thesis: verum