include "mubase.mmx";
include "pencilregular.mmx";
solve(f: POMR):Vector Generic =={
  if degree f =0 then return([]);
  M:Matrix Generic:= matrix(as_polynomial_rational f);
  L:Vector Generic:= generalized_eigenvalues M;
  return(L);
};
solve(f: Polynomial Rational):Vector Generic =={
  if deg f=0 then return([]);
  M:Matrix Generic:= matrix(as_polynomial_rational f);
  L:Vector Generic:= generalized_eigenvalues M;
  return(L);
};