YES
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN"
"http:/www.w3.org/TR/html4/frameset.dtd">
<html>
<head>
<title>H-Termination proof of ../tpdb/FP/full_haskell/Prelude_succ_4.hs</title>
</head>
<body>
<BR><B>H-Termination</B> of the given <I>Haskell-Program with start terms</I> could successfully be <font color=#00ff00>proven</font>:<BR><BR><BR><BR><pre>&#8627 <B>HASKELL</B></pre><pre>  &#8627 BR</pre><BR><html>
<body>mainModule Main<table cellspacing="0" cellpadding="0" border="0" frame="void">
<tr>
<td>
                   &nbsp;
                </td><td>((<FONT COLOR="#000088">succ</FONT> :: <FONT COLOR="#666600">Int</FONT>&nbsp;<FONT COLOR="#666600">&nbsp;-&gt;&nbsp;</FONT>&nbsp;<FONT COLOR="#666600">Int</FONT>) :: <FONT COLOR="#666600">Int</FONT>&nbsp;<FONT COLOR="#666600">&nbsp;-&gt;&nbsp;</FONT>&nbsp;<FONT COLOR="#666600">Int</FONT>)</td>
</tr>
</table>
<br>module Main where<br>
<table cellspacing="0" cellpadding="0" border="0" frame="void">
<tr>
<td>&nbsp;&nbsp;</td><td valign="top">import qualified Prelude<br>
<br>
</td>
</tr>
</table>
<br>
</body>
</html>
<BR>Replaced joker patterns by fresh variables and removed binding patterns.<BR><BR><pre>&#8627 HASKELL</pre><pre>  &#8627 BR</pre><pre>    &#8627 <B>HASKELL</B></pre><pre>      &#8627 NumRed</pre><BR><html>
<body>mainModule Main<table cellspacing="0" cellpadding="0" border="0" frame="void">
<tr>
<td>
                   &nbsp;
                </td><td>((<FONT COLOR="#000088">succ</FONT> :: <FONT COLOR="#666600">Int</FONT>&nbsp;<FONT COLOR="#666600">&nbsp;-&gt;&nbsp;</FONT>&nbsp;<FONT COLOR="#666600">Int</FONT>) :: <FONT COLOR="#666600">Int</FONT>&nbsp;<FONT COLOR="#666600">&nbsp;-&gt;&nbsp;</FONT>&nbsp;<FONT COLOR="#666600">Int</FONT>)</td>
</tr>
</table>
<br>module Main where<br>
<table cellspacing="0" cellpadding="0" border="0" frame="void">
<tr>
<td>&nbsp;&nbsp;</td><td valign="top">import qualified Prelude<br>
<br>
</td>
</tr>
</table>
<br>
</body>
</html>
<BR>Num Reduction:All numbers are transformed to thier corresponding representation with Succ, Pred and Zero.<BR><BR><pre>&#8627 HASKELL</pre><pre>  &#8627 BR</pre><pre>    &#8627 HASKELL</pre><pre>      &#8627 NumRed</pre><pre>        &#8627 <B>HASKELL</B></pre><pre>          &#8627 Narrow</pre><BR><html>
<body>mainModule Main<table cellspacing="0" cellpadding="0" border="0" frame="void">
<tr>
<td>
                   &nbsp;
                </td><td>(<FONT COLOR="#000088">succ</FONT> :: <FONT COLOR="#666600">Int</FONT>&nbsp;<FONT COLOR="#666600">&nbsp;-&gt;&nbsp;</FONT>&nbsp;<FONT COLOR="#666600">Int</FONT>)</td>
</tr>
</table>
<br>module Main where<br>
<table cellspacing="0" cellpadding="0" border="0" frame="void">
<tr>
<td>&nbsp;&nbsp;</td><td valign="top">import qualified Prelude<br>
<br>
</td>
</tr>
</table>
<br>
</body>
</html>
<BR>Haskell To QDPs<BR><textarea cols="80" rows="25">digraph dp_graph {
node [outthreshold=100, inthreshold=100];1[label="succ\n",fontsize=16,color="grey",shape="box"];1 -> 3[label="",style="dashed", color="grey", weight=3];
3[label="succ vx3\n",fontsize=16,color="burlywood",shape="triangle"];14[label="vx3/Pos vx30",fontsize=10,color="white",style="solid",shape="box"];3 -> 14[label="",style="solid", color="burlywood", weight=9];
14 -> 4[label="",style="solid", color="burlywood", weight=3];
15[label="vx3/Neg vx30",fontsize=10,color="white",style="solid",shape="box"];3 -> 15[label="",style="solid", color="burlywood", weight=9];
15 -> 5[label="",style="solid", color="burlywood", weight=3];
4[label="succ (Pos vx30)\n",fontsize=16,color="burlywood",shape="box"];16[label="vx30/Succ vx300",fontsize=10,color="white",style="solid",shape="box"];4 -> 16[label="",style="solid", color="burlywood", weight=9];
16 -> 6[label="",style="solid", color="burlywood", weight=3];
17[label="vx30/Zero",fontsize=10,color="white",style="solid",shape="box"];4 -> 17[label="",style="solid", color="burlywood", weight=9];
17 -> 7[label="",style="solid", color="burlywood", weight=3];
5[label="succ (Neg vx30)\n",fontsize=16,color="burlywood",shape="box"];18[label="vx30/Succ vx300",fontsize=10,color="white",style="solid",shape="box"];5 -> 18[label="",style="solid", color="burlywood", weight=9];
18 -> 8[label="",style="solid", color="burlywood", weight=3];
19[label="vx30/Zero",fontsize=10,color="white",style="solid",shape="box"];5 -> 19[label="",style="solid", color="burlywood", weight=9];
19 -> 9[label="",style="solid", color="burlywood", weight=3];
6[label="succ (Pos (Succ vx300))\n",fontsize=16,color="black",shape="box"];6 -> 10[label="",style="solid", color="black", weight=3];
7[label="succ (Pos Zero)\n",fontsize=16,color="black",shape="box"];7 -> 11[label="",style="solid", color="black", weight=3];
8[label="succ (Neg (Succ vx300))\n",fontsize=16,color="black",shape="box"];8 -> 12[label="",style="solid", color="black", weight=3];
9[label="succ (Neg Zero)\n",fontsize=16,color="black",shape="box"];9 -> 13[label="",style="solid", color="black", weight=3];
10[label="Pos (Succ (Succ vx300))\n",fontsize=16,color="green",shape="box"];11[label="Pos (Succ Zero)\n",fontsize=16,color="green",shape="box"];12[label="Neg vx300\n",fontsize=16,color="green",shape="box"];13[label="Pos (Succ Zero)\n",fontsize=16,color="green",shape="box"];}
</textarea><BR><BR></body>


