theorem
Hex.GraphIso.Nauty.Sparse.Index.Writes.count
{n : Nat}
{before after : Array Nat}
{seen : List Nat}
{stamp v w : Nat}
(h : Writes n before after seen (stamp + 1))
(hb : Scratch.Marks n stamp before)
(hn : seen.Nodup)
(hv : v < n)
(hw : w < n)
(he : (after[v]! == stamp + 1) = (after[w]! == stamp + 1))
:
For a simple graph row, equal mark predicates imply equal native counts.