Round trip of the atoms: numbers and names
def SegHead (g : List Char) (t : Tok) (tr : List Tok) : Prop
How a printed name segment starts.
def NameHead (c : Ctx) (s : String) (t : Tok) (tr : List Tok) : Prop
How a printed name starts.
theorem pPrim_name_eq (c : Ctx) (s : String) (rest : List Tok) (f : Nat) :
pPrim c (f + 1) (nameToks c s ++ rest) = pNamePrim c (nameToks c s ++ rest)
A primary that starts with a name’s tokens is read as a name (never as e^x).