7.79/3.48 YES 9.91/3.99 proof of /export/starexec/sandbox/benchmark/theBenchmark.hs 9.91/3.99 # AProVE Commit ID: 48fb2092695e11cc9f56e44b17a92a5f88ffb256 marcel 20180622 unpublished dirty 9.91/3.99 9.91/3.99 9.91/3.99 H-Termination with start terms of the given HASKELL could be proven: 9.91/3.99 9.91/3.99 (0) HASKELL 9.91/3.99 (1) BR [EQUIVALENT, 0 ms] 9.91/3.99 (2) HASKELL 9.91/3.99 (3) COR [EQUIVALENT, 0 ms] 9.91/3.99 (4) HASKELL 9.91/3.99 (5) Narrow [EQUIVALENT, 33 ms] 9.91/3.99 (6) YES 9.91/3.99 9.91/3.99 9.91/3.99 ---------------------------------------- 9.91/3.99 9.91/3.99 (0) 9.91/3.99 Obligation: 9.91/3.99 mainModule Main 9.91/3.99 module Main where { 9.91/3.99 import qualified Prelude; 9.91/3.99 data Main.Char = Char MyInt ; 9.91/3.99 9.91/3.99 data List a = Cons a (List a) | Nil ; 9.91/3.99 9.91/3.99 data MyBool = MyTrue | MyFalse ; 9.91/3.99 9.91/3.99 data MyInt = Pos Main.Nat | Neg Main.Nat ; 9.91/3.99 9.91/3.99 data Main.Nat = Succ Main.Nat | Zero ; 9.91/3.99 9.91/3.99 pt :: (c -> b) -> (a -> c) -> a -> b; 9.91/3.99 pt f g x = f (g x); 9.91/3.99 9.91/3.99 showChar :: Main.Char -> List Main.Char -> List Main.Char; 9.91/3.99 showChar = Cons; 9.91/3.99 9.91/3.99 showParen :: MyBool -> (List Main.Char -> List Main.Char) -> List Main.Char -> List Main.Char; 9.91/3.99 showParen b p = showParen0 p b; 9.91/3.99 9.91/3.99 showParen0 p MyTrue = pt (showChar (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))))))))))))))))))))))))))))))))))))))))))) (pt p (showChar (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))))))))))))))))))))))))))))))))))))))))))))); 9.91/3.99 showParen0 p MyFalse = p; 9.91/3.99 9.91/3.99 } 9.91/3.99 9.91/3.99 ---------------------------------------- 9.91/3.99 9.91/3.99 (1) BR (EQUIVALENT) 9.91/3.99 Replaced joker patterns by fresh variables and removed binding patterns. 9.91/3.99 ---------------------------------------- 9.91/3.99 9.91/3.99 (2) 9.91/3.99 Obligation: 9.91/3.99 mainModule Main 9.91/3.99 module Main where { 9.91/3.99 import qualified Prelude; 9.91/3.99 data Main.Char = Char MyInt ; 9.91/3.99 9.91/3.99 data List a = Cons a (List a) | Nil ; 9.91/3.99 9.91/3.99 data MyBool = MyTrue | MyFalse ; 9.91/3.99 9.91/3.99 data MyInt = Pos Main.Nat | Neg Main.Nat ; 9.91/3.99 9.91/3.99 data Main.Nat = Succ Main.Nat | Zero ; 9.91/3.99 9.91/3.99 pt :: (a -> b) -> (c -> a) -> c -> b; 9.91/3.99 pt f g x = f (g x); 9.91/3.99 9.91/3.99 showChar :: Main.Char -> List Main.Char -> List Main.Char; 9.91/3.99 showChar = Cons; 9.91/3.99 9.91/3.99 showParen :: MyBool -> (List Main.Char -> List Main.Char) -> List Main.Char -> List Main.Char; 9.91/3.99 showParen b p = showParen0 p b; 9.91/3.99 9.91/3.99 showParen0 p MyTrue = pt (showChar (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))))))))))))))))))))))))))))))))))))))))))) (pt p (showChar (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))))))))))))))))))))))))))))))))))))))))))))); 9.91/3.99 showParen0 p MyFalse = p; 9.91/3.99 9.91/3.99 } 9.91/3.99 9.91/3.99 ---------------------------------------- 9.91/3.99 9.91/3.99 (3) COR (EQUIVALENT) 9.91/3.99 Cond Reductions: 9.91/3.99 The following Function with conditions 9.91/3.99 "undefined |Falseundefined; 9.91/3.99 " 9.91/3.99 is transformed to 9.91/3.99 "undefined = undefined1; 9.91/3.99 " 9.91/3.99 "undefined0 True = undefined; 9.91/3.99 " 9.91/3.99 "undefined1 = undefined0 False; 9.91/3.99 " 9.91/3.99 9.91/3.99 ---------------------------------------- 9.91/3.99 9.91/3.99 (4) 9.91/3.99 Obligation: 9.91/3.99 mainModule Main 9.91/3.99 module Main where { 9.91/3.99 import qualified Prelude; 9.91/3.99 data Main.Char = Char MyInt ; 9.91/3.99 9.91/3.99 data List a = Cons a (List a) | Nil ; 9.91/3.99 9.91/3.99 data MyBool = MyTrue | MyFalse ; 9.91/3.99 9.91/3.99 data MyInt = Pos Main.Nat | Neg Main.Nat ; 9.91/3.99 9.91/3.99 data Main.Nat = Succ Main.Nat | Zero ; 9.91/3.99 9.91/3.99 pt :: (c -> b) -> (a -> c) -> a -> b; 9.91/3.99 pt f g x = f (g x); 9.91/3.99 9.91/3.99 showChar :: Main.Char -> List Main.Char -> List Main.Char; 9.91/3.99 showChar = Cons; 9.91/3.99 9.91/3.99 showParen :: MyBool -> (List Main.Char -> List Main.Char) -> List Main.Char -> List Main.Char; 9.91/3.99 showParen b p = showParen0 p b; 9.91/3.99 9.91/3.99 showParen0 p MyTrue = pt (showChar (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))))))))))))))))))))))))))))))))))))))))))) (pt p (showChar (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))))))))))))))))))))))))))))))))))))))))))))); 9.91/3.99 showParen0 p MyFalse = p; 9.91/3.99 9.91/3.99 } 9.91/3.99 9.91/3.99 ---------------------------------------- 9.91/3.99 9.91/3.99 (5) Narrow (EQUIVALENT) 9.91/3.99 Haskell To QDPs 9.91/3.99 9.91/3.99 digraph dp_graph { 9.91/3.99 node [outthreshold=100, inthreshold=100];1[label="showParen",fontsize=16,color="grey",shape="box"];1 -> 3[label="",style="dashed", color="grey", weight=3]; 9.91/3.99 3[label="showParen vx3",fontsize=16,color="grey",shape="box"];3 -> 4[label="",style="dashed", color="grey", weight=3]; 9.91/3.99 4[label="showParen vx3 vx4",fontsize=16,color="grey",shape="box"];4 -> 5[label="",style="dashed", color="grey", weight=3]; 9.91/3.99 5[label="showParen vx3 vx4 vx5",fontsize=16,color="black",shape="triangle"];5 -> 6[label="",style="solid", color="black", weight=3]; 9.91/3.99 6[label="showParen0 vx4 vx3 vx5",fontsize=16,color="burlywood",shape="box"];31[label="vx3/MyTrue",fontsize=10,color="white",style="solid",shape="box"];6 -> 31[label="",style="solid", color="burlywood", weight=9]; 9.91/3.99 31 -> 7[label="",style="solid", color="burlywood", weight=3]; 9.91/3.99 32[label="vx3/MyFalse",fontsize=10,color="white",style="solid",shape="box"];6 -> 32[label="",style="solid", color="burlywood", weight=9]; 9.91/3.99 32 -> 8[label="",style="solid", color="burlywood", weight=3]; 9.91/3.99 7[label="showParen0 vx4 MyTrue vx5",fontsize=16,color="black",shape="box"];7 -> 9[label="",style="solid", color="black", weight=3]; 9.91/3.99 8[label="showParen0 vx4 MyFalse vx5",fontsize=16,color="black",shape="box"];8 -> 10[label="",style="solid", color="black", weight=3]; 9.91/3.99 9 -> 16[label="",style="dashed", color="red", weight=0]; 9.91/3.99 9[label="pt (showChar (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))))))))))))))))))))))))))))))))))))))))))) (pt vx4 (showChar (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))))))))))))))))))))))))))))))))))))))))))))) vx5",fontsize=16,color="magenta"];9 -> 17[label="",style="dashed", color="magenta", weight=3]; 9.91/3.99 9 -> 18[label="",style="dashed", color="magenta", weight=3]; 9.91/3.99 9 -> 19[label="",style="dashed", color="magenta", weight=3]; 9.91/3.99 9 -> 20[label="",style="dashed", color="magenta", weight=3]; 9.91/3.99 10[label="vx4 vx5",fontsize=16,color="green",shape="box"];10 -> 15[label="",style="dashed", color="green", weight=3]; 9.91/3.99 17[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"];18[label="vx4",fontsize=16,color="green",shape="box"];19[label="vx5",fontsize=16,color="green",shape="box"];20[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"];16[label="pt (showChar (Char (Pos (Succ vx11)))) (pt vx12 (showChar (Char (Pos (Succ vx13))))) vx14",fontsize=16,color="black",shape="triangle"];16 -> 25[label="",style="solid", color="black", weight=3]; 9.91/3.99 15[label="vx5",fontsize=16,color="green",shape="box"];25[label="showChar (Char (Pos (Succ vx11))) (pt vx12 (showChar (Char (Pos (Succ vx13)))) vx14)",fontsize=16,color="black",shape="box"];25 -> 26[label="",style="solid", color="black", weight=3]; 9.91/3.99 26[label="Cons (Char (Pos (Succ vx11))) (pt vx12 (showChar (Char (Pos (Succ vx13)))) vx14)",fontsize=16,color="green",shape="box"];26 -> 27[label="",style="dashed", color="green", weight=3]; 9.91/3.99 27[label="pt vx12 (showChar (Char (Pos (Succ vx13)))) vx14",fontsize=16,color="black",shape="box"];27 -> 28[label="",style="solid", color="black", weight=3]; 9.91/3.99 28[label="vx12 (showChar (Char (Pos (Succ vx13))) vx14)",fontsize=16,color="green",shape="box"];28 -> 29[label="",style="dashed", color="green", weight=3]; 9.91/3.99 29[label="showChar (Char (Pos (Succ vx13))) vx14",fontsize=16,color="black",shape="box"];29 -> 30[label="",style="solid", color="black", weight=3]; 9.91/3.99 30[label="Cons (Char (Pos (Succ vx13))) vx14",fontsize=16,color="green",shape="box"];} 9.91/3.99 9.91/3.99 ---------------------------------------- 9.91/3.99 9.91/3.99 (6) 9.91/3.99 YES 9.91/4.03 EOF