reserve x,y,z for Real,
  R for real non empty RelStr,
  a,b for Element of R;

theorem Th14:
  for A being non empty set holds the carrier of FuzzyLattice A =
  Funcs(A, [. 0, 1 .])
proof
  let A be non empty set;
  thus the carrier of FuzzyLattice A = Funcs (A, the carrier of RealPoset [. 0
  ,1 .]) by YELLOW_1:28
    .= Funcs (A, [. 0,1 .]) by Def3;
end;
