Spaces
Explore
Communities
Statistics
Reports
Cluster
Status
Help
Funct Progr 77531 pair #381920489
details
property
value
status
timeout (wallclock)
benchmark
fromDouble_1.hs
ran by
Akihisa Yamada
cpu timeout
1200 seconds
wallclock timeout
300 seconds
memory limit
137438953472 bytes
space
basic_haskell
run statistics
property
value
solver
AProVE
configuration
standard
runtime (wallclock)
301.016542912 seconds
cpu usage
333.729411586
max memory
5.281062912E9
stage attributes
unavailable
output
/export/starexec/sandbox2/solver/bin/starexec_run_standard /export/starexec/sandbox2/benchmark/theBenchmark.hs /export/starexec/sandbox2/output/output_files -------------------------------------------------------------------------------- MAYBE proof of /export/starexec/sandbox2/benchmark/theBenchmark.hs # AProVE Commit ID: 48fb2092695e11cc9f56e44b17a92a5f88ffb256 marcel 20180622 unpublished dirty H-Termination with start terms of the given HASKELL could not be shown: (0) HASKELL (1) BR [EQUIVALENT, 0 ms] (2) HASKELL (3) COR [EQUIVALENT, 0 ms] (4) HASKELL ---------------------------------------- (0) Obligation: mainModule Main module Main where { import qualified Prelude; data Double = Double MyInt MyInt ; data MyBool = MyTrue | MyFalse ; data MyInt = Pos Main.Nat | Neg Main.Nat ; data Main.Nat = Succ Main.Nat | Zero ; data Ordering = LT | EQ | GT ; data Ratio a = CnPc a a ; absMyInt :: MyInt -> MyInt; absMyInt = absReal; absReal x = absReal2 x; absReal0 x MyTrue = negateMyInt x; absReal1 x MyTrue = x; absReal1 x MyFalse = absReal0 x otherwise; absReal2 x = absReal1 x (gtEsMyInt x (fromIntMyInt (Main.Pos Main.Zero))); compareMyInt :: MyInt -> MyInt -> Ordering; compareMyInt = primCmpInt; doubleToRatio (Double x y) = pc (fromIntMyInt x) (fromIntMyInt y); error :: a; error = stop MyTrue; esEsMyInt :: MyInt -> MyInt -> MyBool; esEsMyInt = primEqInt; esEsOrdering :: Ordering -> Ordering -> MyBool; esEsOrdering LT LT = MyTrue; esEsOrdering LT EQ = MyFalse; esEsOrdering LT GT = MyFalse; esEsOrdering EQ LT = MyFalse; esEsOrdering EQ EQ = MyTrue; esEsOrdering EQ GT = MyFalse; esEsOrdering GT LT = MyFalse; esEsOrdering GT EQ = MyFalse; esEsOrdering GT GT = MyTrue; fromDoubleRatio :: Double -> Ratio MyInt; fromDoubleRatio = doubleToRatio; fromIntMyInt :: MyInt -> MyInt; fromIntMyInt x = x; fsEsOrdering :: Ordering -> Ordering -> MyBool; fsEsOrdering x y = not (esEsOrdering x y); gcd yx yy = gcd3 yx yy; gcd x y = gcd0 x y; gcd0 x y = gcd0Gcd' (absMyInt x) (absMyInt y); gcd0Gcd' x xx = gcd0Gcd'2 x xx; gcd0Gcd' x y = gcd0Gcd'0 x y; gcd0Gcd'0 x y = gcd0Gcd' y (remMyInt x y); gcd0Gcd'1 MyTrue x xx = x; gcd0Gcd'1 xy xz yu = gcd0Gcd'0 xz yu; gcd0Gcd'2 x xx = gcd0Gcd'1 (esEsMyInt xx (fromIntMyInt (Main.Pos Main.Zero))) x xx; gcd0Gcd'2 yv yw = gcd0Gcd'0 yv yw; gcd1 MyTrue yx yy = Main.error; gcd1 yz zu zv = gcd0 zu zv;
popout
output may be truncated. 'popout' for the full output.
job log
popout
actions
all output
return to Funct Progr 77531