run "date";
needsPackage("LieAlgebraRepresentations");
g2 = simpleLieAlgebra("G",2);
rhoV01 = adjointRepresentation(g2);
rhoV01star = dual rhoV01;
rhoW10V01star=exteriorPower(10,rhoV01star);
hwv1 = weightMuHighestWeightVectorsInW({0,1},rhoW10V01star);
V01InW10V01=VInWedgekW(rhoV01,10,rhoV01star,hwv1,"SaveAsFunction"=>"V01inW10V01star");
rhoS2V01=symmetricPower(2,rhoV01);
hwv2 = weightMuHighestWeightVectorsInW({0,0},rhoS2V01);
rhoV00=trivialRepresentation(g2);
rhoV00 = lieAlgebraRepresentation(rhoV00#"Module",rhoV01#"Basis",rhoV00#"RepresentationMatrices");
V00InS2V01=VInSymdW(rhoV00,2,rhoV01,hwv2,"SaveAsFunction"=>"V00inS2V01");
run "date";
quit