theorem
Hex.PermGroup.Kernel.levelsOk_cons_of
{n : Nat}
{L : Level}
{rest : List Level}
{N : Nat}
(hl : levelOk n (width n) (ident n (width n)) L rest = true)
(hN : L.gens.length.mul L.size = N)
(hp : pairsOk n (width n) (ident n (width n)) L rest 0 N = true)
(hr : levelsOk n (width n) (ident n (width n)) rest = true)
: