:: deftheorem defines construction_degree MSAFREE5:def 16 :
for S being non empty non void ManySortedSign
for X being non-empty ManySortedSet of the carrier of S
for T being b₂,b₁ -terms all_vars_including inheriting_operations free_in_itself MSAlgebra over S
for r being Element of T holds construction_degree r = card (r " [: the carrier' of S,{ the carrier of S}:]);