Fix root_lattice_recognition

src/QuadForm/Quad/ZLattices.jl

@@ -668,6 +668,9 @@ function is_sublattice_with_relations(M::ZZLat, N::ZZLat)
     root_lattice(R::Symbol, n::Int) -> ZZLat
 
 Return the root lattice of type `R` given by `:A`, `:D` or `:E` with parameter `n`.
+
+Allow also the type `:I` with parameter `n = 1` for the odd unimodular lattice
+of rank 1.
 """
 function root_lattice(R::Symbol, n::Int)
   if R === :A
@@ -676,15 +679,18 @@ function root_lattice(R::Symbol, n::Int)
     return integer_lattice(; gram = _root_lattice_E(n))
   elseif R === :D
     return integer_lattice(; gram = _root_lattice_D(n))
+  elseif R === :I
+    @req n == 1 "Parameter ($n) for odd root lattice (type $R) must be 1"
+    return integer_lattice(; gram = QQ[1;])
   else
-    error("Type (:$R) must be :A, :D or :E")
+    error("Type (:$R) must be :A, :D, :E or :I")
   end
 end
 
 @doc raw"""
     root_lattice(R::Vector{Tuple{Symbol,Int}}) -> ZZLat
 
-Return the root lattice of type `R`.
+Return the root lattice of type `R` (see [`root_lattice`](@ref)).
 
 #Example
 ```jldoctest
@@ -703,7 +709,7 @@ function root_lattice(R::Vector{Tuple{Symbol,Int}})
 end
 
 function _root_lattice_A(n::Int)
-  n < 0 && error("Parameter ($n) for root lattice of type :A must be positive")
+  @req n > 0 "Parameter ($n) for root lattice of type :A must be positive"
   z = zero_matrix(QQ, n, n)
   for i in 1:n
     z[i, i] = 2
@@ -718,7 +724,7 @@ function _root_lattice_A(n::Int)
 end
 
 function _root_lattice_D(n::Int)
-  n < 2 && error("Parameter ($n) for root lattices of type :D must be greater or equal to 2")
+  @req n >= 2 "Parameter ($n) for root lattices of type :D must be greater or equal to 2"
   if n == 2
     G = matrix(QQ, [2 0 ;0 2])
   elseif n == 3
@@ -737,7 +743,7 @@ function _root_lattice_D(n::Int)
 end
 
 function _root_lattice_E(n::Int)
-  n in [6,7,8] || error("Parameter ($n) for lattice of type :E must be 6, 7 or 8")
+  @req n in [6,7,8] "Parameter ($n) for lattice of type :E must be 6, 7 or 8"
   if n == 6
     G = [2 -1 0 0 0 0;
         -1 2 -1 0 0 0;
@@ -1664,6 +1670,9 @@ end
 
 Return the ADE type of the root sublattice of `L`.
 
+Allow the type `(:I, 1)` corresponding to the odd unimodular root lattice of
+rank 1.
+
 Input:
 
 `L` -- a definite and integral $\mathbb{Z}$-lattice.
@@ -1699,6 +1708,20 @@ with gram matrix
 
 julia> R = root_lattice_recognition(L)
 ([(:A, 1), (:D, 6)], ZZLat[Integer lattice of rank 1 and degree 8, Integer lattice of rank 6 and degree 8])
+
+julia> L = integer_lattice(; gram = QQ[1 0 0  0;
+                                       0 9 3  3;
+                                       0 3 2  1;
+                                       0 3 1 11])
+Integer lattice of rank 4 and degree 4
+with gram matrix
+[1   0   0    0]
+[0   9   3    3]
+[0   3   2    1]
+[0   3   1   11]
+
+julia> root_lattice_recognition(L)
+([(:A, 1), (:I, 1)], ZZLat[Integer lattice of rank 1 and degree 4, Integer lattice of rank 1 and degree 4])
 ```
 """
 function root_lattice_recognition(L::ZZLat)
@@ -1845,6 +1868,9 @@ Return the ADE type of the root sublattice of `L`
 as well as the corresponding irreducible root sublattices
 with basis given by a fundamental root system.
 
+Allow the type `(:I, 1)` corresponding to the odd unimodular
+root lattice of rank 1.
+
 Input:
 
 `L` -- a definite and integral $\mathbb Z$-lattice.
@@ -1892,7 +1918,7 @@ julia> gram_matrix(R[1])
 """
 function root_lattice_recognition_fundamental(L::ZZLat)
   V = ambient_space(L)
-  ADE,components = root_lattice_recognition(L)
+  ADE, components = root_lattice_recognition(L)
   components_new = ZZLat[]
   basis = zero_matrix(QQ, 0, degree(L))
   for i in 1:length(ADE)
@@ -1925,6 +1951,9 @@ julia> Hecke.ADE_type(gram_matrix(root_lattice(:A,3)))
 function ADE_type(G::MatrixElem)
   r = rank(G)
   d = abs(det(G))
+  if r == 1 && d == 1
+    return (:I, 1)
+  end
   if r == 8 && d==1
     return (:E, 8)
   end
@@ -1946,7 +1975,7 @@ end
 function _ADE_type_with_isometry_irreducible(L)
   ADE = ADE_type(gram_matrix(L))
   R = root_lattice(ADE...)
-  e = sign(gram_matrix(L)[1,1])
+  e = sign(gram_matrix(L)[1, 1])
   if e == -1
     R = rescale(R, -1)
   end

test/QuadForm/Quad/ZLattices.jl

@@ -226,6 +226,14 @@ end
   @test length(Hecke._irreducible_components_short_vectors(rsLp, 2))==4
   @test length(Hecke._irreducible_components_short_vectors(rsLp, 4))==4
 
+  B = matrix(FlintQQ, 4, 4 ,[1, 0, 0, 0, 0, 3, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1]);
+  G = matrix(FlintQQ, 4, 4 ,[1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 10]);
+  L = integer_lattice(B, gram = G);
+
+  ADE, _ = root_lattice_recognition(L)
+  @test length(ADE) == 2
+  @test all(R -> R[2] == 1, ADE)
+
   # isometry testing
   C1 = root_lattice(:A, 2)
   C1m = rescale(C1,-1)
@@ -475,8 +483,8 @@ end
   @test ok
   @test p == multiplicative_order(f)
 
-  @test_throws ErrorException root_lattice(:F,3)
-  @test_throws ErrorException root_lattice(:D,1)
+  @test_throws ErrorException root_lattice(:F, 3)
+  @test_throws ArgumentError root_lattice(:D, 1)
 
   L = root_lattice(:A, 2)
   @test signature_tuple(L) == (2,0,0)