Here is a solution based on TikZ, and inspired by the solution of Heiko Oberdiek. I have defined \Implies and \Impliedby for ease of use with correct spacing. This solution adapts to the smaller fonts used in super-/subscripts.
\documentclass{article}
\usepackage{tikz}
\usetikzlibrary{graphs}
\usetikzlibrary{arrows.meta}
\usepackage{amsmath}
\begin{document}
\makeatletter
\newcommand*{\RightArrow}{\mathrel{\mathpalette{\@RightArrow}{}}}
\newcommand*{\LeftArrow}{\mathrel{\mathpalette{\@LeftArrow}{}}}
\newcommand*{\@RightArrow}[1]{%
% Get the line width for this math style
\edef\@LineWidth{%
\the\fontdimen8
\ifx#1\displaystyle\textfont
\else\ifx#1\textstyle\textfont
\else\ifx#1\scriptstyle\scriptfont
\else\scriptscriptfont
\fi\fi\fi
3}
\edef\@ScaleWidth{%
\ifx#1\displaystyle0.39
\else\ifx#1\textstyle0.39
\else\ifx#1\scriptstyle0.35
\else0.31
\fi\fi\fi}
\text{$\tikz
\draw[double equal sign distance, line width=\@LineWidth,
-{Implies[sep=-0.5ex] . Computer Modern Rightarrow[scale width=\@ScaleWidth, scale length=0.8]}]
(0,0) -- (1.5em,0);$}}
\newcommand*{\@LeftArrow}[1]{%
% Get the line width for this math style
\edef\@LineWidth{%
\the\fontdimen8
\ifx#1\displaystyle\textfont
\else\ifx#1\textstyle\textfont
\else\ifx#1\scriptstyle\scriptfont
\else\scriptscriptfont
\fi\fi\fi
3}
\edef\@ScaleWidth{%
\ifx#1\displaystyle0.39
\else\ifx#1\textstyle0.39
\else\ifx#1\scriptstyle0.35
\else0.31
\fi\fi\fi}
\text{$\tikz
\draw[double equal sign distance, line width=\@LineWidth,
-{Implies[sep=-0.5ex] . Computer Modern Rightarrow[scale width=\@ScaleWidth, scale length=0.8]}]
(1.5em,0) -- (0,0);$}}
\makeatother
\newcommand*{\Implies}{\DOTSB\;\RightArrow\;}
\newcommand*{\Impliedby}{\DOTSB\;\LeftArrow\;}
\[
a \implies b \qquad a \Implies b \qquad a \Impliedby b
\]
\[
x^{a \implies b} \qquad x^{a \Implies b} \qquad x^{a \Impliedby b}
\]
\[
x^{x^{a \implies b}} \qquad x^{x^{a \Implies b}} \qquad x^{x^{a \Impliedby b}}
\]
\end{document}

It should be possible to simplify this code, avoiding the redundant code, but I am not skilled enough with TeX programming to do so.
Alternative solution
This solution uses equal arrowheads, as requested by the original poster.
\documentclass{article}
\usepackage{tikz}
\usetikzlibrary{graphs}
\usetikzlibrary{arrows.meta}
\usepackage{amsmath}
\begin{document}
\makeatletter
\newcommand*{\RightArrow}{\mathrel{\mathpalette{\@RightArrow}{}}}
\newcommand*{\LeftArrow}{\mathrel{\mathpalette{\@LeftArrow}{}}}
\newcommand*{\@RightArrow}[1]{%
% Get the line width for this math style
\edef\@LineWidth{%
\the\fontdimen8
\ifx#1\displaystyle\textfont
\else\ifx#1\textstyle\textfont
\else\ifx#1\scriptstyle\scriptfont
\else\scriptscriptfont
\fi\fi\fi
3}
\text{$\tikz
\draw[double equal sign distance, line width=\@LineWidth,
-{Implies[sep=-0.35ex] . Implies}]
(0,0) -- (1.5em,0);$}}
\newcommand*{\@LeftArrow}[1]{%
% Get the line width for this math style
\edef\@LineWidth{%
\the\fontdimen8
\ifx#1\displaystyle\textfont
\else\ifx#1\textstyle\textfont
\else\ifx#1\scriptstyle\scriptfont
\else\scriptscriptfont
\fi\fi\fi
3}
\text{$\tikz
\draw[double equal sign distance, line width=\@LineWidth,
-{Implies[sep=-0.35ex] . Implies}]
(1.5em,0) -- (0,0);$}}
\makeatother
\newcommand*{\Implies}{\DOTSB\;\RightArrow\;}
\newcommand*{\Impliedby}{\DOTSB\;\LeftArrow\;}
\[
a \implies b \qquad a \Implies b \qquad a \Impliedby b
\]
\[
x^{a \implies b} \qquad x^{a \Implies b} \qquad x^{a \Impliedby b}
\]
\[
x^{x^{a \implies b}} \qquad x^{x^{a \Implies b}} \qquad x^{x^{a \Impliedby b}}
\]
\end{document}

TikZcommands be acceptable for you? – ebosi Nov 08 '16 at 10:24TikZfor drawing pictures. If theTikZsolution works in math mode, then it must be ok. – userOne Nov 08 '16 at 10:47