reserve S for non empty non void ManySortedSign,
  A for MSAlgebra over S;
reserve A for non-empty MSAlgebra over S;
reserve S for non empty non void ManySortedSign,
  A for non-empty MSAlgebra over S,
  R for ManySortedRelation of the Sorts of A;

theorem Th43:
  for R being ManySortedRelation of A holds R c= EqCl(R,A)
proof
  let R be ManySortedRelation of A;
  let i be object;
  assume i in the carrier of S;
  then reconsider s = i as SortSymbol of S;
  EqCl(R,A).s = EqCl (R.s) by MSUALG_5:def 3;
  hence thesis by MSUALG_5:def 1;
end;
