Graphics[{Line[{{-1,0},{0,.7},{1,0},{-1,0}}],Text[Style["A",18],{-1.05,0}]}],Text[Style["A",18],{0,.8}]