Haskell pair #487598158

details

property	value
status	complete
benchmark	blockIO_1.hs
ran by	Akihisa Yamada
cpu timeout	1200 seconds
wallclock timeout	300 seconds
memory limit	137438953472 bytes
execution host	n139.star.cs.uiowa.edu
space	basic_haskell

run statistics

property	value
solver	AProVE
configuration	standard
runtime (wallclock)	4.29883384705 seconds
cpu usage	10.029434554
max memory	6.08313344E8

stage attributes

key	value
output-size	11155
starexec-result	NO

output

/export/starexec/sandbox/solver/bin/starexec_run_standard /export/starexec/sandbox/benchmark/theBenchmark.hs /export/starexec/sandbox/output/output_files


--------------------------------------------------------------------------------


NO
proof of /export/starexec/sandbox/benchmark/theBenchmark.hs
# AProVE Commit ID: 794c25de1cacf0d048858bcd21c9a779e1221865 marcel 20200619 unpublished dirty


H-Termination with start terms of the given HASKELL could be disproven:

(0) HASKELL
(1) BR [EQUIVALENT, 0 ms]
(2) HASKELL
(3) COR [EQUIVALENT, 0 ms]
(4) HASKELL
(5) Narrow [COMPLETE, 0 ms]
(6) QDP
(7) NonTerminationLoopProof [COMPLETE, 0 ms]
(8) NO


----------------------------------------

(0)
Obligation:
mainModule Main 
module Main where {
import qualified Prelude;
data Main.Char = Char MyInt ;

data Main.HugsException = HugsException ;

data Main.IO a = IO ((Main.IOError  ->  Main.IOResult)  ->  (a  ->  Main.IOResult)  ->  Main.IOResult) ;

data Main.IOError = IOError Main.IOErrorKind (List Main.Char) (List Main.Char) (Main.Maybe (List Main.Char)) ;

data Main.IOErrorKind = Junk ;

data Main.IOResult = Hugs_ExitWith MyInt  | Hugs_Error Main.IOError  | Hugs_Catch Main.IOResult (Main.HugsException  ->  Main.IOResult) (Main.IOError  ->  Main.IOResult) (Main.Obj  ->  Main.IOResult)  | Hugs_ForkThread Main.IOResult Main.IOResult  | Hugs_DeadThread  | Hugs_YieldThread Main.IOResult  | Hugs_Return Main.Obj  | Hugs_BlockThread (Main.Obj  ->  Main.IOResult) ((Main.Obj  ->  Main.IOResult)  ->  Main.IOResult) ;

data List a = Cons a (List a)  | Nil ;

data Main.Maybe a = Nothing  | Just a ;

data MyInt = Pos Main.Nat  | Neg Main.Nat ;

data Main.Nat = Succ Main.Nat  | Zero ;

data Main.Obj = Obj ;

data Tup0 = Tup0 ;

blockIO :: ((a  ->  Main.IOResult)  ->  Main.IO Tup0)  ->  Main.IO a;
blockIO m = Main.IO (blockIOBlockIO0 m);

blockIOBlockIO0 vw f s = Main.Hugs_BlockThread (pt s fromObj) (blockIOM' vw);

blockIOM' vw k = threadToIOResult (vw (pt k toObj));

const :: b  ->  a  ->  b;
const k vv = k;

fromObj :: Main.Obj  ->  a;
fromObj = fromObj;

pt :: (a  ->  c)  ->  (b  ->  a)  ->  b  ->  c;
pt f g x = f (g x);

threadToIOResult :: Main.IO a  ->  Main.IOResult;
threadToIOResult (Main.IO m) = m Main.Hugs_Error (const Main.Hugs_DeadThread);

toObj :: a  ->  Main.Obj;
toObj = toObj;

}

----------------------------------------

(1) BR (EQUIVALENT)
Replaced joker patterns by fresh variables and removed binding patterns.
----------------------------------------

(2)
Obligation:
mainModule Main 
module Main where {
import qualified Prelude;
data Main.Char = Char MyInt ;

data Main.HugsException = HugsException ;

data Main.IO a = IO ((Main.IOError  ->  Main.IOResult)  ->  (a  ->  Main.IOResult)  ->  Main.IOResult) ;

data Main.IOError = IOError Main.IOErrorKind (List Main.Char) (List Main.Char) (Main.Maybe (List Main.Char)) ;

data Main.IOErrorKind = Junk ;

popout

output may be truncated. 'popout' for the full output.

job log

popout

actions all output return to Haskell