TikZ: a variant of the arrow tip 'to' that really looks like '\to'

tctoarrow.sty

\def\tcqqa@scale{1.5}
\pgfarrowsdeclare{to'}{to'}
{%
  \pgfutil@tempdima=\tcqqa@scale\pgflinewidth
  \pgfutil@tempdima=-3\pgfutil@tempdima
  \advance\pgfutil@tempdima -0.5\pgflinewidth
  \pgfutil@tempdimb=\tcqqa@scale\pgflinewidth
  \pgfutil@tempdimb=0.75\pgfutil@tempdimb
  \advance\pgfutil@tempdimb 0.5\pgflinewidth
  \pgfarrowsleftextend{+\pgfutil@tempdima}%
  \pgfarrowsrightextend{+\pgfutil@tempdimb}%
}
{%
  \pgfutil@tempdima=\tcqqa@scale\pgflinewidth
  \pgfsetdash{}{+0pt}%
  \pgfsetroundcap
  \pgfsetroundjoin
  \pgfpathmoveto{\pgfqpoint{-3\pgfutil@tempdima}{4\pgfutil@tempdima}}%
  \pgfpathcurveto
  {\pgfqpoint{-2.75\pgfutil@tempdima}{2.5\pgfutil@tempdima}}%
  {\pgfqpoint{0pt}{0.25\pgfutil@tempdima}}%
  {\pgfqpoint{0.75\pgfutil@tempdima}{0pt}}%
  \pgfpathcurveto
  {\pgfqpoint{0pt}{-0.25\pgfutil@tempdima}}%
  {\pgfqpoint{-2.75\pgfutil@tempdima}{-2.5\pgfutil@tempdima}}%
  {\pgfqpoint{-3\pgfutil@tempdima}{-4\pgfutil@tempdima}}%
  \pgfusepathqstroke
}