7.62/3.52 YES 9.61/4.00 proof of /export/starexec/sandbox/benchmark/theBenchmark.hs 9.61/4.00 # AProVE Commit ID: 48fb2092695e11cc9f56e44b17a92a5f88ffb256 marcel 20180622 unpublished dirty 9.61/4.00 9.61/4.00 9.61/4.00 H-Termination with start terms of the given HASKELL could be proven: 9.61/4.00 9.61/4.00 (0) HASKELL 9.61/4.00 (1) BR [EQUIVALENT, 0 ms] 9.61/4.00 (2) HASKELL 9.61/4.00 (3) COR [EQUIVALENT, 0 ms] 9.61/4.00 (4) HASKELL 9.61/4.00 (5) Narrow [EQUIVALENT, 27 ms] 9.61/4.00 (6) YES 9.61/4.00 9.61/4.00 9.61/4.00 ---------------------------------------- 9.61/4.00 9.61/4.00 (0) 9.61/4.00 Obligation: 9.61/4.00 mainModule Main 9.61/4.00 module Main where { 9.61/4.00 import qualified Prelude; 9.61/4.00 data Main.Char = Char MyInt ; 9.61/4.00 9.61/4.00 data List a = Cons a (List a) | Nil ; 9.61/4.00 9.61/4.00 data MyInt = Pos Main.Nat | Neg Main.Nat ; 9.61/4.00 9.61/4.00 data Main.Nat = Succ Main.Nat | Zero ; 9.61/4.00 9.61/4.00 data Tup0 = Tup0 ; 9.61/4.00 9.61/4.00 psPs :: List a -> List a -> List a; 9.61/4.00 psPs Nil ys = ys; 9.61/4.00 psPs (Cons x xs) ys = Cons x (psPs xs ys); 9.61/4.00 9.61/4.00 showString :: List Main.Char -> List Main.Char -> List Main.Char; 9.61/4.00 showString = psPs; 9.61/4.00 9.61/4.00 showsPrecTup0 :: MyInt -> Tup0 -> List Main.Char -> List Main.Char; 9.61/4.00 showsPrecTup0 p Tup0 = showString (Cons (Main.Char (Main.Pos (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ Main.Zero)))))))))))))))))))))))))))))))))))))))))) (Cons (Main.Char (Main.Pos (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ Main.Zero))))))))))))))))))))))))))))))))))))))))))) Nil)); 9.61/4.00 9.61/4.00 } 9.61/4.00 9.61/4.00 ---------------------------------------- 9.61/4.00 9.61/4.00 (1) BR (EQUIVALENT) 9.61/4.00 Replaced joker patterns by fresh variables and removed binding patterns. 9.61/4.00 ---------------------------------------- 9.61/4.00 9.61/4.00 (2) 9.61/4.00 Obligation: 9.61/4.00 mainModule Main 9.61/4.00 module Main where { 9.61/4.00 import qualified Prelude; 9.61/4.00 data Main.Char = Char MyInt ; 9.61/4.00 9.61/4.00 data List a = Cons a (List a) | Nil ; 9.61/4.00 9.61/4.00 data MyInt = Pos Main.Nat | Neg Main.Nat ; 9.61/4.00 9.61/4.00 data Main.Nat = Succ Main.Nat | Zero ; 9.61/4.00 9.61/4.00 data Tup0 = Tup0 ; 9.61/4.00 9.61/4.00 psPs :: List a -> List a -> List a; 9.61/4.00 psPs Nil ys = ys; 9.61/4.00 psPs (Cons x xs) ys = Cons x (psPs xs ys); 9.61/4.00 9.61/4.00 showString :: List Main.Char -> List Main.Char -> List Main.Char; 9.61/4.00 showString = psPs; 9.61/4.00 9.61/4.00 showsPrecTup0 :: MyInt -> Tup0 -> List Main.Char -> List Main.Char; 9.61/4.00 showsPrecTup0 p Tup0 = showString (Cons (Main.Char (Main.Pos (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ Main.Zero)))))))))))))))))))))))))))))))))))))))))) (Cons (Main.Char (Main.Pos (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ Main.Zero))))))))))))))))))))))))))))))))))))))))))) Nil)); 9.61/4.00 9.61/4.00 } 9.61/4.00 9.61/4.00 ---------------------------------------- 9.61/4.00 9.61/4.00 (3) COR (EQUIVALENT) 9.61/4.00 Cond Reductions: 9.61/4.00 The following Function with conditions 9.61/4.00 "undefined |Falseundefined; 9.61/4.00 " 9.61/4.00 is transformed to 9.61/4.00 "undefined = undefined1; 9.61/4.00 " 9.61/4.00 "undefined0 True = undefined; 9.61/4.00 " 9.61/4.00 "undefined1 = undefined0 False; 9.61/4.00 " 9.61/4.00 9.61/4.00 ---------------------------------------- 9.61/4.00 9.61/4.00 (4) 9.61/4.00 Obligation: 9.61/4.00 mainModule Main 9.61/4.00 module Main where { 9.61/4.00 import qualified Prelude; 9.61/4.00 data Main.Char = Char MyInt ; 9.61/4.00 9.61/4.00 data List a = Cons a (List a) | Nil ; 9.61/4.00 9.61/4.00 data MyInt = Pos Main.Nat | Neg Main.Nat ; 9.61/4.00 9.61/4.00 data Main.Nat = Succ Main.Nat | Zero ; 9.61/4.00 9.61/4.00 data Tup0 = Tup0 ; 9.61/4.00 9.61/4.00 psPs :: List a -> List a -> List a; 9.61/4.00 psPs Nil ys = ys; 9.61/4.00 psPs (Cons x xs) ys = Cons x (psPs xs ys); 9.61/4.00 9.61/4.00 showString :: List Main.Char -> List Main.Char -> List Main.Char; 9.61/4.00 showString = psPs; 9.61/4.00 9.61/4.00 showsPrecTup0 :: MyInt -> Tup0 -> List Main.Char -> List Main.Char; 9.61/4.00 showsPrecTup0 p Tup0 = showString (Cons (Main.Char (Main.Pos (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ Main.Zero)))))))))))))))))))))))))))))))))))))))))) (Cons (Main.Char (Main.Pos (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ Main.Zero))))))))))))))))))))))))))))))))))))))))))) Nil)); 9.61/4.00 9.61/4.00 } 9.61/4.00 9.61/4.00 ---------------------------------------- 9.61/4.00 9.61/4.00 (5) Narrow (EQUIVALENT) 9.61/4.00 Haskell To QDPs 9.61/4.00 9.61/4.00 digraph dp_graph { 9.61/4.00 node [outthreshold=100, inthreshold=100];1[label="showsPrecTup0",fontsize=16,color="grey",shape="box"];1 -> 3[label="",style="dashed", color="grey", weight=3]; 9.61/4.00 3[label="showsPrecTup0 vx3",fontsize=16,color="grey",shape="box"];3 -> 4[label="",style="dashed", color="grey", weight=3]; 9.61/4.00 4[label="showsPrecTup0 vx3 vx4",fontsize=16,color="grey",shape="box"];4 -> 5[label="",style="dashed", color="grey", weight=3]; 9.61/4.00 5[label="showsPrecTup0 vx3 vx4 vx5",fontsize=16,color="burlywood",shape="triangle"];24[label="vx4/Tup0",fontsize=10,color="white",style="solid",shape="box"];5 -> 24[label="",style="solid", color="burlywood", weight=9]; 9.61/4.00 24 -> 6[label="",style="solid", color="burlywood", weight=3]; 9.61/4.00 6[label="showsPrecTup0 vx3 Tup0 vx5",fontsize=16,color="black",shape="box"];6 -> 7[label="",style="solid", color="black", weight=3]; 9.61/4.00 7 -> 11[label="",style="dashed", color="red", weight=0]; 9.61/4.00 7[label="showString (Cons (Char (Pos (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero)))))))))))))))))))))))))))))))))))))))))) (Cons (Char (Pos (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero))))))))))))))))))))))))))))))))))))))))))) Nil)) vx5",fontsize=16,color="magenta"];7 -> 12[label="",style="dashed", color="magenta", weight=3]; 9.61/4.00 7 -> 13[label="",style="dashed", color="magenta", weight=3]; 9.61/4.00 7 -> 14[label="",style="dashed", color="magenta", weight=3]; 9.61/4.00 12[label="Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero)))))))))))))))))))))))))))))))))))))))",fontsize=16,color="green",shape="box"];13[label="vx5",fontsize=16,color="green",shape="box"];14[label="Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero))))))))))))))))))))))))))))))))))))))",fontsize=16,color="green",shape="box"];11[label="showString (Cons (Char (Pos (Succ vx10))) (Cons (Char (Pos (Succ vx11))) Nil)) vx12",fontsize=16,color="black",shape="triangle"];11 -> 18[label="",style="solid", color="black", weight=3]; 9.61/4.00 18[label="psPs (Cons (Char (Pos (Succ vx10))) (Cons (Char (Pos (Succ vx11))) Nil)) vx12",fontsize=16,color="black",shape="box"];18 -> 19[label="",style="solid", color="black", weight=3]; 9.61/4.00 19[label="Cons (Char (Pos (Succ vx10))) (psPs (Cons (Char (Pos (Succ vx11))) Nil) vx12)",fontsize=16,color="green",shape="box"];19 -> 20[label="",style="dashed", color="green", weight=3]; 9.61/4.00 20[label="psPs (Cons (Char (Pos (Succ vx11))) Nil) vx12",fontsize=16,color="black",shape="box"];20 -> 21[label="",style="solid", color="black", weight=3]; 9.61/4.00 21[label="Cons (Char (Pos (Succ vx11))) (psPs Nil vx12)",fontsize=16,color="green",shape="box"];21 -> 22[label="",style="dashed", color="green", weight=3]; 9.61/4.00 22[label="psPs Nil vx12",fontsize=16,color="black",shape="box"];22 -> 23[label="",style="solid", color="black", weight=3]; 9.61/4.00 23[label="vx12",fontsize=16,color="green",shape="box"];} 9.61/4.00 9.61/4.00 ---------------------------------------- 9.61/4.00 9.61/4.00 (6) 9.61/4.00 YES 9.61/4.04 EOF