Update recursion to reference CuspFormBasis

BenKBreen · Dec 12, 2023 · aa08d20 · aa08d20
1 parent 933ecbf
commit aa08d20
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ModFrmHilD/Basis.m b/ModFrmHilD/Basis.m
@@ -159,7 +159,7 @@ intrinsic CuspFormBasisViaTrace(Mk::ModFrmHilD : IdealClassesSupport:=false, fai
   for dd in Old do
     chidd := Restrict(chi, dd, ii);
     Mkdd  := HMFSpace(M, dd, k, chidd);
-    B cat:= &cat[ Inclusion(f,Mk) : f in $$(Mkdd : IdealClassesSupport:=IdealClassesSupport) ];
+    B cat:= &cat[ Inclusion(f,Mk) : f in CuspFormBasis(Mkdd) ];
     // Remove linear dependent forms 
     B := (#B ne 0) select Basis(B) else B;
   end for;