theorem :: MSAFREE5:41

for S being non empty non void ManySortedSign
for X being non-empty ManySortedSet of the carrier of S
for t being compound Element of (Free (S,X)) holds t = (main-constr t) -term (args t)