subclass:=function(cc1,cc2)
  local gr,hr,cc2l;
  cc2l:=AsList(cc2);
  gr:=Representative(cc1);
  for hr in cc2l do
    if IsSubset(hr,gr) then
      return true;
    fi;
  od;
  return false;
  end;
  
#  cc:=ConjugacyClassesSubgroups(DihedralGroup(6));
#  subclass(cc[2],cc[1]);