theorem Th5: :: MSAFREE5:24

for S being non empty non void ManySortedSign
for X being non-empty ManySortedSet of the carrier of S
for t being Element of (Free (S,X))
for u being Term of S,X st t = u holds
the_sort_of t = the_sort_of u