Union the Sorts of (TermAlg S) = S -Terms ( the carrier of S --> NAT) by MSATERM:13;
hence for b1 being Element of (TermAlg S) holds
( b1 is Relation-like & b1 is Function-like ) ; :: thesis: verum