:: deftheorem defines Compose MOEBIUS3:def 10 :
for n being non zero Nat
for b2 being Function of [:(bool (SetPrimes n)),(Seg n):],NAT holds
( b2 = Compose n iff for x being Element of [:(bool (SetPrimes n)),(Seg n):]
for A being finite Subset of SetPrimes
for k being Nat st x = [A,k] holds
b2 . x = (Product ((A,1) -bag)) * (k ^2) );