8.98/3.90 YES 11.13/4.47 proof of /export/starexec/sandbox/benchmark/theBenchmark.hs 11.13/4.47 # AProVE Commit ID: 48fb2092695e11cc9f56e44b17a92a5f88ffb256 marcel 20180622 unpublished dirty 11.13/4.47 11.13/4.47 11.13/4.47 H-Termination with start terms of the given HASKELL could be proven: 11.13/4.47 11.13/4.47 (0) HASKELL 11.13/4.47 (1) BR [EQUIVALENT, 0 ms] 11.13/4.47 (2) HASKELL 11.13/4.47 (3) COR [EQUIVALENT, 0 ms] 11.13/4.47 (4) HASKELL 11.13/4.47 (5) Narrow [SOUND, 0 ms] 11.13/4.47 (6) AND 11.13/4.47 (7) QDP 11.13/4.47 (8) QDPSizeChangeProof [EQUIVALENT, 0 ms] 11.13/4.47 (9) YES 11.13/4.47 (10) QDP 11.13/4.47 (11) DependencyGraphProof [EQUIVALENT, 0 ms] 11.13/4.47 (12) AND 11.13/4.47 (13) QDP 11.13/4.47 (14) QDPSizeChangeProof [EQUIVALENT, 23 ms] 11.13/4.47 (15) YES 11.13/4.47 (16) QDP 11.13/4.47 (17) MRRProof [EQUIVALENT, 0 ms] 11.13/4.47 (18) QDP 11.13/4.47 (19) PisEmptyProof [EQUIVALENT, 0 ms] 11.13/4.47 (20) YES 11.13/4.47 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (0) 11.13/4.47 Obligation: 11.13/4.47 mainModule Main 11.13/4.47 module Main where { 11.13/4.47 import qualified Prelude; 11.13/4.47 data Float = Float MyInt MyInt ; 11.13/4.47 11.13/4.47 data MyBool = MyTrue | MyFalse ; 11.13/4.47 11.13/4.47 data MyInt = Pos Main.Nat | Neg Main.Nat ; 11.13/4.47 11.13/4.47 data Main.Nat = Succ Main.Nat | Zero ; 11.13/4.47 11.13/4.47 data Tup2 a b = Tup2 a b ; 11.13/4.47 11.13/4.47 error :: a; 11.13/4.47 error = stop MyTrue; 11.13/4.47 11.13/4.47 floatProperFractionFloat (Float wy wz) = Tup2 (fromIntMyInt (quotMyInt wy wz)) (msFloat (Float wy wz) (fromIntFloat (quotMyInt wy wz))); 11.13/4.47 11.13/4.47 fromEnumFloat :: Float -> MyInt; 11.13/4.47 fromEnumFloat = truncateFloat; 11.13/4.47 11.13/4.47 fromIntFloat :: MyInt -> Float; 11.13/4.47 fromIntFloat = primIntToFloat; 11.13/4.47 11.13/4.47 fromIntMyInt :: MyInt -> MyInt; 11.13/4.47 fromIntMyInt x = x; 11.13/4.47 11.13/4.47 msFloat :: Float -> Float -> Float; 11.13/4.47 msFloat = primMinusFloat; 11.13/4.47 11.13/4.47 msMyInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 msMyInt = primMinusInt; 11.13/4.47 11.13/4.47 primDivNatS :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primDivNatS Main.Zero Main.Zero = Main.error; 11.13/4.47 primDivNatS (Main.Succ x) Main.Zero = Main.error; 11.13/4.47 primDivNatS (Main.Succ x) (Main.Succ y) = primDivNatS0 x y (primGEqNatS x y); 11.13/4.47 primDivNatS Main.Zero (Main.Succ x) = Main.Zero; 11.13/4.47 11.13/4.47 primDivNatS0 x y MyTrue = Main.Succ (primDivNatS (primMinusNatS x y) (Main.Succ y)); 11.13/4.47 primDivNatS0 x y MyFalse = Main.Zero; 11.13/4.47 11.13/4.47 primGEqNatS :: Main.Nat -> Main.Nat -> MyBool; 11.13/4.47 primGEqNatS (Main.Succ x) Main.Zero = MyTrue; 11.13/4.47 primGEqNatS (Main.Succ x) (Main.Succ y) = primGEqNatS x y; 11.13/4.47 primGEqNatS Main.Zero (Main.Succ x) = MyFalse; 11.13/4.47 primGEqNatS Main.Zero Main.Zero = MyTrue; 11.13/4.47 11.13/4.47 primIntToFloat :: MyInt -> Float; 11.13/4.47 primIntToFloat x = Float x (Main.Pos (Main.Succ Main.Zero)); 11.13/4.47 11.13/4.47 primMinusFloat :: Float -> Float -> Float; 11.13/4.47 primMinusFloat (Float x1 x2) (Float y1 y2) = Float (msMyInt x1 y1) (srMyInt x2 y2); 11.13/4.47 11.13/4.47 primMinusInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 primMinusInt (Main.Pos x) (Main.Neg y) = Main.Pos (primPlusNat x y); 11.13/4.47 primMinusInt (Main.Neg x) (Main.Pos y) = Main.Neg (primPlusNat x y); 11.13/4.47 primMinusInt (Main.Neg x) (Main.Neg y) = primMinusNat y x; 11.13/4.47 primMinusInt (Main.Pos x) (Main.Pos y) = primMinusNat x y; 11.13/4.47 11.13/4.47 primMinusNat :: Main.Nat -> Main.Nat -> MyInt; 11.13/4.47 primMinusNat Main.Zero Main.Zero = Main.Pos Main.Zero; 11.13/4.47 primMinusNat Main.Zero (Main.Succ y) = Main.Neg (Main.Succ y); 11.13/4.47 primMinusNat (Main.Succ x) Main.Zero = Main.Pos (Main.Succ x); 11.13/4.47 primMinusNat (Main.Succ x) (Main.Succ y) = primMinusNat x y; 11.13/4.47 11.13/4.47 primMinusNatS :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primMinusNatS (Main.Succ x) (Main.Succ y) = primMinusNatS x y; 11.13/4.47 primMinusNatS Main.Zero (Main.Succ y) = Main.Zero; 11.13/4.47 primMinusNatS x Main.Zero = x; 11.13/4.47 11.13/4.47 primMulInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 primMulInt (Main.Pos x) (Main.Pos y) = Main.Pos (primMulNat x y); 11.13/4.47 primMulInt (Main.Pos x) (Main.Neg y) = Main.Neg (primMulNat x y); 11.13/4.47 primMulInt (Main.Neg x) (Main.Pos y) = Main.Neg (primMulNat x y); 11.13/4.47 primMulInt (Main.Neg x) (Main.Neg y) = Main.Pos (primMulNat x y); 11.13/4.47 11.13/4.47 primMulNat :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primMulNat Main.Zero Main.Zero = Main.Zero; 11.13/4.47 primMulNat Main.Zero (Main.Succ y) = Main.Zero; 11.13/4.47 primMulNat (Main.Succ x) Main.Zero = Main.Zero; 11.13/4.47 primMulNat (Main.Succ x) (Main.Succ y) = primPlusNat (primMulNat x (Main.Succ y)) (Main.Succ y); 11.13/4.47 11.13/4.47 primPlusNat :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primPlusNat Main.Zero Main.Zero = Main.Zero; 11.13/4.47 primPlusNat Main.Zero (Main.Succ y) = Main.Succ y; 11.13/4.47 primPlusNat (Main.Succ x) Main.Zero = Main.Succ x; 11.13/4.47 primPlusNat (Main.Succ x) (Main.Succ y) = Main.Succ (Main.Succ (primPlusNat x y)); 11.13/4.47 11.13/4.47 primQuotInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 primQuotInt (Main.Pos x) (Main.Pos (Main.Succ y)) = Main.Pos (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt (Main.Pos x) (Main.Neg (Main.Succ y)) = Main.Neg (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt (Main.Neg x) (Main.Pos (Main.Succ y)) = Main.Neg (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt (Main.Neg x) (Main.Neg (Main.Succ y)) = Main.Pos (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt ww wx = Main.error; 11.13/4.47 11.13/4.47 properFractionFloat :: Float -> Tup2 MyInt Float; 11.13/4.47 properFractionFloat = floatProperFractionFloat; 11.13/4.47 11.13/4.47 quotMyInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 quotMyInt = primQuotInt; 11.13/4.47 11.13/4.47 srMyInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 srMyInt = primMulInt; 11.13/4.47 11.13/4.47 stop :: MyBool -> a; 11.13/4.47 stop MyFalse = stop MyFalse; 11.13/4.47 11.13/4.47 truncateFloat :: Float -> MyInt; 11.13/4.47 truncateFloat x = truncateM x; 11.13/4.47 11.13/4.47 truncateM xu = truncateM0 xu (truncateVu6 xu); 11.13/4.47 11.13/4.47 truncateM0 xu (Tup2 m vv) = m; 11.13/4.47 11.13/4.47 truncateVu6 xu = properFractionFloat xu; 11.13/4.47 11.13/4.47 } 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (1) BR (EQUIVALENT) 11.13/4.47 Replaced joker patterns by fresh variables and removed binding patterns. 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (2) 11.13/4.47 Obligation: 11.13/4.47 mainModule Main 11.13/4.47 module Main where { 11.13/4.47 import qualified Prelude; 11.13/4.47 data Float = Float MyInt MyInt ; 11.13/4.47 11.13/4.47 data MyBool = MyTrue | MyFalse ; 11.13/4.47 11.13/4.47 data MyInt = Pos Main.Nat | Neg Main.Nat ; 11.13/4.47 11.13/4.47 data Main.Nat = Succ Main.Nat | Zero ; 11.13/4.47 11.13/4.47 data Tup2 a b = Tup2 a b ; 11.13/4.47 11.13/4.47 error :: a; 11.13/4.47 error = stop MyTrue; 11.13/4.47 11.13/4.47 floatProperFractionFloat (Float wy wz) = Tup2 (fromIntMyInt (quotMyInt wy wz)) (msFloat (Float wy wz) (fromIntFloat (quotMyInt wy wz))); 11.13/4.47 11.13/4.47 fromEnumFloat :: Float -> MyInt; 11.13/4.47 fromEnumFloat = truncateFloat; 11.13/4.47 11.13/4.47 fromIntFloat :: MyInt -> Float; 11.13/4.47 fromIntFloat = primIntToFloat; 11.13/4.47 11.13/4.47 fromIntMyInt :: MyInt -> MyInt; 11.13/4.47 fromIntMyInt x = x; 11.13/4.47 11.13/4.47 msFloat :: Float -> Float -> Float; 11.13/4.47 msFloat = primMinusFloat; 11.13/4.47 11.13/4.47 msMyInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 msMyInt = primMinusInt; 11.13/4.47 11.13/4.47 primDivNatS :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primDivNatS Main.Zero Main.Zero = Main.error; 11.13/4.47 primDivNatS (Main.Succ x) Main.Zero = Main.error; 11.13/4.47 primDivNatS (Main.Succ x) (Main.Succ y) = primDivNatS0 x y (primGEqNatS x y); 11.13/4.47 primDivNatS Main.Zero (Main.Succ x) = Main.Zero; 11.13/4.47 11.13/4.47 primDivNatS0 x y MyTrue = Main.Succ (primDivNatS (primMinusNatS x y) (Main.Succ y)); 11.13/4.47 primDivNatS0 x y MyFalse = Main.Zero; 11.13/4.47 11.13/4.47 primGEqNatS :: Main.Nat -> Main.Nat -> MyBool; 11.13/4.47 primGEqNatS (Main.Succ x) Main.Zero = MyTrue; 11.13/4.47 primGEqNatS (Main.Succ x) (Main.Succ y) = primGEqNatS x y; 11.13/4.47 primGEqNatS Main.Zero (Main.Succ x) = MyFalse; 11.13/4.47 primGEqNatS Main.Zero Main.Zero = MyTrue; 11.13/4.47 11.13/4.47 primIntToFloat :: MyInt -> Float; 11.13/4.47 primIntToFloat x = Float x (Main.Pos (Main.Succ Main.Zero)); 11.13/4.47 11.13/4.47 primMinusFloat :: Float -> Float -> Float; 11.13/4.47 primMinusFloat (Float x1 x2) (Float y1 y2) = Float (msMyInt x1 y1) (srMyInt x2 y2); 11.13/4.47 11.13/4.47 primMinusInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 primMinusInt (Main.Pos x) (Main.Neg y) = Main.Pos (primPlusNat x y); 11.13/4.47 primMinusInt (Main.Neg x) (Main.Pos y) = Main.Neg (primPlusNat x y); 11.13/4.47 primMinusInt (Main.Neg x) (Main.Neg y) = primMinusNat y x; 11.13/4.47 primMinusInt (Main.Pos x) (Main.Pos y) = primMinusNat x y; 11.13/4.47 11.13/4.47 primMinusNat :: Main.Nat -> Main.Nat -> MyInt; 11.13/4.47 primMinusNat Main.Zero Main.Zero = Main.Pos Main.Zero; 11.13/4.47 primMinusNat Main.Zero (Main.Succ y) = Main.Neg (Main.Succ y); 11.13/4.47 primMinusNat (Main.Succ x) Main.Zero = Main.Pos (Main.Succ x); 11.13/4.47 primMinusNat (Main.Succ x) (Main.Succ y) = primMinusNat x y; 11.13/4.47 11.13/4.47 primMinusNatS :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primMinusNatS (Main.Succ x) (Main.Succ y) = primMinusNatS x y; 11.13/4.47 primMinusNatS Main.Zero (Main.Succ y) = Main.Zero; 11.13/4.47 primMinusNatS x Main.Zero = x; 11.13/4.47 11.13/4.47 primMulInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 primMulInt (Main.Pos x) (Main.Pos y) = Main.Pos (primMulNat x y); 11.13/4.47 primMulInt (Main.Pos x) (Main.Neg y) = Main.Neg (primMulNat x y); 11.13/4.47 primMulInt (Main.Neg x) (Main.Pos y) = Main.Neg (primMulNat x y); 11.13/4.47 primMulInt (Main.Neg x) (Main.Neg y) = Main.Pos (primMulNat x y); 11.13/4.47 11.13/4.47 primMulNat :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primMulNat Main.Zero Main.Zero = Main.Zero; 11.13/4.47 primMulNat Main.Zero (Main.Succ y) = Main.Zero; 11.13/4.47 primMulNat (Main.Succ x) Main.Zero = Main.Zero; 11.13/4.47 primMulNat (Main.Succ x) (Main.Succ y) = primPlusNat (primMulNat x (Main.Succ y)) (Main.Succ y); 11.13/4.47 11.13/4.47 primPlusNat :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primPlusNat Main.Zero Main.Zero = Main.Zero; 11.13/4.47 primPlusNat Main.Zero (Main.Succ y) = Main.Succ y; 11.13/4.47 primPlusNat (Main.Succ x) Main.Zero = Main.Succ x; 11.13/4.47 primPlusNat (Main.Succ x) (Main.Succ y) = Main.Succ (Main.Succ (primPlusNat x y)); 11.13/4.47 11.13/4.47 primQuotInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 primQuotInt (Main.Pos x) (Main.Pos (Main.Succ y)) = Main.Pos (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt (Main.Pos x) (Main.Neg (Main.Succ y)) = Main.Neg (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt (Main.Neg x) (Main.Pos (Main.Succ y)) = Main.Neg (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt (Main.Neg x) (Main.Neg (Main.Succ y)) = Main.Pos (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt ww wx = Main.error; 11.13/4.47 11.13/4.47 properFractionFloat :: Float -> Tup2 MyInt Float; 11.13/4.47 properFractionFloat = floatProperFractionFloat; 11.13/4.47 11.13/4.47 quotMyInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 quotMyInt = primQuotInt; 11.13/4.47 11.13/4.47 srMyInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 srMyInt = primMulInt; 11.13/4.47 11.13/4.47 stop :: MyBool -> a; 11.13/4.47 stop MyFalse = stop MyFalse; 11.13/4.47 11.13/4.47 truncateFloat :: Float -> MyInt; 11.13/4.47 truncateFloat x = truncateM x; 11.13/4.47 11.13/4.47 truncateM xu = truncateM0 xu (truncateVu6 xu); 11.13/4.47 11.13/4.47 truncateM0 xu (Tup2 m vv) = m; 11.13/4.47 11.13/4.47 truncateVu6 xu = properFractionFloat xu; 11.13/4.47 11.13/4.47 } 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (3) COR (EQUIVALENT) 11.13/4.47 Cond Reductions: 11.13/4.47 The following Function with conditions 11.13/4.47 "undefined |Falseundefined; 11.13/4.47 " 11.13/4.47 is transformed to 11.13/4.47 "undefined = undefined1; 11.13/4.47 " 11.13/4.47 "undefined0 True = undefined; 11.13/4.47 " 11.13/4.47 "undefined1 = undefined0 False; 11.13/4.47 " 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (4) 11.13/4.47 Obligation: 11.13/4.47 mainModule Main 11.13/4.47 module Main where { 11.13/4.47 import qualified Prelude; 11.13/4.47 data Float = Float MyInt MyInt ; 11.13/4.47 11.13/4.47 data MyBool = MyTrue | MyFalse ; 11.13/4.47 11.13/4.47 data MyInt = Pos Main.Nat | Neg Main.Nat ; 11.13/4.47 11.13/4.47 data Main.Nat = Succ Main.Nat | Zero ; 11.13/4.47 11.13/4.47 data Tup2 b a = Tup2 b a ; 11.13/4.47 11.13/4.47 error :: a; 11.13/4.47 error = stop MyTrue; 11.13/4.47 11.13/4.47 floatProperFractionFloat (Float wy wz) = Tup2 (fromIntMyInt (quotMyInt wy wz)) (msFloat (Float wy wz) (fromIntFloat (quotMyInt wy wz))); 11.13/4.47 11.13/4.47 fromEnumFloat :: Float -> MyInt; 11.13/4.47 fromEnumFloat = truncateFloat; 11.13/4.47 11.13/4.47 fromIntFloat :: MyInt -> Float; 11.13/4.47 fromIntFloat = primIntToFloat; 11.13/4.47 11.13/4.47 fromIntMyInt :: MyInt -> MyInt; 11.13/4.47 fromIntMyInt x = x; 11.13/4.47 11.13/4.47 msFloat :: Float -> Float -> Float; 11.13/4.47 msFloat = primMinusFloat; 11.13/4.47 11.13/4.47 msMyInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 msMyInt = primMinusInt; 11.13/4.47 11.13/4.47 primDivNatS :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primDivNatS Main.Zero Main.Zero = Main.error; 11.13/4.47 primDivNatS (Main.Succ x) Main.Zero = Main.error; 11.13/4.47 primDivNatS (Main.Succ x) (Main.Succ y) = primDivNatS0 x y (primGEqNatS x y); 11.13/4.47 primDivNatS Main.Zero (Main.Succ x) = Main.Zero; 11.13/4.47 11.13/4.47 primDivNatS0 x y MyTrue = Main.Succ (primDivNatS (primMinusNatS x y) (Main.Succ y)); 11.13/4.47 primDivNatS0 x y MyFalse = Main.Zero; 11.13/4.47 11.13/4.47 primGEqNatS :: Main.Nat -> Main.Nat -> MyBool; 11.13/4.47 primGEqNatS (Main.Succ x) Main.Zero = MyTrue; 11.13/4.47 primGEqNatS (Main.Succ x) (Main.Succ y) = primGEqNatS x y; 11.13/4.47 primGEqNatS Main.Zero (Main.Succ x) = MyFalse; 11.13/4.47 primGEqNatS Main.Zero Main.Zero = MyTrue; 11.13/4.47 11.13/4.47 primIntToFloat :: MyInt -> Float; 11.13/4.47 primIntToFloat x = Float x (Main.Pos (Main.Succ Main.Zero)); 11.13/4.47 11.13/4.47 primMinusFloat :: Float -> Float -> Float; 11.13/4.47 primMinusFloat (Float x1 x2) (Float y1 y2) = Float (msMyInt x1 y1) (srMyInt x2 y2); 11.13/4.47 11.13/4.47 primMinusInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 primMinusInt (Main.Pos x) (Main.Neg y) = Main.Pos (primPlusNat x y); 11.13/4.47 primMinusInt (Main.Neg x) (Main.Pos y) = Main.Neg (primPlusNat x y); 11.13/4.47 primMinusInt (Main.Neg x) (Main.Neg y) = primMinusNat y x; 11.13/4.47 primMinusInt (Main.Pos x) (Main.Pos y) = primMinusNat x y; 11.13/4.47 11.13/4.47 primMinusNat :: Main.Nat -> Main.Nat -> MyInt; 11.13/4.47 primMinusNat Main.Zero Main.Zero = Main.Pos Main.Zero; 11.13/4.47 primMinusNat Main.Zero (Main.Succ y) = Main.Neg (Main.Succ y); 11.13/4.47 primMinusNat (Main.Succ x) Main.Zero = Main.Pos (Main.Succ x); 11.13/4.47 primMinusNat (Main.Succ x) (Main.Succ y) = primMinusNat x y; 11.13/4.47 11.13/4.47 primMinusNatS :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primMinusNatS (Main.Succ x) (Main.Succ y) = primMinusNatS x y; 11.13/4.47 primMinusNatS Main.Zero (Main.Succ y) = Main.Zero; 11.13/4.47 primMinusNatS x Main.Zero = x; 11.13/4.47 11.13/4.47 primMulInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 primMulInt (Main.Pos x) (Main.Pos y) = Main.Pos (primMulNat x y); 11.13/4.47 primMulInt (Main.Pos x) (Main.Neg y) = Main.Neg (primMulNat x y); 11.13/4.47 primMulInt (Main.Neg x) (Main.Pos y) = Main.Neg (primMulNat x y); 11.13/4.47 primMulInt (Main.Neg x) (Main.Neg y) = Main.Pos (primMulNat x y); 11.13/4.47 11.13/4.47 primMulNat :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primMulNat Main.Zero Main.Zero = Main.Zero; 11.13/4.47 primMulNat Main.Zero (Main.Succ y) = Main.Zero; 11.13/4.47 primMulNat (Main.Succ x) Main.Zero = Main.Zero; 11.13/4.47 primMulNat (Main.Succ x) (Main.Succ y) = primPlusNat (primMulNat x (Main.Succ y)) (Main.Succ y); 11.13/4.47 11.13/4.47 primPlusNat :: Main.Nat -> Main.Nat -> Main.Nat; 11.13/4.47 primPlusNat Main.Zero Main.Zero = Main.Zero; 11.13/4.47 primPlusNat Main.Zero (Main.Succ y) = Main.Succ y; 11.13/4.47 primPlusNat (Main.Succ x) Main.Zero = Main.Succ x; 11.13/4.47 primPlusNat (Main.Succ x) (Main.Succ y) = Main.Succ (Main.Succ (primPlusNat x y)); 11.13/4.47 11.13/4.47 primQuotInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 primQuotInt (Main.Pos x) (Main.Pos (Main.Succ y)) = Main.Pos (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt (Main.Pos x) (Main.Neg (Main.Succ y)) = Main.Neg (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt (Main.Neg x) (Main.Pos (Main.Succ y)) = Main.Neg (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt (Main.Neg x) (Main.Neg (Main.Succ y)) = Main.Pos (primDivNatS x (Main.Succ y)); 11.13/4.47 primQuotInt ww wx = Main.error; 11.13/4.47 11.13/4.47 properFractionFloat :: Float -> Tup2 MyInt Float; 11.13/4.47 properFractionFloat = floatProperFractionFloat; 11.13/4.47 11.13/4.47 quotMyInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 quotMyInt = primQuotInt; 11.13/4.47 11.13/4.47 srMyInt :: MyInt -> MyInt -> MyInt; 11.13/4.47 srMyInt = primMulInt; 11.13/4.47 11.13/4.47 stop :: MyBool -> a; 11.13/4.47 stop MyFalse = stop MyFalse; 11.13/4.47 11.13/4.47 truncateFloat :: Float -> MyInt; 11.13/4.47 truncateFloat x = truncateM x; 11.13/4.47 11.13/4.47 truncateM xu = truncateM0 xu (truncateVu6 xu); 11.13/4.47 11.13/4.47 truncateM0 xu (Tup2 m vv) = m; 11.13/4.47 11.13/4.47 truncateVu6 xu = properFractionFloat xu; 11.13/4.47 11.13/4.47 } 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (5) Narrow (SOUND) 11.13/4.47 Haskell To QDPs 11.13/4.47 11.13/4.47 digraph dp_graph { 11.13/4.47 node [outthreshold=100, inthreshold=100];1[label="fromEnumFloat",fontsize=16,color="grey",shape="box"];1 -> 3[label="",style="dashed", color="grey", weight=3]; 11.13/4.47 3[label="fromEnumFloat vy3",fontsize=16,color="black",shape="triangle"];3 -> 4[label="",style="solid", color="black", weight=3]; 11.13/4.47 4[label="truncateFloat vy3",fontsize=16,color="black",shape="box"];4 -> 5[label="",style="solid", color="black", weight=3]; 11.13/4.47 5[label="truncateM vy3",fontsize=16,color="black",shape="box"];5 -> 6[label="",style="solid", color="black", weight=3]; 11.13/4.47 6[label="truncateM0 vy3 (truncateVu6 vy3)",fontsize=16,color="black",shape="box"];6 -> 7[label="",style="solid", color="black", weight=3]; 11.13/4.47 7[label="truncateM0 vy3 (properFractionFloat vy3)",fontsize=16,color="black",shape="box"];7 -> 8[label="",style="solid", color="black", weight=3]; 11.13/4.47 8[label="truncateM0 vy3 (floatProperFractionFloat vy3)",fontsize=16,color="burlywood",shape="box"];283[label="vy3/Float vy30 vy31",fontsize=10,color="white",style="solid",shape="box"];8 -> 283[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 283 -> 9[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 9[label="truncateM0 (Float vy30 vy31) (floatProperFractionFloat (Float vy30 vy31))",fontsize=16,color="black",shape="box"];9 -> 10[label="",style="solid", color="black", weight=3]; 11.13/4.47 10[label="truncateM0 (Float vy30 vy31) (Tup2 (fromIntMyInt (quotMyInt vy30 vy31)) (msFloat (Float vy30 vy31) (fromIntFloat (quotMyInt vy30 vy31))))",fontsize=16,color="black",shape="box"];10 -> 11[label="",style="solid", color="black", weight=3]; 11.13/4.47 11[label="fromIntMyInt (quotMyInt vy30 vy31)",fontsize=16,color="black",shape="box"];11 -> 12[label="",style="solid", color="black", weight=3]; 11.13/4.47 12[label="quotMyInt vy30 vy31",fontsize=16,color="black",shape="box"];12 -> 13[label="",style="solid", color="black", weight=3]; 11.13/4.47 13[label="primQuotInt vy30 vy31",fontsize=16,color="burlywood",shape="box"];284[label="vy30/Pos vy300",fontsize=10,color="white",style="solid",shape="box"];13 -> 284[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 284 -> 14[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 285[label="vy30/Neg vy300",fontsize=10,color="white",style="solid",shape="box"];13 -> 285[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 285 -> 15[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 14[label="primQuotInt (Pos vy300) vy31",fontsize=16,color="burlywood",shape="box"];286[label="vy31/Pos vy310",fontsize=10,color="white",style="solid",shape="box"];14 -> 286[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 286 -> 16[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 287[label="vy31/Neg vy310",fontsize=10,color="white",style="solid",shape="box"];14 -> 287[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 287 -> 17[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 15[label="primQuotInt (Neg vy300) vy31",fontsize=16,color="burlywood",shape="box"];288[label="vy31/Pos vy310",fontsize=10,color="white",style="solid",shape="box"];15 -> 288[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 288 -> 18[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 289[label="vy31/Neg vy310",fontsize=10,color="white",style="solid",shape="box"];15 -> 289[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 289 -> 19[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 16[label="primQuotInt (Pos vy300) (Pos vy310)",fontsize=16,color="burlywood",shape="box"];290[label="vy310/Succ vy3100",fontsize=10,color="white",style="solid",shape="box"];16 -> 290[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 290 -> 20[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 291[label="vy310/Zero",fontsize=10,color="white",style="solid",shape="box"];16 -> 291[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 291 -> 21[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 17[label="primQuotInt (Pos vy300) (Neg vy310)",fontsize=16,color="burlywood",shape="box"];292[label="vy310/Succ vy3100",fontsize=10,color="white",style="solid",shape="box"];17 -> 292[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 292 -> 22[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 293[label="vy310/Zero",fontsize=10,color="white",style="solid",shape="box"];17 -> 293[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 293 -> 23[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 18[label="primQuotInt (Neg vy300) (Pos vy310)",fontsize=16,color="burlywood",shape="box"];294[label="vy310/Succ vy3100",fontsize=10,color="white",style="solid",shape="box"];18 -> 294[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 294 -> 24[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 295[label="vy310/Zero",fontsize=10,color="white",style="solid",shape="box"];18 -> 295[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 295 -> 25[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 19[label="primQuotInt (Neg vy300) (Neg vy310)",fontsize=16,color="burlywood",shape="box"];296[label="vy310/Succ vy3100",fontsize=10,color="white",style="solid",shape="box"];19 -> 296[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 296 -> 26[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 297[label="vy310/Zero",fontsize=10,color="white",style="solid",shape="box"];19 -> 297[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 297 -> 27[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 20[label="primQuotInt (Pos vy300) (Pos (Succ vy3100))",fontsize=16,color="black",shape="box"];20 -> 28[label="",style="solid", color="black", weight=3]; 11.13/4.47 21[label="primQuotInt (Pos vy300) (Pos Zero)",fontsize=16,color="black",shape="box"];21 -> 29[label="",style="solid", color="black", weight=3]; 11.13/4.47 22[label="primQuotInt (Pos vy300) (Neg (Succ vy3100))",fontsize=16,color="black",shape="box"];22 -> 30[label="",style="solid", color="black", weight=3]; 11.13/4.47 23[label="primQuotInt (Pos vy300) (Neg Zero)",fontsize=16,color="black",shape="box"];23 -> 31[label="",style="solid", color="black", weight=3]; 11.13/4.47 24[label="primQuotInt (Neg vy300) (Pos (Succ vy3100))",fontsize=16,color="black",shape="box"];24 -> 32[label="",style="solid", color="black", weight=3]; 11.13/4.47 25[label="primQuotInt (Neg vy300) (Pos Zero)",fontsize=16,color="black",shape="box"];25 -> 33[label="",style="solid", color="black", weight=3]; 11.13/4.47 26[label="primQuotInt (Neg vy300) (Neg (Succ vy3100))",fontsize=16,color="black",shape="box"];26 -> 34[label="",style="solid", color="black", weight=3]; 11.13/4.47 27[label="primQuotInt (Neg vy300) (Neg Zero)",fontsize=16,color="black",shape="box"];27 -> 35[label="",style="solid", color="black", weight=3]; 11.13/4.47 28[label="Pos (primDivNatS vy300 (Succ vy3100))",fontsize=16,color="green",shape="box"];28 -> 36[label="",style="dashed", color="green", weight=3]; 11.13/4.47 29[label="error",fontsize=16,color="black",shape="triangle"];29 -> 37[label="",style="solid", color="black", weight=3]; 11.13/4.47 30[label="Neg (primDivNatS vy300 (Succ vy3100))",fontsize=16,color="green",shape="box"];30 -> 38[label="",style="dashed", color="green", weight=3]; 11.13/4.47 31 -> 29[label="",style="dashed", color="red", weight=0]; 11.13/4.47 31[label="error",fontsize=16,color="magenta"];32[label="Neg (primDivNatS vy300 (Succ vy3100))",fontsize=16,color="green",shape="box"];32 -> 39[label="",style="dashed", color="green", weight=3]; 11.13/4.47 33 -> 29[label="",style="dashed", color="red", weight=0]; 11.13/4.47 33[label="error",fontsize=16,color="magenta"];34[label="Pos (primDivNatS vy300 (Succ vy3100))",fontsize=16,color="green",shape="box"];34 -> 40[label="",style="dashed", color="green", weight=3]; 11.13/4.47 35 -> 29[label="",style="dashed", color="red", weight=0]; 11.13/4.47 35[label="error",fontsize=16,color="magenta"];36[label="primDivNatS vy300 (Succ vy3100)",fontsize=16,color="burlywood",shape="triangle"];298[label="vy300/Succ vy3000",fontsize=10,color="white",style="solid",shape="box"];36 -> 298[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 298 -> 41[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 299[label="vy300/Zero",fontsize=10,color="white",style="solid",shape="box"];36 -> 299[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 299 -> 42[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 37[label="stop MyTrue",fontsize=16,color="black",shape="box"];37 -> 43[label="",style="solid", color="black", weight=3]; 11.13/4.47 38 -> 36[label="",style="dashed", color="red", weight=0]; 11.13/4.47 38[label="primDivNatS vy300 (Succ vy3100)",fontsize=16,color="magenta"];38 -> 44[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 39 -> 36[label="",style="dashed", color="red", weight=0]; 11.13/4.47 39[label="primDivNatS vy300 (Succ vy3100)",fontsize=16,color="magenta"];39 -> 45[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 40 -> 36[label="",style="dashed", color="red", weight=0]; 11.13/4.47 40[label="primDivNatS vy300 (Succ vy3100)",fontsize=16,color="magenta"];40 -> 46[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 40 -> 47[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 41[label="primDivNatS (Succ vy3000) (Succ vy3100)",fontsize=16,color="black",shape="box"];41 -> 48[label="",style="solid", color="black", weight=3]; 11.13/4.47 42[label="primDivNatS Zero (Succ vy3100)",fontsize=16,color="black",shape="box"];42 -> 49[label="",style="solid", color="black", weight=3]; 11.13/4.47 43[label="error []",fontsize=16,color="red",shape="box"];44[label="vy3100",fontsize=16,color="green",shape="box"];45[label="vy300",fontsize=16,color="green",shape="box"];46[label="vy300",fontsize=16,color="green",shape="box"];47[label="vy3100",fontsize=16,color="green",shape="box"];48[label="primDivNatS0 vy3000 vy3100 (primGEqNatS vy3000 vy3100)",fontsize=16,color="burlywood",shape="box"];300[label="vy3000/Succ vy30000",fontsize=10,color="white",style="solid",shape="box"];48 -> 300[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 300 -> 50[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 301[label="vy3000/Zero",fontsize=10,color="white",style="solid",shape="box"];48 -> 301[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 301 -> 51[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 49[label="Zero",fontsize=16,color="green",shape="box"];50[label="primDivNatS0 (Succ vy30000) vy3100 (primGEqNatS (Succ vy30000) vy3100)",fontsize=16,color="burlywood",shape="box"];302[label="vy3100/Succ vy31000",fontsize=10,color="white",style="solid",shape="box"];50 -> 302[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 302 -> 52[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 303[label="vy3100/Zero",fontsize=10,color="white",style="solid",shape="box"];50 -> 303[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 303 -> 53[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 51[label="primDivNatS0 Zero vy3100 (primGEqNatS Zero vy3100)",fontsize=16,color="burlywood",shape="box"];304[label="vy3100/Succ vy31000",fontsize=10,color="white",style="solid",shape="box"];51 -> 304[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 304 -> 54[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 305[label="vy3100/Zero",fontsize=10,color="white",style="solid",shape="box"];51 -> 305[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 305 -> 55[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 52[label="primDivNatS0 (Succ vy30000) (Succ vy31000) (primGEqNatS (Succ vy30000) (Succ vy31000))",fontsize=16,color="black",shape="box"];52 -> 56[label="",style="solid", color="black", weight=3]; 11.13/4.47 53[label="primDivNatS0 (Succ vy30000) Zero (primGEqNatS (Succ vy30000) Zero)",fontsize=16,color="black",shape="box"];53 -> 57[label="",style="solid", color="black", weight=3]; 11.13/4.47 54[label="primDivNatS0 Zero (Succ vy31000) (primGEqNatS Zero (Succ vy31000))",fontsize=16,color="black",shape="box"];54 -> 58[label="",style="solid", color="black", weight=3]; 11.13/4.47 55[label="primDivNatS0 Zero Zero (primGEqNatS Zero Zero)",fontsize=16,color="black",shape="box"];55 -> 59[label="",style="solid", color="black", weight=3]; 11.13/4.47 56 -> 220[label="",style="dashed", color="red", weight=0]; 11.13/4.47 56[label="primDivNatS0 (Succ vy30000) (Succ vy31000) (primGEqNatS vy30000 vy31000)",fontsize=16,color="magenta"];56 -> 221[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 56 -> 222[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 56 -> 223[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 56 -> 224[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 57[label="primDivNatS0 (Succ vy30000) Zero MyTrue",fontsize=16,color="black",shape="box"];57 -> 62[label="",style="solid", color="black", weight=3]; 11.13/4.47 58[label="primDivNatS0 Zero (Succ vy31000) MyFalse",fontsize=16,color="black",shape="box"];58 -> 63[label="",style="solid", color="black", weight=3]; 11.13/4.47 59[label="primDivNatS0 Zero Zero MyTrue",fontsize=16,color="black",shape="box"];59 -> 64[label="",style="solid", color="black", weight=3]; 11.13/4.47 221[label="vy30000",fontsize=16,color="green",shape="box"];222[label="vy30000",fontsize=16,color="green",shape="box"];223[label="vy31000",fontsize=16,color="green",shape="box"];224[label="vy31000",fontsize=16,color="green",shape="box"];220[label="primDivNatS0 (Succ vy20) (Succ vy21) (primGEqNatS vy22 vy23)",fontsize=16,color="burlywood",shape="triangle"];306[label="vy22/Succ vy220",fontsize=10,color="white",style="solid",shape="box"];220 -> 306[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 306 -> 253[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 307[label="vy22/Zero",fontsize=10,color="white",style="solid",shape="box"];220 -> 307[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 307 -> 254[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 62[label="Succ (primDivNatS (primMinusNatS (Succ vy30000) Zero) (Succ Zero))",fontsize=16,color="green",shape="box"];62 -> 69[label="",style="dashed", color="green", weight=3]; 11.13/4.47 63[label="Zero",fontsize=16,color="green",shape="box"];64[label="Succ (primDivNatS (primMinusNatS Zero Zero) (Succ Zero))",fontsize=16,color="green",shape="box"];64 -> 70[label="",style="dashed", color="green", weight=3]; 11.13/4.47 253[label="primDivNatS0 (Succ vy20) (Succ vy21) (primGEqNatS (Succ vy220) vy23)",fontsize=16,color="burlywood",shape="box"];308[label="vy23/Succ vy230",fontsize=10,color="white",style="solid",shape="box"];253 -> 308[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 308 -> 255[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 309[label="vy23/Zero",fontsize=10,color="white",style="solid",shape="box"];253 -> 309[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 309 -> 256[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 254[label="primDivNatS0 (Succ vy20) (Succ vy21) (primGEqNatS Zero vy23)",fontsize=16,color="burlywood",shape="box"];310[label="vy23/Succ vy230",fontsize=10,color="white",style="solid",shape="box"];254 -> 310[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 310 -> 257[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 311[label="vy23/Zero",fontsize=10,color="white",style="solid",shape="box"];254 -> 311[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 311 -> 258[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 69 -> 36[label="",style="dashed", color="red", weight=0]; 11.13/4.47 69[label="primDivNatS (primMinusNatS (Succ vy30000) Zero) (Succ Zero)",fontsize=16,color="magenta"];69 -> 75[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 69 -> 76[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 70 -> 36[label="",style="dashed", color="red", weight=0]; 11.13/4.47 70[label="primDivNatS (primMinusNatS Zero Zero) (Succ Zero)",fontsize=16,color="magenta"];70 -> 77[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 70 -> 78[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 255[label="primDivNatS0 (Succ vy20) (Succ vy21) (primGEqNatS (Succ vy220) (Succ vy230))",fontsize=16,color="black",shape="box"];255 -> 259[label="",style="solid", color="black", weight=3]; 11.13/4.47 256[label="primDivNatS0 (Succ vy20) (Succ vy21) (primGEqNatS (Succ vy220) Zero)",fontsize=16,color="black",shape="box"];256 -> 260[label="",style="solid", color="black", weight=3]; 11.13/4.47 257[label="primDivNatS0 (Succ vy20) (Succ vy21) (primGEqNatS Zero (Succ vy230))",fontsize=16,color="black",shape="box"];257 -> 261[label="",style="solid", color="black", weight=3]; 11.13/4.47 258[label="primDivNatS0 (Succ vy20) (Succ vy21) (primGEqNatS Zero Zero)",fontsize=16,color="black",shape="box"];258 -> 262[label="",style="solid", color="black", weight=3]; 11.13/4.47 75[label="primMinusNatS (Succ vy30000) Zero",fontsize=16,color="black",shape="triangle"];75 -> 84[label="",style="solid", color="black", weight=3]; 11.13/4.47 76[label="Zero",fontsize=16,color="green",shape="box"];77[label="primMinusNatS Zero Zero",fontsize=16,color="black",shape="triangle"];77 -> 85[label="",style="solid", color="black", weight=3]; 11.13/4.47 78[label="Zero",fontsize=16,color="green",shape="box"];259 -> 220[label="",style="dashed", color="red", weight=0]; 11.13/4.47 259[label="primDivNatS0 (Succ vy20) (Succ vy21) (primGEqNatS vy220 vy230)",fontsize=16,color="magenta"];259 -> 263[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 259 -> 264[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 260[label="primDivNatS0 (Succ vy20) (Succ vy21) MyTrue",fontsize=16,color="black",shape="triangle"];260 -> 265[label="",style="solid", color="black", weight=3]; 11.13/4.47 261[label="primDivNatS0 (Succ vy20) (Succ vy21) MyFalse",fontsize=16,color="black",shape="box"];261 -> 266[label="",style="solid", color="black", weight=3]; 11.13/4.47 262 -> 260[label="",style="dashed", color="red", weight=0]; 11.13/4.47 262[label="primDivNatS0 (Succ vy20) (Succ vy21) MyTrue",fontsize=16,color="magenta"];84[label="Succ vy30000",fontsize=16,color="green",shape="box"];85[label="Zero",fontsize=16,color="green",shape="box"];263[label="vy220",fontsize=16,color="green",shape="box"];264[label="vy230",fontsize=16,color="green",shape="box"];265[label="Succ (primDivNatS (primMinusNatS (Succ vy20) (Succ vy21)) (Succ (Succ vy21)))",fontsize=16,color="green",shape="box"];265 -> 267[label="",style="dashed", color="green", weight=3]; 11.13/4.47 266[label="Zero",fontsize=16,color="green",shape="box"];267 -> 36[label="",style="dashed", color="red", weight=0]; 11.13/4.47 267[label="primDivNatS (primMinusNatS (Succ vy20) (Succ vy21)) (Succ (Succ vy21))",fontsize=16,color="magenta"];267 -> 268[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 267 -> 269[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 268[label="primMinusNatS (Succ vy20) (Succ vy21)",fontsize=16,color="black",shape="box"];268 -> 270[label="",style="solid", color="black", weight=3]; 11.13/4.47 269[label="Succ vy21",fontsize=16,color="green",shape="box"];270[label="primMinusNatS vy20 vy21",fontsize=16,color="burlywood",shape="triangle"];312[label="vy20/Succ vy200",fontsize=10,color="white",style="solid",shape="box"];270 -> 312[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 312 -> 271[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 313[label="vy20/Zero",fontsize=10,color="white",style="solid",shape="box"];270 -> 313[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 313 -> 272[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 271[label="primMinusNatS (Succ vy200) vy21",fontsize=16,color="burlywood",shape="box"];314[label="vy21/Succ vy210",fontsize=10,color="white",style="solid",shape="box"];271 -> 314[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 314 -> 273[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 315[label="vy21/Zero",fontsize=10,color="white",style="solid",shape="box"];271 -> 315[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 315 -> 274[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 272[label="primMinusNatS Zero vy21",fontsize=16,color="burlywood",shape="box"];316[label="vy21/Succ vy210",fontsize=10,color="white",style="solid",shape="box"];272 -> 316[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 316 -> 275[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 317[label="vy21/Zero",fontsize=10,color="white",style="solid",shape="box"];272 -> 317[label="",style="solid", color="burlywood", weight=9]; 11.13/4.47 317 -> 276[label="",style="solid", color="burlywood", weight=3]; 11.13/4.47 273[label="primMinusNatS (Succ vy200) (Succ vy210)",fontsize=16,color="black",shape="box"];273 -> 277[label="",style="solid", color="black", weight=3]; 11.13/4.47 274[label="primMinusNatS (Succ vy200) Zero",fontsize=16,color="black",shape="box"];274 -> 278[label="",style="solid", color="black", weight=3]; 11.13/4.47 275[label="primMinusNatS Zero (Succ vy210)",fontsize=16,color="black",shape="box"];275 -> 279[label="",style="solid", color="black", weight=3]; 11.13/4.47 276[label="primMinusNatS Zero Zero",fontsize=16,color="black",shape="box"];276 -> 280[label="",style="solid", color="black", weight=3]; 11.13/4.47 277 -> 270[label="",style="dashed", color="red", weight=0]; 11.13/4.47 277[label="primMinusNatS vy200 vy210",fontsize=16,color="magenta"];277 -> 281[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 277 -> 282[label="",style="dashed", color="magenta", weight=3]; 11.13/4.47 278[label="Succ vy200",fontsize=16,color="green",shape="box"];279[label="Zero",fontsize=16,color="green",shape="box"];280[label="Zero",fontsize=16,color="green",shape="box"];281[label="vy200",fontsize=16,color="green",shape="box"];282[label="vy210",fontsize=16,color="green",shape="box"];} 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (6) 11.13/4.47 Complex Obligation (AND) 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (7) 11.13/4.47 Obligation: 11.13/4.47 Q DP problem: 11.13/4.47 The TRS P consists of the following rules: 11.13/4.47 11.13/4.47 new_primMinusNatS(Main.Succ(vy200), Main.Succ(vy210)) -> new_primMinusNatS(vy200, vy210) 11.13/4.47 11.13/4.47 R is empty. 11.13/4.47 Q is empty. 11.13/4.47 We have to consider all minimal (P,Q,R)-chains. 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (8) QDPSizeChangeProof (EQUIVALENT) 11.13/4.47 By using the subterm criterion [SUBTERM_CRITERION] together with the size-change analysis [AAECC05] we have proven that there are no infinite chains for this DP problem. 11.13/4.47 11.13/4.47 From the DPs we obtained the following set of size-change graphs: 11.13/4.47 *new_primMinusNatS(Main.Succ(vy200), Main.Succ(vy210)) -> new_primMinusNatS(vy200, vy210) 11.13/4.47 The graph contains the following edges 1 > 1, 2 > 2 11.13/4.47 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (9) 11.13/4.47 YES 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (10) 11.13/4.47 Obligation: 11.13/4.47 Q DP problem: 11.13/4.47 The TRS P consists of the following rules: 11.13/4.47 11.13/4.47 new_primDivNatS(Main.Succ(Main.Succ(vy30000)), Main.Zero) -> new_primDivNatS(new_primMinusNatS1(vy30000), Main.Zero) 11.13/4.47 new_primDivNatS0(vy20, vy21, Main.Succ(vy220), Main.Succ(vy230)) -> new_primDivNatS0(vy20, vy21, vy220, vy230) 11.13/4.47 new_primDivNatS00(vy20, vy21) -> new_primDivNatS(new_primMinusNatS0(vy20, vy21), Main.Succ(vy21)) 11.13/4.47 new_primDivNatS0(vy20, vy21, Main.Zero, Main.Zero) -> new_primDivNatS00(vy20, vy21) 11.13/4.47 new_primDivNatS(Main.Succ(Main.Succ(vy30000)), Main.Succ(vy31000)) -> new_primDivNatS0(vy30000, vy31000, vy30000, vy31000) 11.13/4.47 new_primDivNatS0(vy20, vy21, Main.Succ(vy220), Main.Zero) -> new_primDivNatS(new_primMinusNatS0(vy20, vy21), Main.Succ(vy21)) 11.13/4.47 new_primDivNatS(Main.Succ(Main.Zero), Main.Zero) -> new_primDivNatS(new_primMinusNatS2, Main.Zero) 11.13/4.47 11.13/4.47 The TRS R consists of the following rules: 11.13/4.47 11.13/4.47 new_primMinusNatS0(Main.Succ(vy200), Main.Succ(vy210)) -> new_primMinusNatS0(vy200, vy210) 11.13/4.47 new_primMinusNatS0(Main.Succ(vy200), Main.Zero) -> Main.Succ(vy200) 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Zero) -> Main.Zero 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Succ(vy210)) -> Main.Zero 11.13/4.47 new_primMinusNatS2 -> Main.Zero 11.13/4.47 new_primMinusNatS1(vy30000) -> Main.Succ(vy30000) 11.13/4.47 11.13/4.47 The set Q consists of the following terms: 11.13/4.47 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Zero) 11.13/4.47 new_primMinusNatS2 11.13/4.47 new_primMinusNatS0(Main.Succ(x0), Main.Succ(x1)) 11.13/4.47 new_primMinusNatS0(Main.Succ(x0), Main.Zero) 11.13/4.47 new_primMinusNatS1(x0) 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Succ(x0)) 11.13/4.47 11.13/4.47 We have to consider all minimal (P,Q,R)-chains. 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (11) DependencyGraphProof (EQUIVALENT) 11.13/4.47 The approximation of the Dependency Graph [LPAR04,FROCOS05,EDGSTAR] contains 2 SCCs with 1 less node. 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (12) 11.13/4.47 Complex Obligation (AND) 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (13) 11.13/4.47 Obligation: 11.13/4.47 Q DP problem: 11.13/4.47 The TRS P consists of the following rules: 11.13/4.47 11.13/4.47 new_primDivNatS0(vy20, vy21, Main.Zero, Main.Zero) -> new_primDivNatS00(vy20, vy21) 11.13/4.47 new_primDivNatS00(vy20, vy21) -> new_primDivNatS(new_primMinusNatS0(vy20, vy21), Main.Succ(vy21)) 11.13/4.47 new_primDivNatS(Main.Succ(Main.Succ(vy30000)), Main.Succ(vy31000)) -> new_primDivNatS0(vy30000, vy31000, vy30000, vy31000) 11.13/4.47 new_primDivNatS0(vy20, vy21, Main.Succ(vy220), Main.Succ(vy230)) -> new_primDivNatS0(vy20, vy21, vy220, vy230) 11.13/4.47 new_primDivNatS0(vy20, vy21, Main.Succ(vy220), Main.Zero) -> new_primDivNatS(new_primMinusNatS0(vy20, vy21), Main.Succ(vy21)) 11.13/4.47 11.13/4.47 The TRS R consists of the following rules: 11.13/4.47 11.13/4.47 new_primMinusNatS0(Main.Succ(vy200), Main.Succ(vy210)) -> new_primMinusNatS0(vy200, vy210) 11.13/4.47 new_primMinusNatS0(Main.Succ(vy200), Main.Zero) -> Main.Succ(vy200) 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Zero) -> Main.Zero 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Succ(vy210)) -> Main.Zero 11.13/4.47 new_primMinusNatS2 -> Main.Zero 11.13/4.47 new_primMinusNatS1(vy30000) -> Main.Succ(vy30000) 11.13/4.47 11.13/4.47 The set Q consists of the following terms: 11.13/4.47 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Zero) 11.13/4.47 new_primMinusNatS2 11.13/4.47 new_primMinusNatS0(Main.Succ(x0), Main.Succ(x1)) 11.13/4.47 new_primMinusNatS0(Main.Succ(x0), Main.Zero) 11.13/4.47 new_primMinusNatS1(x0) 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Succ(x0)) 11.13/4.47 11.13/4.47 We have to consider all minimal (P,Q,R)-chains. 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (14) QDPSizeChangeProof (EQUIVALENT) 11.13/4.47 We used the following order together with the size-change analysis [AAECC05] to show that there are no infinite chains for this DP problem. 11.13/4.47 11.13/4.47 Order:Polynomial interpretation [POLO]: 11.13/4.47 11.13/4.47 POL(Main.Succ(x_1)) = 1 + x_1 11.13/4.47 POL(Main.Zero) = 1 11.13/4.47 POL(new_primMinusNatS0(x_1, x_2)) = x_1 11.13/4.47 11.13/4.47 11.13/4.47 11.13/4.47 11.13/4.47 From the DPs we obtained the following set of size-change graphs: 11.13/4.47 *new_primDivNatS00(vy20, vy21) -> new_primDivNatS(new_primMinusNatS0(vy20, vy21), Main.Succ(vy21)) (allowed arguments on rhs = {1, 2}) 11.13/4.47 The graph contains the following edges 1 >= 1 11.13/4.47 11.13/4.47 11.13/4.47 *new_primDivNatS(Main.Succ(Main.Succ(vy30000)), Main.Succ(vy31000)) -> new_primDivNatS0(vy30000, vy31000, vy30000, vy31000) (allowed arguments on rhs = {1, 2, 3, 4}) 11.13/4.47 The graph contains the following edges 1 > 1, 2 > 2, 1 > 3, 2 > 4 11.13/4.47 11.13/4.47 11.13/4.47 *new_primDivNatS0(vy20, vy21, Main.Succ(vy220), Main.Succ(vy230)) -> new_primDivNatS0(vy20, vy21, vy220, vy230) (allowed arguments on rhs = {1, 2, 3, 4}) 11.13/4.47 The graph contains the following edges 1 >= 1, 2 >= 2, 3 > 3, 4 > 4 11.13/4.47 11.13/4.47 11.13/4.47 *new_primDivNatS0(vy20, vy21, Main.Zero, Main.Zero) -> new_primDivNatS00(vy20, vy21) (allowed arguments on rhs = {1, 2}) 11.13/4.47 The graph contains the following edges 1 >= 1, 2 >= 2 11.13/4.47 11.13/4.47 11.13/4.47 *new_primDivNatS0(vy20, vy21, Main.Succ(vy220), Main.Zero) -> new_primDivNatS(new_primMinusNatS0(vy20, vy21), Main.Succ(vy21)) (allowed arguments on rhs = {1, 2}) 11.13/4.47 The graph contains the following edges 1 >= 1 11.13/4.47 11.13/4.47 11.13/4.47 11.13/4.47 We oriented the following set of usable rules [AAECC05,FROCOS05]. 11.13/4.47 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Zero) -> Main.Zero 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Succ(vy210)) -> Main.Zero 11.13/4.47 new_primMinusNatS0(Main.Succ(vy200), Main.Zero) -> Main.Succ(vy200) 11.13/4.47 new_primMinusNatS0(Main.Succ(vy200), Main.Succ(vy210)) -> new_primMinusNatS0(vy200, vy210) 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (15) 11.13/4.47 YES 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (16) 11.13/4.47 Obligation: 11.13/4.47 Q DP problem: 11.13/4.47 The TRS P consists of the following rules: 11.13/4.47 11.13/4.47 new_primDivNatS(Main.Succ(Main.Succ(vy30000)), Main.Zero) -> new_primDivNatS(new_primMinusNatS1(vy30000), Main.Zero) 11.13/4.47 11.13/4.47 The TRS R consists of the following rules: 11.13/4.47 11.13/4.47 new_primMinusNatS0(Main.Succ(vy200), Main.Succ(vy210)) -> new_primMinusNatS0(vy200, vy210) 11.13/4.47 new_primMinusNatS0(Main.Succ(vy200), Main.Zero) -> Main.Succ(vy200) 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Zero) -> Main.Zero 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Succ(vy210)) -> Main.Zero 11.13/4.47 new_primMinusNatS2 -> Main.Zero 11.13/4.47 new_primMinusNatS1(vy30000) -> Main.Succ(vy30000) 11.13/4.47 11.13/4.47 The set Q consists of the following terms: 11.13/4.47 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Zero) 11.13/4.47 new_primMinusNatS2 11.13/4.47 new_primMinusNatS0(Main.Succ(x0), Main.Succ(x1)) 11.13/4.47 new_primMinusNatS0(Main.Succ(x0), Main.Zero) 11.13/4.47 new_primMinusNatS1(x0) 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Succ(x0)) 11.13/4.47 11.13/4.47 We have to consider all minimal (P,Q,R)-chains. 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (17) MRRProof (EQUIVALENT) 11.13/4.47 By using the rule removal processor [LPAR04] with the following ordering, at least one Dependency Pair or term rewrite system rule of this QDP problem can be strictly oriented. 11.13/4.47 11.13/4.47 Strictly oriented dependency pairs: 11.13/4.47 11.13/4.47 new_primDivNatS(Main.Succ(Main.Succ(vy30000)), Main.Zero) -> new_primDivNatS(new_primMinusNatS1(vy30000), Main.Zero) 11.13/4.47 11.13/4.47 Strictly oriented rules of the TRS R: 11.13/4.47 11.13/4.47 new_primMinusNatS0(Main.Succ(vy200), Main.Succ(vy210)) -> new_primMinusNatS0(vy200, vy210) 11.13/4.47 new_primMinusNatS0(Main.Succ(vy200), Main.Zero) -> Main.Succ(vy200) 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Zero) -> Main.Zero 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Succ(vy210)) -> Main.Zero 11.13/4.47 11.13/4.47 Used ordering: Polynomial interpretation [POLO]: 11.13/4.47 11.13/4.47 POL(Main.Succ(x_1)) = 1 + x_1 11.13/4.47 POL(Main.Zero) = 2 11.13/4.47 POL(new_primDivNatS(x_1, x_2)) = x_1 + x_2 11.13/4.47 POL(new_primMinusNatS0(x_1, x_2)) = 1 + 2*x_1 + 2*x_2 11.13/4.47 POL(new_primMinusNatS1(x_1)) = 1 + x_1 11.13/4.47 POL(new_primMinusNatS2) = 2 11.13/4.47 11.13/4.47 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (18) 11.13/4.47 Obligation: 11.13/4.47 Q DP problem: 11.13/4.47 P is empty. 11.13/4.47 The TRS R consists of the following rules: 11.13/4.47 11.13/4.47 new_primMinusNatS2 -> Main.Zero 11.13/4.47 new_primMinusNatS1(vy30000) -> Main.Succ(vy30000) 11.13/4.47 11.13/4.47 The set Q consists of the following terms: 11.13/4.47 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Zero) 11.13/4.47 new_primMinusNatS2 11.13/4.47 new_primMinusNatS0(Main.Succ(x0), Main.Succ(x1)) 11.13/4.47 new_primMinusNatS0(Main.Succ(x0), Main.Zero) 11.13/4.47 new_primMinusNatS1(x0) 11.13/4.47 new_primMinusNatS0(Main.Zero, Main.Succ(x0)) 11.13/4.47 11.13/4.47 We have to consider all minimal (P,Q,R)-chains. 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (19) PisEmptyProof (EQUIVALENT) 11.13/4.47 The TRS P is empty. Hence, there is no (P,Q,R) chain. 11.13/4.47 ---------------------------------------- 11.13/4.47 11.13/4.47 (20) 11.13/4.47 YES 11.27/5.90 EOF