defpred S₁[ object ] means ( ex m being odd Element of NAT st
( m <= 2 * n & [m,k] = $1 ) or [(2 * n),k] = $1 );
A6: for X1, X2 being Element of PFuncs (NAT,{k}) st ( for x being object holds
( x in X1 iff S₁[x] ) ) & ( for x being object holds
( x in X2 iff S₁[x] ) ) holds
X1 = X2 from LMOD_7:sch 1();
let X1, X2 be Element of PFuncs (NAT,{k}); :: thesis: ( ( for x being object holds
( x in X1 iff ( ex m being odd Element of NAT st
( m <= 2 * n & [m,k] = x ) or [(2 * n),k] = x ) ) ) & ( for x being object holds
( x in X2 iff ( ex m being odd Element of NAT st
( m <= 2 * n & [m,k] = x ) or [(2 * n),k] = x ) ) ) implies X1 = X2 )
assume ( ( for x being object holds
( x in X1 iff S₁[x] ) ) & ( for x being object holds
( x in X2 iff S₁[x] ) ) ) ; :: thesis: X1 = X2
hence X1 = X2 by A6; :: thesis: verum