fix: SubExpr.Pos.toString not terminating

fixes 1232

src/Lean/SubExpr.lean

@@ -29,7 +29,7 @@ def root : Pos := (1 : Nat)
 
 instance : Inhabited Pos := ⟨root⟩
 
-def isRoot (p : Pos) : Bool := p.asNat == 1
+def isRoot (p : Pos) : Bool := p.asNat < maxChildren
 
 /-- The coordinate deepest in the Pos. -/
 def head (p : Pos) : Nat :=

tests/lean/run/subexpr.lean

@@ -17,3 +17,5 @@ theorem Pos.stringRoundtrip :
     let x := Pos.ofArray p
     some x == (Except.toOption $ Pos.fromString? $ Pos.toString $ x)
   ) := by native_decide
+
+#eval Pos.toString Nat.zero