theorem
Hex.GraphIso.Nauty.Max.firstPath_frame
{n k : Nat}
{G : Colored n k}
{ctx : Ctx n}
{tcLevel fuel level numcells last : Nat}
{st leaf : Search n}
(path : Generic.FirstPath ctx tcLevel fuel level numcells st last leaf)
(hn0 : 0 < n)
(hl : 1 ≤ level)
(hok : SearchOk G level numcells st)
:
The actual first descent moves the first leaf only within its entry cells, with the same boundary convention as a complete node call.
theorem
Hex.GraphIso.Nauty.Max.SweepInput.first_reference
{n k : Nat}
{G : Colored n k}
{ctx : Ctx n}
{tcLevel fuel cfuel : Nat}
{first : Bool}
{level numcells tc tv1 tv index : Nat}
{cell : VSet n}
{st : Search n}
{l : Loop n}
{bs fs : List Nat}
{parents : Parents n}
(h : SweepInput G ctx tcLevel fuel cfuel first level numcells tc tv1 (some tv) cell index st l bs fs parents)
(hgsz : ctx.g.size = n)
(hsymm : ∀ (u v : Nat), u < n → v < n → ctx.g[u]!.mem v = ctx.g[v]!.mem u)
(hloop : ∀ (v : Nat), v < n → ctx.g[v]!.mem v = false)
:
have raw :=
(Nauty.node (first && tv == tv1) ctx (n + 2) tcLevel fuel (level + 1) (numcells + 1)
(child first level tc tv st)).snd;
have middle := if (first && tv == tv1) = true then afterChildFirst level tv1 raw else raw;
have left :=
{ lab := middle.lab, ptn := middle.ptn, active := middle.active, orbits := middle.orbits,
fixedpts := middle.fixedpts.erase tv, autos := middle.autos, wsCap := middle.wsCap, firstcode := middle.firstcode,
canoncode := middle.canoncode, firsttc := middle.firsttc, firstlab := middle.firstlab, canonlab := middle.canonlab,
canong := middle.canong, samerows := middle.samerows, compCanon := middle.compCanon,
eqlevFirst := middle.eqlevFirst, eqlevCanon := middle.eqlevCanon, gcaFirst := middle.gcaFirst,
gcaCanon := middle.gcaCanon, canonlevel := middle.canonlevel, noncheaplevel := middle.noncheaplevel,
allsamelevel := middle.allsamelevel, cosetindex := middle.cosetindex, stabvertex := middle.stabvertex,
numnodes := middle.numnodes, tctotal := middle.tctotal, canupdates := middle.canupdates,
numorbits := middle.numorbits, numgenerators := middle.numgenerators, numbadleaves := middle.numbadleaves,
maxlevel := middle.maxlevel, order := middle.order, genTrace := middle.genTrace, workperm := middle.workperm };
have ready := recover (n + 2) level left;
Generic.Grows (SearchState.key ctx bs st) (SearchState.best ctx ready) →
Generic.Covers (Loop.key ctx tcLevel l tv) (SearchState.best ctx ready) →
ready.gcaFirst = level →
Generic.Covers (Loop.key ctx tcLevel l ready.firstlab[tc]!) (SearchState.best ctx ready) ∧ cellsPerm (Loop.prepare ctx tcLevel l).snd.snd.snd.snd.ptn level
(Loop.prepare ctx tcLevel l).snd.snd.snd.snd.lab ready.firstlab
A received first child introduces its saved reference from its actual first descent. Later children preserve the already covered reference.