7.99/3.54	YES
9.57/3.99	proof of /export/starexec/sandbox/benchmark/theBenchmark.hs
9.57/3.99	# AProVE Commit ID: 48fb2092695e11cc9f56e44b17a92a5f88ffb256 marcel 20180622 unpublished dirty
9.57/3.99	
9.57/3.99	
9.57/3.99	H-Termination with start terms of the given HASKELL could be proven:
9.57/3.99	
9.57/3.99	(0) HASKELL
9.57/3.99	(1) BR [EQUIVALENT, 0 ms]
9.57/3.99	(2) HASKELL
9.57/3.99	(3) COR [EQUIVALENT, 0 ms]
9.57/3.99	(4) HASKELL
9.57/3.99	(5) Narrow [EQUIVALENT, 0 ms]
9.57/3.99	(6) YES
9.57/3.99	
9.57/3.99	
9.57/3.99	----------------------------------------
9.57/3.99	
9.57/3.99	(0)
9.57/3.99	Obligation:
9.57/3.99	mainModule Main 
9.57/3.99	module Main where {
9.57/3.99	import qualified Prelude;
9.57/3.99	data Float = Float MyInt MyInt ;
9.57/3.99	
9.57/3.99	data Integer = Integer MyInt ;
9.57/3.99	
9.57/3.99	data MyInt = Pos Main.Nat  | Neg Main.Nat ;
9.57/3.99	
9.57/3.99	data Main.Nat = Succ Main.Nat  | Zero ;
9.57/3.99	
9.57/3.99	floatRadixFloat :: Float  ->  Integer;
9.57/3.99	floatRadixFloat vv = primFloatRadix;
9.57/3.99	
9.57/3.99	fromIntInteger :: MyInt  ->  Integer;
9.57/3.99	fromIntInteger x = Integer x;
9.57/3.99	
9.57/3.99	primFloatRadix :: Integer;
9.57/3.99	primFloatRadix = fromIntInteger (Main.Pos (Main.Succ (Main.Succ Main.Zero)));
9.57/3.99	
9.57/3.99	}
9.57/3.99	
9.57/3.99	----------------------------------------
9.57/3.99	
9.57/3.99	(1) BR (EQUIVALENT)
9.57/3.99	Replaced joker patterns by fresh variables and removed binding patterns.
9.57/3.99	----------------------------------------
9.57/3.99	
9.57/3.99	(2)
9.57/3.99	Obligation:
9.57/3.99	mainModule Main 
9.57/3.99	module Main where {
9.57/3.99	import qualified Prelude;
9.57/3.99	data Float = Float MyInt MyInt ;
9.57/3.99	
9.57/3.99	data Integer = Integer MyInt ;
9.57/3.99	
9.57/3.99	data MyInt = Pos Main.Nat  | Neg Main.Nat ;
9.57/3.99	
9.57/3.99	data Main.Nat = Succ Main.Nat  | Zero ;
9.57/3.99	
9.57/3.99	floatRadixFloat :: Float  ->  Integer;
9.57/3.99	floatRadixFloat vv = primFloatRadix;
9.57/3.99	
9.57/3.99	fromIntInteger :: MyInt  ->  Integer;
9.57/3.99	fromIntInteger x = Integer x;
9.57/3.99	
9.57/3.99	primFloatRadix :: Integer;
9.57/3.99	primFloatRadix = fromIntInteger (Main.Pos (Main.Succ (Main.Succ Main.Zero)));
9.57/3.99	
9.57/3.99	}
9.57/3.99	
9.57/3.99	----------------------------------------
9.57/3.99	
9.57/3.99	(3) COR (EQUIVALENT)
9.57/3.99	Cond Reductions:
9.57/3.99	The following Function with conditions
9.57/3.99	"undefined |Falseundefined;
9.57/3.99	"
9.57/3.99	is transformed to
9.57/3.99	"undefined  = undefined1;
9.57/3.99	"
9.57/3.99	"undefined0 True = undefined;
9.57/3.99	"
9.57/3.99	"undefined1  = undefined0 False;
9.57/3.99	"
9.57/3.99	
9.57/3.99	----------------------------------------
9.57/3.99	
9.57/3.99	(4)
9.57/3.99	Obligation:
9.57/3.99	mainModule Main 
9.57/3.99	module Main where {
9.57/3.99	import qualified Prelude;
9.57/3.99	data Float = Float MyInt MyInt ;
9.57/3.99	
9.57/3.99	data Integer = Integer MyInt ;
9.57/3.99	
9.57/3.99	data MyInt = Pos Main.Nat  | Neg Main.Nat ;
9.57/3.99	
9.57/3.99	data Main.Nat = Succ Main.Nat  | Zero ;
9.57/3.99	
9.57/3.99	floatRadixFloat :: Float  ->  Integer;
9.57/3.99	floatRadixFloat vv = primFloatRadix;
9.57/3.99	
9.57/3.99	fromIntInteger :: MyInt  ->  Integer;
9.57/3.99	fromIntInteger x = Integer x;
9.57/3.99	
9.57/3.99	primFloatRadix :: Integer;
9.57/3.99	primFloatRadix = fromIntInteger (Main.Pos (Main.Succ (Main.Succ Main.Zero)));
9.57/3.99	
9.57/3.99	}
9.57/3.99	
9.57/3.99	----------------------------------------
9.57/3.99	
9.57/3.99	(5) Narrow (EQUIVALENT)
9.57/3.99	Haskell To QDPs
9.57/3.99	
9.57/3.99	digraph dp_graph {
9.57/3.99	node [outthreshold=100, inthreshold=100];1[label="floatRadixFloat",fontsize=16,color="grey",shape="box"];1 -> 3[label="",style="dashed", color="grey", weight=3];
9.57/3.99	3[label="floatRadixFloat vy3",fontsize=16,color="black",shape="triangle"];3 -> 4[label="",style="solid", color="black", weight=3];
9.57/3.99	4[label="primFloatRadix",fontsize=16,color="black",shape="box"];4 -> 5[label="",style="solid", color="black", weight=3];
9.57/3.99	5[label="fromIntInteger (Pos (Succ (Succ Zero)))",fontsize=16,color="black",shape="box"];5 -> 6[label="",style="solid", color="black", weight=3];
9.57/3.99	6[label="Integer (Pos (Succ (Succ Zero)))",fontsize=16,color="green",shape="box"];}
9.57/3.99	
9.57/3.99	----------------------------------------
9.57/3.99	
9.57/3.99	(6)
9.57/3.99	YES
9.57/4.04	EOF