19.87/10.45 YES 22.70/11.21 proof of /export/starexec/sandbox/benchmark/theBenchmark.hs 22.70/11.21 # AProVE Commit ID: 48fb2092695e11cc9f56e44b17a92a5f88ffb256 marcel 20180622 unpublished dirty 22.70/11.21 22.70/11.21 22.70/11.21 H-Termination with start terms of the given HASKELL could be proven: 22.70/11.21 22.70/11.21 (0) HASKELL 22.70/11.21 (1) BR [EQUIVALENT, 0 ms] 22.70/11.21 (2) HASKELL 22.70/11.21 (3) COR [EQUIVALENT, 0 ms] 22.70/11.21 (4) HASKELL 22.70/11.21 (5) Narrow [SOUND, 0 ms] 22.70/11.21 (6) AND 22.70/11.21 (7) QDP 22.70/11.21 (8) QDPSizeChangeProof [EQUIVALENT, 0 ms] 22.70/11.21 (9) YES 22.70/11.21 (10) QDP 22.70/11.21 (11) QDPSizeChangeProof [EQUIVALENT, 0 ms] 22.70/11.21 (12) YES 22.70/11.21 (13) QDP 22.70/11.21 (14) QDPSizeChangeProof [EQUIVALENT, 0 ms] 22.70/11.21 (15) YES 22.70/11.21 (16) QDP 22.70/11.21 (17) QDPSizeChangeProof [EQUIVALENT, 0 ms] 22.70/11.21 (18) YES 22.70/11.21 (19) QDP 22.70/11.21 (20) QDPSizeChangeProof [EQUIVALENT, 0 ms] 22.70/11.21 (21) YES 22.70/11.21 (22) QDP 22.70/11.21 (23) QDPSizeChangeProof [EQUIVALENT, 0 ms] 22.70/11.21 (24) YES 22.70/11.21 (25) QDP 22.70/11.21 (26) QDPSizeChangeProof [EQUIVALENT, 0 ms] 22.70/11.21 (27) YES 22.70/11.21 (28) QDP 22.70/11.21 (29) QDPSizeChangeProof [EQUIVALENT, 0 ms] 22.70/11.21 (30) YES 22.70/11.21 (31) QDP 22.70/11.21 (32) QDPSizeChangeProof [EQUIVALENT, 0 ms] 22.70/11.21 (33) YES 22.70/11.21 22.70/11.21 22.70/11.21 ---------------------------------------- 22.70/11.21 22.70/11.21 (0) 22.70/11.21 Obligation: 22.70/11.21 mainModule Main 22.70/11.21 module Main where { 22.70/11.21 import qualified Prelude; 22.70/11.21 data Main.Char = Char MyInt ; 22.70/11.21 22.70/11.21 data MyBool = MyTrue | MyFalse ; 22.70/11.21 22.70/11.21 data MyInt = Pos Main.Nat | Neg Main.Nat ; 22.70/11.21 22.70/11.21 data Main.Nat = Succ Main.Nat | Zero ; 22.70/11.21 22.70/11.21 data Ordering = LT | EQ | GT ; 22.70/11.21 22.70/11.21 asAs :: MyBool -> MyBool -> MyBool; 22.70/11.21 asAs MyFalse x = MyFalse; 22.70/11.21 asAs MyTrue x = x; 22.70/11.21 22.70/11.21 compareChar :: Main.Char -> Main.Char -> Ordering; 22.70/11.21 compareChar = primCmpChar; 22.70/11.21 22.70/11.21 esEsOrdering :: Ordering -> Ordering -> MyBool; 22.70/11.21 esEsOrdering LT LT = MyTrue; 22.70/11.21 esEsOrdering LT EQ = MyFalse; 22.70/11.21 esEsOrdering LT GT = MyFalse; 22.70/11.21 esEsOrdering EQ LT = MyFalse; 22.70/11.21 esEsOrdering EQ EQ = MyTrue; 22.70/11.21 esEsOrdering EQ GT = MyFalse; 22.70/11.21 esEsOrdering GT LT = MyFalse; 22.70/11.21 esEsOrdering GT EQ = MyFalse; 22.70/11.21 esEsOrdering GT GT = MyTrue; 22.70/11.21 22.70/11.21 fromEnumChar :: Main.Char -> MyInt; 22.70/11.21 fromEnumChar = primCharToInt; 22.70/11.21 22.70/11.21 fsEsOrdering :: Ordering -> Ordering -> MyBool; 22.70/11.21 fsEsOrdering x y = not (esEsOrdering x y); 22.70/11.21 22.70/11.21 gtEsChar :: Main.Char -> Main.Char -> MyBool; 22.70/11.21 gtEsChar x y = fsEsOrdering (compareChar x y) LT; 22.70/11.21 22.70/11.21 isUpper :: Main.Char -> MyBool; 22.70/11.21 isUpper c = pePe (asAs (gtEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (pePe (asAs (gtEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (asAs (gtEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); 22.70/11.21 22.70/11.21 ltEsChar :: Main.Char -> Main.Char -> MyBool; 22.70/11.21 ltEsChar x y = fsEsOrdering (compareChar x y) GT; 22.70/11.21 22.70/11.21 msMyInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 msMyInt = primMinusInt; 22.70/11.21 22.70/11.21 not :: MyBool -> MyBool; 22.70/11.21 not MyTrue = MyFalse; 22.70/11.21 not MyFalse = MyTrue; 22.70/11.21 22.70/11.21 otherwise :: MyBool; 22.70/11.21 otherwise = MyTrue; 22.70/11.21 22.70/11.21 pePe :: MyBool -> MyBool -> MyBool; 22.70/11.21 pePe MyFalse x = x; 22.70/11.21 pePe MyTrue x = MyTrue; 22.70/11.21 22.70/11.21 primCharToInt :: Main.Char -> MyInt; 22.70/11.21 primCharToInt (Main.Char x) = x; 22.70/11.21 22.70/11.21 primCmpChar :: Main.Char -> Main.Char -> Ordering; 22.70/11.21 primCmpChar (Main.Char x) (Main.Char y) = primCmpInt x y; 22.70/11.21 22.70/11.21 primCmpInt :: MyInt -> MyInt -> Ordering; 22.70/11.21 primCmpInt (Main.Pos Main.Zero) (Main.Pos Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Pos Main.Zero) (Main.Neg Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Neg Main.Zero) (Main.Pos Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Neg Main.Zero) (Main.Neg Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Pos x) (Main.Pos y) = primCmpNat x y; 22.70/11.21 primCmpInt (Main.Pos x) (Main.Neg y) = GT; 22.70/11.21 primCmpInt (Main.Neg x) (Main.Pos y) = LT; 22.70/11.21 primCmpInt (Main.Neg x) (Main.Neg y) = primCmpNat y x; 22.70/11.21 22.70/11.21 primCmpNat :: Main.Nat -> Main.Nat -> Ordering; 22.70/11.21 primCmpNat Main.Zero Main.Zero = EQ; 22.70/11.21 primCmpNat Main.Zero (Main.Succ y) = LT; 22.70/11.21 primCmpNat (Main.Succ x) Main.Zero = GT; 22.70/11.21 primCmpNat (Main.Succ x) (Main.Succ y) = primCmpNat x y; 22.70/11.21 22.70/11.21 primIntToChar :: MyInt -> Main.Char; 22.70/11.21 primIntToChar x = Main.Char x; 22.70/11.21 22.70/11.21 primMinusInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 primMinusInt (Main.Pos x) (Main.Neg y) = Main.Pos (primPlusNat x y); 22.70/11.21 primMinusInt (Main.Neg x) (Main.Pos y) = Main.Neg (primPlusNat x y); 22.70/11.21 primMinusInt (Main.Neg x) (Main.Neg y) = primMinusNat y x; 22.70/11.21 primMinusInt (Main.Pos x) (Main.Pos y) = primMinusNat x y; 22.70/11.21 22.70/11.21 primMinusNat :: Main.Nat -> Main.Nat -> MyInt; 22.70/11.21 primMinusNat Main.Zero Main.Zero = Main.Pos Main.Zero; 22.70/11.21 primMinusNat Main.Zero (Main.Succ y) = Main.Neg (Main.Succ y); 22.70/11.21 primMinusNat (Main.Succ x) Main.Zero = Main.Pos (Main.Succ x); 22.70/11.21 primMinusNat (Main.Succ x) (Main.Succ y) = primMinusNat x y; 22.70/11.21 22.70/11.21 primPlusInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 primPlusInt (Main.Pos x) (Main.Neg y) = primMinusNat x y; 22.70/11.21 primPlusInt (Main.Neg x) (Main.Pos y) = primMinusNat y x; 22.70/11.21 primPlusInt (Main.Neg x) (Main.Neg y) = Main.Neg (primPlusNat x y); 22.70/11.21 primPlusInt (Main.Pos x) (Main.Pos y) = Main.Pos (primPlusNat x y); 22.70/11.21 22.70/11.21 primPlusNat :: Main.Nat -> Main.Nat -> Main.Nat; 22.70/11.21 primPlusNat Main.Zero Main.Zero = Main.Zero; 22.70/11.21 primPlusNat Main.Zero (Main.Succ y) = Main.Succ y; 22.70/11.21 primPlusNat (Main.Succ x) Main.Zero = Main.Succ x; 22.70/11.21 primPlusNat (Main.Succ x) (Main.Succ y) = Main.Succ (Main.Succ (primPlusNat x y)); 22.70/11.21 22.70/11.21 psMyInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 psMyInt = primPlusInt; 22.70/11.21 22.70/11.21 toEnumChar :: MyInt -> Main.Char; 22.70/11.21 toEnumChar = primIntToChar; 22.70/11.21 22.70/11.21 toLower :: Main.Char -> Main.Char; 22.70/11.21 toLower c = toLower2 c; 22.70/11.21 22.70/11.21 toLower0 c MyTrue = c; 22.70/11.21 22.70/11.21 toLower1 c MyTrue = toEnumChar (psMyInt (msMyInt (fromEnumChar c) (fromEnumChar (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (fromEnumChar (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); 22.70/11.21 toLower1 c MyFalse = toLower0 c otherwise; 22.70/11.21 22.70/11.21 toLower2 c = toLower1 c (isUpper c); 22.70/11.21 22.70/11.21 } 22.70/11.21 22.70/11.21 ---------------------------------------- 22.70/11.21 22.70/11.21 (1) BR (EQUIVALENT) 22.70/11.21 Replaced joker patterns by fresh variables and removed binding patterns. 22.70/11.21 ---------------------------------------- 22.70/11.21 22.70/11.21 (2) 22.70/11.21 Obligation: 22.70/11.21 mainModule Main 22.70/11.21 module Main where { 22.70/11.21 import qualified Prelude; 22.70/11.21 data Main.Char = Char MyInt ; 22.70/11.21 22.70/11.21 data MyBool = MyTrue | MyFalse ; 22.70/11.21 22.70/11.21 data MyInt = Pos Main.Nat | Neg Main.Nat ; 22.70/11.21 22.70/11.21 data Main.Nat = Succ Main.Nat | Zero ; 22.70/11.21 22.70/11.21 data Ordering = LT | EQ | GT ; 22.70/11.21 22.70/11.21 asAs :: MyBool -> MyBool -> MyBool; 22.70/11.21 asAs MyFalse x = MyFalse; 22.70/11.21 asAs MyTrue x = x; 22.70/11.21 22.70/11.21 compareChar :: Main.Char -> Main.Char -> Ordering; 22.70/11.21 compareChar = primCmpChar; 22.70/11.21 22.70/11.21 esEsOrdering :: Ordering -> Ordering -> MyBool; 22.70/11.21 esEsOrdering LT LT = MyTrue; 22.70/11.21 esEsOrdering LT EQ = MyFalse; 22.70/11.21 esEsOrdering LT GT = MyFalse; 22.70/11.21 esEsOrdering EQ LT = MyFalse; 22.70/11.21 esEsOrdering EQ EQ = MyTrue; 22.70/11.21 esEsOrdering EQ GT = MyFalse; 22.70/11.21 esEsOrdering GT LT = MyFalse; 22.70/11.21 esEsOrdering GT EQ = MyFalse; 22.70/11.21 esEsOrdering GT GT = MyTrue; 22.70/11.21 22.70/11.21 fromEnumChar :: Main.Char -> MyInt; 22.70/11.21 fromEnumChar = primCharToInt; 22.70/11.21 22.70/11.21 fsEsOrdering :: Ordering -> Ordering -> MyBool; 22.70/11.21 fsEsOrdering x y = not (esEsOrdering x y); 22.70/11.21 22.70/11.21 gtEsChar :: Main.Char -> Main.Char -> MyBool; 22.70/11.21 gtEsChar x y = fsEsOrdering (compareChar x y) LT; 22.70/11.21 22.70/11.21 isUpper :: Main.Char -> MyBool; 22.70/11.21 isUpper c = pePe (asAs (gtEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (pePe (asAs (gtEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (asAs (gtEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); 22.70/11.21 22.70/11.21 ltEsChar :: Main.Char -> Main.Char -> MyBool; 22.70/11.21 ltEsChar x y = fsEsOrdering (compareChar x y) GT; 22.70/11.21 22.70/11.21 msMyInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 msMyInt = primMinusInt; 22.70/11.21 22.70/11.21 not :: MyBool -> MyBool; 22.70/11.21 not MyTrue = MyFalse; 22.70/11.21 not MyFalse = MyTrue; 22.70/11.21 22.70/11.21 otherwise :: MyBool; 22.70/11.21 otherwise = MyTrue; 22.70/11.21 22.70/11.21 pePe :: MyBool -> MyBool -> MyBool; 22.70/11.21 pePe MyFalse x = x; 22.70/11.21 pePe MyTrue x = MyTrue; 22.70/11.21 22.70/11.21 primCharToInt :: Main.Char -> MyInt; 22.70/11.21 primCharToInt (Main.Char x) = x; 22.70/11.21 22.70/11.21 primCmpChar :: Main.Char -> Main.Char -> Ordering; 22.70/11.21 primCmpChar (Main.Char x) (Main.Char y) = primCmpInt x y; 22.70/11.21 22.70/11.21 primCmpInt :: MyInt -> MyInt -> Ordering; 22.70/11.21 primCmpInt (Main.Pos Main.Zero) (Main.Pos Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Pos Main.Zero) (Main.Neg Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Neg Main.Zero) (Main.Pos Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Neg Main.Zero) (Main.Neg Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Pos x) (Main.Pos y) = primCmpNat x y; 22.70/11.21 primCmpInt (Main.Pos x) (Main.Neg y) = GT; 22.70/11.21 primCmpInt (Main.Neg x) (Main.Pos y) = LT; 22.70/11.21 primCmpInt (Main.Neg x) (Main.Neg y) = primCmpNat y x; 22.70/11.21 22.70/11.21 primCmpNat :: Main.Nat -> Main.Nat -> Ordering; 22.70/11.21 primCmpNat Main.Zero Main.Zero = EQ; 22.70/11.21 primCmpNat Main.Zero (Main.Succ y) = LT; 22.70/11.21 primCmpNat (Main.Succ x) Main.Zero = GT; 22.70/11.21 primCmpNat (Main.Succ x) (Main.Succ y) = primCmpNat x y; 22.70/11.21 22.70/11.21 primIntToChar :: MyInt -> Main.Char; 22.70/11.21 primIntToChar x = Main.Char x; 22.70/11.21 22.70/11.21 primMinusInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 primMinusInt (Main.Pos x) (Main.Neg y) = Main.Pos (primPlusNat x y); 22.70/11.21 primMinusInt (Main.Neg x) (Main.Pos y) = Main.Neg (primPlusNat x y); 22.70/11.21 primMinusInt (Main.Neg x) (Main.Neg y) = primMinusNat y x; 22.70/11.21 primMinusInt (Main.Pos x) (Main.Pos y) = primMinusNat x y; 22.70/11.21 22.70/11.21 primMinusNat :: Main.Nat -> Main.Nat -> MyInt; 22.70/11.21 primMinusNat Main.Zero Main.Zero = Main.Pos Main.Zero; 22.70/11.21 primMinusNat Main.Zero (Main.Succ y) = Main.Neg (Main.Succ y); 22.70/11.21 primMinusNat (Main.Succ x) Main.Zero = Main.Pos (Main.Succ x); 22.70/11.21 primMinusNat (Main.Succ x) (Main.Succ y) = primMinusNat x y; 22.70/11.21 22.70/11.21 primPlusInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 primPlusInt (Main.Pos x) (Main.Neg y) = primMinusNat x y; 22.70/11.21 primPlusInt (Main.Neg x) (Main.Pos y) = primMinusNat y x; 22.70/11.21 primPlusInt (Main.Neg x) (Main.Neg y) = Main.Neg (primPlusNat x y); 22.70/11.21 primPlusInt (Main.Pos x) (Main.Pos y) = Main.Pos (primPlusNat x y); 22.70/11.21 22.70/11.21 primPlusNat :: Main.Nat -> Main.Nat -> Main.Nat; 22.70/11.21 primPlusNat Main.Zero Main.Zero = Main.Zero; 22.70/11.21 primPlusNat Main.Zero (Main.Succ y) = Main.Succ y; 22.70/11.21 primPlusNat (Main.Succ x) Main.Zero = Main.Succ x; 22.70/11.21 primPlusNat (Main.Succ x) (Main.Succ y) = Main.Succ (Main.Succ (primPlusNat x y)); 22.70/11.21 22.70/11.21 psMyInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 psMyInt = primPlusInt; 22.70/11.21 22.70/11.21 toEnumChar :: MyInt -> Main.Char; 22.70/11.21 toEnumChar = primIntToChar; 22.70/11.21 22.70/11.21 toLower :: Main.Char -> Main.Char; 22.70/11.21 toLower c = toLower2 c; 22.70/11.21 22.70/11.21 toLower0 c MyTrue = c; 22.70/11.21 22.70/11.21 toLower1 c MyTrue = toEnumChar (psMyInt (msMyInt (fromEnumChar c) (fromEnumChar (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (fromEnumChar (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); 22.70/11.21 toLower1 c MyFalse = toLower0 c otherwise; 22.70/11.21 22.70/11.21 toLower2 c = toLower1 c (isUpper c); 22.70/11.21 22.70/11.21 } 22.70/11.21 22.70/11.21 ---------------------------------------- 22.70/11.21 22.70/11.21 (3) COR (EQUIVALENT) 22.70/11.21 Cond Reductions: 22.70/11.21 The following Function with conditions 22.70/11.21 "undefined |Falseundefined; 22.70/11.21 " 22.70/11.21 is transformed to 22.70/11.21 "undefined = undefined1; 22.70/11.21 " 22.70/11.21 "undefined0 True = undefined; 22.70/11.21 " 22.70/11.21 "undefined1 = undefined0 False; 22.70/11.21 " 22.70/11.21 22.70/11.21 ---------------------------------------- 22.70/11.21 22.70/11.21 (4) 22.70/11.21 Obligation: 22.70/11.21 mainModule Main 22.70/11.21 module Main where { 22.70/11.21 import qualified Prelude; 22.70/11.21 data Main.Char = Char MyInt ; 22.70/11.21 22.70/11.21 data MyBool = MyTrue | MyFalse ; 22.70/11.21 22.70/11.21 data MyInt = Pos Main.Nat | Neg Main.Nat ; 22.70/11.21 22.70/11.21 data Main.Nat = Succ Main.Nat | Zero ; 22.70/11.21 22.70/11.21 data Ordering = LT | EQ | GT ; 22.70/11.21 22.70/11.21 asAs :: MyBool -> MyBool -> MyBool; 22.70/11.21 asAs MyFalse x = MyFalse; 22.70/11.21 asAs MyTrue x = x; 22.70/11.21 22.70/11.21 compareChar :: Main.Char -> Main.Char -> Ordering; 22.70/11.21 compareChar = primCmpChar; 22.70/11.21 22.70/11.21 esEsOrdering :: Ordering -> Ordering -> MyBool; 22.70/11.21 esEsOrdering LT LT = MyTrue; 22.70/11.21 esEsOrdering LT EQ = MyFalse; 22.70/11.21 esEsOrdering LT GT = MyFalse; 22.70/11.21 esEsOrdering EQ LT = MyFalse; 22.70/11.21 esEsOrdering EQ EQ = MyTrue; 22.70/11.21 esEsOrdering EQ GT = MyFalse; 22.70/11.21 esEsOrdering GT LT = MyFalse; 22.70/11.21 esEsOrdering GT EQ = MyFalse; 22.70/11.21 esEsOrdering GT GT = MyTrue; 22.70/11.21 22.70/11.21 fromEnumChar :: Main.Char -> MyInt; 22.70/11.21 fromEnumChar = primCharToInt; 22.70/11.21 22.70/11.21 fsEsOrdering :: Ordering -> Ordering -> MyBool; 22.70/11.21 fsEsOrdering x y = not (esEsOrdering x y); 22.70/11.21 22.70/11.21 gtEsChar :: Main.Char -> Main.Char -> MyBool; 22.70/11.21 gtEsChar x y = fsEsOrdering (compareChar x y) LT; 22.70/11.21 22.70/11.21 isUpper :: Main.Char -> MyBool; 22.70/11.21 isUpper c = pePe (asAs (gtEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (pePe (asAs (gtEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (asAs (gtEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar c (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); 22.70/11.21 22.70/11.21 ltEsChar :: Main.Char -> Main.Char -> MyBool; 22.70/11.21 ltEsChar x y = fsEsOrdering (compareChar x y) GT; 22.70/11.21 22.70/11.21 msMyInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 msMyInt = primMinusInt; 22.70/11.21 22.70/11.21 not :: MyBool -> MyBool; 22.70/11.21 not MyTrue = MyFalse; 22.70/11.21 not MyFalse = MyTrue; 22.70/11.21 22.70/11.21 otherwise :: MyBool; 22.70/11.21 otherwise = MyTrue; 22.70/11.21 22.70/11.21 pePe :: MyBool -> MyBool -> MyBool; 22.70/11.21 pePe MyFalse x = x; 22.70/11.21 pePe MyTrue x = MyTrue; 22.70/11.21 22.70/11.21 primCharToInt :: Main.Char -> MyInt; 22.70/11.21 primCharToInt (Main.Char x) = x; 22.70/11.21 22.70/11.21 primCmpChar :: Main.Char -> Main.Char -> Ordering; 22.70/11.21 primCmpChar (Main.Char x) (Main.Char y) = primCmpInt x y; 22.70/11.21 22.70/11.21 primCmpInt :: MyInt -> MyInt -> Ordering; 22.70/11.21 primCmpInt (Main.Pos Main.Zero) (Main.Pos Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Pos Main.Zero) (Main.Neg Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Neg Main.Zero) (Main.Pos Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Neg Main.Zero) (Main.Neg Main.Zero) = EQ; 22.70/11.21 primCmpInt (Main.Pos x) (Main.Pos y) = primCmpNat x y; 22.70/11.21 primCmpInt (Main.Pos x) (Main.Neg y) = GT; 22.70/11.21 primCmpInt (Main.Neg x) (Main.Pos y) = LT; 22.70/11.21 primCmpInt (Main.Neg x) (Main.Neg y) = primCmpNat y x; 22.70/11.21 22.70/11.21 primCmpNat :: Main.Nat -> Main.Nat -> Ordering; 22.70/11.21 primCmpNat Main.Zero Main.Zero = EQ; 22.70/11.21 primCmpNat Main.Zero (Main.Succ y) = LT; 22.70/11.21 primCmpNat (Main.Succ x) Main.Zero = GT; 22.70/11.21 primCmpNat (Main.Succ x) (Main.Succ y) = primCmpNat x y; 22.70/11.21 22.70/11.21 primIntToChar :: MyInt -> Main.Char; 22.70/11.21 primIntToChar x = Main.Char x; 22.70/11.21 22.70/11.21 primMinusInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 primMinusInt (Main.Pos x) (Main.Neg y) = Main.Pos (primPlusNat x y); 22.70/11.21 primMinusInt (Main.Neg x) (Main.Pos y) = Main.Neg (primPlusNat x y); 22.70/11.21 primMinusInt (Main.Neg x) (Main.Neg y) = primMinusNat y x; 22.70/11.21 primMinusInt (Main.Pos x) (Main.Pos y) = primMinusNat x y; 22.70/11.21 22.70/11.21 primMinusNat :: Main.Nat -> Main.Nat -> MyInt; 22.70/11.21 primMinusNat Main.Zero Main.Zero = Main.Pos Main.Zero; 22.70/11.21 primMinusNat Main.Zero (Main.Succ y) = Main.Neg (Main.Succ y); 22.70/11.21 primMinusNat (Main.Succ x) Main.Zero = Main.Pos (Main.Succ x); 22.70/11.21 primMinusNat (Main.Succ x) (Main.Succ y) = primMinusNat x y; 22.70/11.21 22.70/11.21 primPlusInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 primPlusInt (Main.Pos x) (Main.Neg y) = primMinusNat x y; 22.70/11.21 primPlusInt (Main.Neg x) (Main.Pos y) = primMinusNat y x; 22.70/11.21 primPlusInt (Main.Neg x) (Main.Neg y) = Main.Neg (primPlusNat x y); 22.70/11.21 primPlusInt (Main.Pos x) (Main.Pos y) = Main.Pos (primPlusNat x y); 22.70/11.21 22.70/11.21 primPlusNat :: Main.Nat -> Main.Nat -> Main.Nat; 22.70/11.21 primPlusNat Main.Zero Main.Zero = Main.Zero; 22.70/11.21 primPlusNat Main.Zero (Main.Succ y) = Main.Succ y; 22.70/11.21 primPlusNat (Main.Succ x) Main.Zero = Main.Succ x; 22.70/11.21 primPlusNat (Main.Succ x) (Main.Succ y) = Main.Succ (Main.Succ (primPlusNat x y)); 22.70/11.21 22.70/11.21 psMyInt :: MyInt -> MyInt -> MyInt; 22.70/11.21 psMyInt = primPlusInt; 22.70/11.21 22.70/11.21 toEnumChar :: MyInt -> Main.Char; 22.70/11.21 toEnumChar = primIntToChar; 22.70/11.21 22.70/11.21 toLower :: Main.Char -> Main.Char; 22.70/11.21 toLower c = toLower2 c; 22.70/11.21 22.70/11.21 toLower0 c MyTrue = c; 22.70/11.21 22.70/11.21 toLower1 c MyTrue = toEnumChar (psMyInt (msMyInt (fromEnumChar c) (fromEnumChar (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (fromEnumChar (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.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.Succ (Main.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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); 22.70/11.21 toLower1 c MyFalse = toLower0 c otherwise; 22.70/11.21 22.70/11.21 toLower2 c = toLower1 c (isUpper c); 22.70/11.21 22.70/11.21 } 22.70/11.21 22.70/11.21 ---------------------------------------- 22.70/11.21 22.70/11.21 (5) Narrow (SOUND) 22.70/11.21 Haskell To QDPs 22.70/11.21 22.70/11.21 digraph dp_graph { 22.70/11.21 node [outthreshold=100, inthreshold=100];1[label="toLower",fontsize=16,color="grey",shape="box"];1 -> 3[label="",style="dashed", color="grey", weight=3]; 22.70/11.21 3[label="toLower vx3",fontsize=16,color="black",shape="triangle"];3 -> 4[label="",style="solid", color="black", weight=3]; 22.70/11.21 4[label="toLower2 vx3",fontsize=16,color="black",shape="box"];4 -> 5[label="",style="solid", color="black", weight=3]; 22.70/11.21 5[label="toLower1 vx3 (isUpper vx3)",fontsize=16,color="black",shape="box"];5 -> 6[label="",style="solid", color="black", weight=3]; 22.70/11.21 6 -> 50[label="",style="dashed", color="red", weight=0]; 22.70/11.21 6[label="toLower1 vx3 (pePe (asAs (gtEsChar vx3 (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 (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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar vx3 (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 (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 (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (pePe (asAs (gtEsChar vx3 (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 (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 (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 (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 (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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar vx3 (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 (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 (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 (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 (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 (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (asAs (gtEsChar vx3 (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 (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 (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 (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 (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 (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (ltEsChar vx3 (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 (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 (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 (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 (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 (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))",fontsize=16,color="magenta"];6 -> 51[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 6 -> 52[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 6 -> 53[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 6 -> 54[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 6 -> 55[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 6 -> 56[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 6 -> 57[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 51[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 (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 (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 (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 (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 (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))",fontsize=16,color="green",shape="box"];52[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 (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 (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 (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 (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"];53[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 (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 (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 (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 (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 (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))",fontsize=16,color="green",shape="box"];54[label="vx3",fontsize=16,color="green",shape="box"];55[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 (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"];56[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 (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 (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))",fontsize=16,color="green",shape="box"];57[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 (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 (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 (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 (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 (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))",fontsize=16,color="green",shape="box"];50[label="toLower1 vx30 (pePe (asAs (gtEsChar vx30 (Char (Pos (Succ vx31)))) (ltEsChar vx30 (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar vx30 (Char (Pos (Succ vx33)))) (ltEsChar vx30 (Char (Pos (Succ vx34))))) (asAs (gtEsChar vx30 (Char (Pos (Succ vx35)))) (ltEsChar vx30 (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="triangle"];50 -> 65[label="",style="solid", color="black", weight=3]; 22.70/11.21 65[label="toLower1 vx30 (pePe (asAs (fsEsOrdering (compareChar vx30 (Char (Pos (Succ vx31)))) LT) (ltEsChar vx30 (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar vx30 (Char (Pos (Succ vx33)))) (ltEsChar vx30 (Char (Pos (Succ vx34))))) (asAs (gtEsChar vx30 (Char (Pos (Succ vx35)))) (ltEsChar vx30 (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];65 -> 66[label="",style="solid", color="black", weight=3]; 22.70/11.21 66[label="toLower1 vx30 (pePe (asAs (not (esEsOrdering (compareChar vx30 (Char (Pos (Succ vx31)))) LT)) (ltEsChar vx30 (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar vx30 (Char (Pos (Succ vx33)))) (ltEsChar vx30 (Char (Pos (Succ vx34))))) (asAs (gtEsChar vx30 (Char (Pos (Succ vx35)))) (ltEsChar vx30 (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];66 -> 67[label="",style="solid", color="black", weight=3]; 22.70/11.21 67[label="toLower1 vx30 (pePe (asAs (not (esEsOrdering (primCmpChar vx30 (Char (Pos (Succ vx31)))) LT)) (ltEsChar vx30 (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar vx30 (Char (Pos (Succ vx33)))) (ltEsChar vx30 (Char (Pos (Succ vx34))))) (asAs (gtEsChar vx30 (Char (Pos (Succ vx35)))) (ltEsChar vx30 (Char (Pos (Succ vx36)))))))",fontsize=16,color="burlywood",shape="box"];1233[label="vx30/Char vx300",fontsize=10,color="white",style="solid",shape="box"];67 -> 1233[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1233 -> 68[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 68[label="toLower1 (Char vx300) (pePe (asAs (not (esEsOrdering (primCmpChar (Char vx300) (Char (Pos (Succ vx31)))) LT)) (ltEsChar (Char vx300) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char vx300) (Char (Pos (Succ vx33)))) (ltEsChar (Char vx300) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char vx300) (Char (Pos (Succ vx35)))) (ltEsChar (Char vx300) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];68 -> 69[label="",style="solid", color="black", weight=3]; 22.70/11.21 69[label="toLower1 (Char vx300) (pePe (asAs (not (esEsOrdering (primCmpInt vx300 (Pos (Succ vx31))) LT)) (ltEsChar (Char vx300) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char vx300) (Char (Pos (Succ vx33)))) (ltEsChar (Char vx300) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char vx300) (Char (Pos (Succ vx35)))) (ltEsChar (Char vx300) (Char (Pos (Succ vx36)))))))",fontsize=16,color="burlywood",shape="box"];1234[label="vx300/Pos vx3000",fontsize=10,color="white",style="solid",shape="box"];69 -> 1234[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1234 -> 70[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 1235[label="vx300/Neg vx3000",fontsize=10,color="white",style="solid",shape="box"];69 -> 1235[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1235 -> 71[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 70[label="toLower1 (Char (Pos vx3000)) (pePe (asAs (not (esEsOrdering (primCmpInt (Pos vx3000) (Pos (Succ vx31))) LT)) (ltEsChar (Char (Pos vx3000)) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Pos vx3000)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Pos vx3000)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos vx3000)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos vx3000)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="burlywood",shape="box"];1236[label="vx3000/Succ vx30000",fontsize=10,color="white",style="solid",shape="box"];70 -> 1236[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1236 -> 72[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 1237[label="vx3000/Zero",fontsize=10,color="white",style="solid",shape="box"];70 -> 1237[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1237 -> 73[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 71[label="toLower1 (Char (Neg vx3000)) (pePe (asAs (not (esEsOrdering (primCmpInt (Neg vx3000) (Pos (Succ vx31))) LT)) (ltEsChar (Char (Neg vx3000)) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Neg vx3000)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg vx3000)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg vx3000)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg vx3000)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="burlywood",shape="box"];1238[label="vx3000/Succ vx30000",fontsize=10,color="white",style="solid",shape="box"];71 -> 1238[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1238 -> 74[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 1239[label="vx3000/Zero",fontsize=10,color="white",style="solid",shape="box"];71 -> 1239[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1239 -> 75[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 72[label="toLower1 (Char (Pos (Succ vx30000))) (pePe (asAs (not (esEsOrdering (primCmpInt (Pos (Succ vx30000)) (Pos (Succ vx31))) LT)) (ltEsChar (Char (Pos (Succ vx30000))) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx30000))) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Pos (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos (Succ vx30000))) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];72 -> 76[label="",style="solid", color="black", weight=3]; 22.70/11.21 73[label="toLower1 (Char (Pos Zero)) (pePe (asAs (not (esEsOrdering (primCmpInt (Pos Zero) (Pos (Succ vx31))) LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];73 -> 77[label="",style="solid", color="black", weight=3]; 22.70/11.21 74[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs (not (esEsOrdering (primCmpInt (Neg (Succ vx30000)) (Pos (Succ vx31))) LT)) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];74 -> 78[label="",style="solid", color="black", weight=3]; 22.70/11.21 75[label="toLower1 (Char (Neg Zero)) (pePe (asAs (not (esEsOrdering (primCmpInt (Neg Zero) (Pos (Succ vx31))) LT)) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];75 -> 79[label="",style="solid", color="black", weight=3]; 22.70/11.21 76 -> 251[label="",style="dashed", color="red", weight=0]; 22.70/11.21 76[label="toLower1 (Char (Pos (Succ vx30000))) (pePe (asAs (not (esEsOrdering (primCmpNat (Succ vx30000) (Succ vx31)) LT)) (ltEsChar (Char (Pos (Succ vx30000))) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx30000))) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Pos (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos (Succ vx30000))) (Char (Pos (Succ vx36)))))))",fontsize=16,color="magenta"];76 -> 252[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 76 -> 253[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 76 -> 254[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 76 -> 255[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 76 -> 256[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 76 -> 257[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 76 -> 258[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 76 -> 259[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 77[label="toLower1 (Char (Pos Zero)) (pePe (asAs (not (esEsOrdering (primCmpNat Zero (Succ vx31)) LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];77 -> 81[label="",style="solid", color="black", weight=3]; 22.70/11.21 78[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];78 -> 82[label="",style="solid", color="black", weight=3]; 22.70/11.21 79[label="toLower1 (Char (Neg Zero)) (pePe (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];79 -> 83[label="",style="solid", color="black", weight=3]; 22.70/11.21 252[label="Succ vx31",fontsize=16,color="green",shape="box"];253[label="vx35",fontsize=16,color="green",shape="box"];254[label="vx33",fontsize=16,color="green",shape="box"];255[label="Succ vx30000",fontsize=16,color="green",shape="box"];256[label="vx30000",fontsize=16,color="green",shape="box"];257[label="vx34",fontsize=16,color="green",shape="box"];258[label="vx32",fontsize=16,color="green",shape="box"];259[label="vx36",fontsize=16,color="green",shape="box"];251[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (primCmpNat vx39 vx40) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="burlywood",shape="triangle"];1240[label="vx39/Succ vx390",fontsize=10,color="white",style="solid",shape="box"];251 -> 1240[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1240 -> 308[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 1241[label="vx39/Zero",fontsize=10,color="white",style="solid",shape="box"];251 -> 1241[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1241 -> 309[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 81[label="toLower1 (Char (Pos Zero)) (pePe (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];81 -> 86[label="",style="solid", color="black", weight=3]; 22.70/11.21 82[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs (not MyTrue) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];82 -> 87[label="",style="solid", color="black", weight=3]; 22.70/11.21 83[label="toLower1 (Char (Neg Zero)) (pePe (asAs (not MyTrue) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];83 -> 88[label="",style="solid", color="black", weight=3]; 22.70/11.21 308[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (primCmpNat (Succ vx390) vx40) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="burlywood",shape="box"];1242[label="vx40/Succ vx400",fontsize=10,color="white",style="solid",shape="box"];308 -> 1242[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1242 -> 313[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 1243[label="vx40/Zero",fontsize=10,color="white",style="solid",shape="box"];308 -> 1243[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1243 -> 314[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 309[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (primCmpNat Zero vx40) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="burlywood",shape="box"];1244[label="vx40/Succ vx400",fontsize=10,color="white",style="solid",shape="box"];309 -> 1244[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1244 -> 315[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 1245[label="vx40/Zero",fontsize=10,color="white",style="solid",shape="box"];309 -> 1245[label="",style="solid", color="burlywood", weight=9]; 22.70/11.21 1245 -> 316[label="",style="solid", color="burlywood", weight=3]; 22.70/11.21 86[label="toLower1 (Char (Pos Zero)) (pePe (asAs (not MyTrue) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];86 -> 93[label="",style="solid", color="black", weight=3]; 22.70/11.21 87[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs MyFalse (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];87 -> 94[label="",style="solid", color="black", weight=3]; 22.70/11.21 88[label="toLower1 (Char (Neg Zero)) (pePe (asAs MyFalse (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];88 -> 95[label="",style="solid", color="black", weight=3]; 22.70/11.21 313[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (primCmpNat (Succ vx390) (Succ vx400)) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];313 -> 320[label="",style="solid", color="black", weight=3]; 22.70/11.21 314[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (primCmpNat (Succ vx390) Zero) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];314 -> 321[label="",style="solid", color="black", weight=3]; 22.70/11.21 315[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (primCmpNat Zero (Succ vx400)) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];315 -> 322[label="",style="solid", color="black", weight=3]; 22.70/11.21 316[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (primCmpNat Zero Zero) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];316 -> 323[label="",style="solid", color="black", weight=3]; 22.70/11.21 93[label="toLower1 (Char (Pos Zero)) (pePe (asAs MyFalse (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx32))))) (pePe (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];93 -> 100[label="",style="solid", color="black", weight=3]; 22.70/11.21 94[label="toLower1 (Char (Neg (Succ vx30000))) (pePe MyFalse (pePe (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];94 -> 101[label="",style="solid", color="black", weight=3]; 22.70/11.21 95[label="toLower1 (Char (Neg Zero)) (pePe MyFalse (pePe (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];95 -> 102[label="",style="solid", color="black", weight=3]; 22.70/11.21 320 -> 251[label="",style="dashed", color="red", weight=0]; 22.70/11.21 320[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (primCmpNat vx390 vx400) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="magenta"];320 -> 327[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 320 -> 328[label="",style="dashed", color="magenta", weight=3]; 22.70/11.21 321[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering GT LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];321 -> 329[label="",style="solid", color="black", weight=3]; 22.70/11.21 322[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];322 -> 330[label="",style="solid", color="black", weight=3]; 22.70/11.21 323[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering EQ LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];323 -> 331[label="",style="solid", color="black", weight=3]; 22.70/11.21 100[label="toLower1 (Char (Pos Zero)) (pePe MyFalse (pePe (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))))",fontsize=16,color="black",shape="box"];100 -> 108[label="",style="solid", color="black", weight=3]; 22.70/11.21 101[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];101 -> 109[label="",style="solid", color="black", weight=3]; 22.70/11.21 102[label="toLower1 (Char (Neg Zero)) (pePe (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];102 -> 110[label="",style="solid", color="black", weight=3]; 22.70/11.21 327[label="vx400",fontsize=16,color="green",shape="box"];328[label="vx390",fontsize=16,color="green",shape="box"];329[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not MyFalse) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="triangle"];329 -> 335[label="",style="solid", color="black", weight=3]; 22.70/11.21 330[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not MyTrue) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];330 -> 336[label="",style="solid", color="black", weight=3]; 22.70/11.21 331 -> 329[label="",style="dashed", color="red", weight=0]; 22.70/11.21 331[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not MyFalse) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="magenta"];108[label="toLower1 (Char (Pos Zero)) (pePe (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx33)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];108 -> 118[label="",style="solid", color="black", weight=3]; 22.70/11.21 109[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs (fsEsOrdering (compareChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx33)))) LT) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];109 -> 119[label="",style="solid", color="black", weight=3]; 22.70/11.21 110[label="toLower1 (Char (Neg Zero)) (pePe (asAs (fsEsOrdering (compareChar (Char (Neg Zero)) (Char (Pos (Succ vx33)))) LT) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];110 -> 120[label="",style="solid", color="black", weight=3]; 22.70/11.21 335[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs MyTrue (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];335 -> 340[label="",style="solid", color="black", weight=3]; 22.70/11.21 336[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs MyFalse (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41))))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];336 -> 341[label="",style="solid", color="black", weight=3]; 22.70/11.22 118[label="toLower1 (Char (Pos Zero)) (pePe (asAs (fsEsOrdering (compareChar (Char (Pos Zero)) (Char (Pos (Succ vx33)))) LT) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];118 -> 128[label="",style="solid", color="black", weight=3]; 22.70/11.22 119[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs (not (esEsOrdering (compareChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx33)))) LT)) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];119 -> 129[label="",style="solid", color="black", weight=3]; 22.70/11.22 120[label="toLower1 (Char (Neg Zero)) (pePe (asAs (not (esEsOrdering (compareChar (Char (Neg Zero)) (Char (Pos (Succ vx33)))) LT)) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];120 -> 130[label="",style="solid", color="black", weight=3]; 22.70/11.22 340[label="toLower1 (Char (Pos (Succ vx38))) (pePe (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41)))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];340 -> 345[label="",style="solid", color="black", weight=3]; 22.70/11.22 341[label="toLower1 (Char (Pos (Succ vx38))) (pePe MyFalse (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="triangle"];341 -> 346[label="",style="solid", color="black", weight=3]; 22.70/11.22 128[label="toLower1 (Char (Pos Zero)) (pePe (asAs (not (esEsOrdering (compareChar (Char (Pos Zero)) (Char (Pos (Succ vx33)))) LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];128 -> 139[label="",style="solid", color="black", weight=3]; 22.70/11.22 129[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs (not (esEsOrdering (primCmpChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx33)))) LT)) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];129 -> 140[label="",style="solid", color="black", weight=3]; 22.70/11.22 130[label="toLower1 (Char (Neg Zero)) (pePe (asAs (not (esEsOrdering (primCmpChar (Char (Neg Zero)) (Char (Pos (Succ vx33)))) LT)) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];130 -> 141[label="",style="solid", color="black", weight=3]; 22.70/11.22 345[label="toLower1 (Char (Pos (Succ vx38))) (pePe (fsEsOrdering (compareChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41)))) GT) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];345 -> 350[label="",style="solid", color="black", weight=3]; 22.70/11.22 346[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45))))))",fontsize=16,color="black",shape="box"];346 -> 351[label="",style="solid", color="black", weight=3]; 22.70/11.22 139[label="toLower1 (Char (Pos Zero)) (pePe (asAs (not (esEsOrdering (primCmpChar (Char (Pos Zero)) (Char (Pos (Succ vx33)))) LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];139 -> 151[label="",style="solid", color="black", weight=3]; 22.70/11.22 140[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs (not (esEsOrdering (primCmpInt (Neg (Succ vx30000)) (Pos (Succ vx33))) LT)) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];140 -> 152[label="",style="solid", color="black", weight=3]; 22.70/11.22 141[label="toLower1 (Char (Neg Zero)) (pePe (asAs (not (esEsOrdering (primCmpInt (Neg Zero) (Pos (Succ vx33))) LT)) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];141 -> 153[label="",style="solid", color="black", weight=3]; 22.70/11.22 350[label="toLower1 (Char (Pos (Succ vx38))) (pePe (not (esEsOrdering (compareChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41)))) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];350 -> 355[label="",style="solid", color="black", weight=3]; 22.70/11.22 351[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (fsEsOrdering (compareChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) LT) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45))))))",fontsize=16,color="black",shape="box"];351 -> 356[label="",style="solid", color="black", weight=3]; 22.70/11.22 151[label="toLower1 (Char (Pos Zero)) (pePe (asAs (not (esEsOrdering (primCmpInt (Pos Zero) (Pos (Succ vx33))) LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];151 -> 162[label="",style="solid", color="black", weight=3]; 22.70/11.22 152[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];152 -> 163[label="",style="solid", color="black", weight=3]; 22.70/11.22 153[label="toLower1 (Char (Neg Zero)) (pePe (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];153 -> 164[label="",style="solid", color="black", weight=3]; 22.70/11.22 355[label="toLower1 (Char (Pos (Succ vx38))) (pePe (not (esEsOrdering (primCmpChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx41)))) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];355 -> 358[label="",style="solid", color="black", weight=3]; 22.70/11.22 356[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (compareChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45))))))",fontsize=16,color="black",shape="box"];356 -> 359[label="",style="solid", color="black", weight=3]; 22.70/11.22 162[label="toLower1 (Char (Pos Zero)) (pePe (asAs (not (esEsOrdering (primCmpNat Zero (Succ vx33)) LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];162 -> 174[label="",style="solid", color="black", weight=3]; 22.70/11.22 163[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs (not MyTrue) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];163 -> 175[label="",style="solid", color="black", weight=3]; 22.70/11.22 164[label="toLower1 (Char (Neg Zero)) (pePe (asAs (not MyTrue) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];164 -> 176[label="",style="solid", color="black", weight=3]; 22.70/11.22 358[label="toLower1 (Char (Pos (Succ vx38))) (pePe (not (esEsOrdering (primCmpInt (Pos (Succ vx38)) (Pos (Succ vx41))) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="black",shape="box"];358 -> 361[label="",style="solid", color="black", weight=3]; 22.70/11.22 359[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (primCmpChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45))))))",fontsize=16,color="black",shape="box"];359 -> 362[label="",style="solid", color="black", weight=3]; 22.70/11.22 174[label="toLower1 (Char (Pos Zero)) (pePe (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];174 -> 187[label="",style="solid", color="black", weight=3]; 22.70/11.22 175[label="toLower1 (Char (Neg (Succ vx30000))) (pePe (asAs MyFalse (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];175 -> 188[label="",style="solid", color="black", weight=3]; 22.70/11.22 176[label="toLower1 (Char (Neg Zero)) (pePe (asAs MyFalse (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];176 -> 189[label="",style="solid", color="black", weight=3]; 22.70/11.22 361 -> 583[label="",style="dashed", color="red", weight=0]; 22.70/11.22 361[label="toLower1 (Char (Pos (Succ vx38))) (pePe (not (esEsOrdering (primCmpNat (Succ vx38) (Succ vx41)) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx42)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45)))))))",fontsize=16,color="magenta"];361 -> 584[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 361 -> 585[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 361 -> 586[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 361 -> 587[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 361 -> 588[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 361 -> 589[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 361 -> 590[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 362[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (primCmpInt (Pos (Succ vx38)) (Pos (Succ vx42))) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45))))))",fontsize=16,color="black",shape="box"];362 -> 365[label="",style="solid", color="black", weight=3]; 22.70/11.22 187[label="toLower1 (Char (Pos Zero)) (pePe (asAs (not MyTrue) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];187 -> 199[label="",style="solid", color="black", weight=3]; 22.70/11.22 188[label="toLower1 (Char (Neg (Succ vx30000))) (pePe MyFalse (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];188 -> 200[label="",style="solid", color="black", weight=3]; 22.70/11.22 189[label="toLower1 (Char (Neg Zero)) (pePe MyFalse (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];189 -> 201[label="",style="solid", color="black", weight=3]; 22.70/11.22 584[label="vx42",fontsize=16,color="green",shape="box"];585[label="vx38",fontsize=16,color="green",shape="box"];586[label="vx44",fontsize=16,color="green",shape="box"];587[label="Succ vx41",fontsize=16,color="green",shape="box"];588[label="Succ vx38",fontsize=16,color="green",shape="box"];589[label="vx43",fontsize=16,color="green",shape="box"];590[label="vx45",fontsize=16,color="green",shape="box"];583[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not (esEsOrdering (primCmpNat vx63 vx64) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="burlywood",shape="triangle"];1246[label="vx63/Succ vx630",fontsize=10,color="white",style="solid",shape="box"];583 -> 1246[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1246 -> 633[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1247[label="vx63/Zero",fontsize=10,color="white",style="solid",shape="box"];583 -> 1247[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1247 -> 634[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 365 -> 653[label="",style="dashed", color="red", weight=0]; 22.70/11.22 365[label="toLower1 (Char (Pos (Succ vx38))) (pePe (asAs (not (esEsOrdering (primCmpNat (Succ vx38) (Succ vx42)) LT)) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx43))))) (asAs (gtEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx44)))) (ltEsChar (Char (Pos (Succ vx38))) (Char (Pos (Succ vx45))))))",fontsize=16,color="magenta"];365 -> 654[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 365 -> 655[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 365 -> 656[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 365 -> 657[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 365 -> 658[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 365 -> 659[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 199[label="toLower1 (Char (Pos Zero)) (pePe (asAs MyFalse (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx34))))) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];199 -> 214[label="",style="solid", color="black", weight=3]; 22.70/11.22 200[label="toLower1 (Char (Neg (Succ vx30000))) (asAs (gtEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];200 -> 215[label="",style="solid", color="black", weight=3]; 22.70/11.22 201[label="toLower1 (Char (Neg Zero)) (asAs (gtEsChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];201 -> 216[label="",style="solid", color="black", weight=3]; 22.70/11.22 633[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not (esEsOrdering (primCmpNat (Succ vx630) vx64) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="burlywood",shape="box"];1248[label="vx64/Succ vx640",fontsize=10,color="white",style="solid",shape="box"];633 -> 1248[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1248 -> 649[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1249[label="vx64/Zero",fontsize=10,color="white",style="solid",shape="box"];633 -> 1249[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1249 -> 650[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 634[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not (esEsOrdering (primCmpNat Zero vx64) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="burlywood",shape="box"];1250[label="vx64/Succ vx640",fontsize=10,color="white",style="solid",shape="box"];634 -> 1250[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1250 -> 651[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1251[label="vx64/Zero",fontsize=10,color="white",style="solid",shape="box"];634 -> 1251[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1251 -> 652[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 654[label="vx44",fontsize=16,color="green",shape="box"];655[label="vx43",fontsize=16,color="green",shape="box"];656[label="Succ vx42",fontsize=16,color="green",shape="box"];657[label="vx45",fontsize=16,color="green",shape="box"];658[label="vx38",fontsize=16,color="green",shape="box"];659[label="Succ vx38",fontsize=16,color="green",shape="box"];653[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not (esEsOrdering (primCmpNat vx71 vx72) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="burlywood",shape="triangle"];1252[label="vx71/Succ vx710",fontsize=10,color="white",style="solid",shape="box"];653 -> 1252[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1252 -> 696[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1253[label="vx71/Zero",fontsize=10,color="white",style="solid",shape="box"];653 -> 1253[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1253 -> 697[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 214[label="toLower1 (Char (Pos Zero)) (pePe MyFalse (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36))))))",fontsize=16,color="black",shape="box"];214 -> 231[label="",style="solid", color="black", weight=3]; 22.70/11.22 215[label="toLower1 (Char (Neg (Succ vx30000))) (asAs (fsEsOrdering (compareChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) LT) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];215 -> 232[label="",style="solid", color="black", weight=3]; 22.70/11.22 216[label="toLower1 (Char (Neg Zero)) (asAs (fsEsOrdering (compareChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) LT) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];216 -> 233[label="",style="solid", color="black", weight=3]; 22.70/11.22 649[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not (esEsOrdering (primCmpNat (Succ vx630) (Succ vx640)) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="black",shape="box"];649 -> 698[label="",style="solid", color="black", weight=3]; 22.70/11.22 650[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not (esEsOrdering (primCmpNat (Succ vx630) Zero) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="black",shape="box"];650 -> 699[label="",style="solid", color="black", weight=3]; 22.70/11.22 651[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not (esEsOrdering (primCmpNat Zero (Succ vx640)) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="black",shape="box"];651 -> 700[label="",style="solid", color="black", weight=3]; 22.70/11.22 652[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not (esEsOrdering (primCmpNat Zero Zero) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="black",shape="box"];652 -> 701[label="",style="solid", color="black", weight=3]; 22.70/11.22 696[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not (esEsOrdering (primCmpNat (Succ vx710) vx72) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="burlywood",shape="box"];1254[label="vx72/Succ vx720",fontsize=10,color="white",style="solid",shape="box"];696 -> 1254[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1254 -> 702[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1255[label="vx72/Zero",fontsize=10,color="white",style="solid",shape="box"];696 -> 1255[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1255 -> 703[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 697[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not (esEsOrdering (primCmpNat Zero vx72) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="burlywood",shape="box"];1256[label="vx72/Succ vx720",fontsize=10,color="white",style="solid",shape="box"];697 -> 1256[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1256 -> 704[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1257[label="vx72/Zero",fontsize=10,color="white",style="solid",shape="box"];697 -> 1257[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1257 -> 705[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 231[label="toLower1 (Char (Pos Zero)) (asAs (gtEsChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];231 -> 248[label="",style="solid", color="black", weight=3]; 22.70/11.22 232[label="toLower1 (Char (Neg (Succ vx30000))) (asAs (not (esEsOrdering (compareChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) LT)) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];232 -> 249[label="",style="solid", color="black", weight=3]; 22.70/11.22 233[label="toLower1 (Char (Neg Zero)) (asAs (not (esEsOrdering (compareChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) LT)) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];233 -> 250[label="",style="solid", color="black", weight=3]; 22.70/11.22 698 -> 583[label="",style="dashed", color="red", weight=0]; 22.70/11.22 698[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not (esEsOrdering (primCmpNat vx630 vx640) GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="magenta"];698 -> 706[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 698 -> 707[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 699[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not (esEsOrdering GT GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="black",shape="box"];699 -> 708[label="",style="solid", color="black", weight=3]; 22.70/11.22 700[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not (esEsOrdering LT GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="black",shape="box"];700 -> 709[label="",style="solid", color="black", weight=3]; 22.70/11.22 701[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not (esEsOrdering EQ GT)) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="black",shape="box"];701 -> 710[label="",style="solid", color="black", weight=3]; 22.70/11.22 702[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not (esEsOrdering (primCmpNat (Succ vx710) (Succ vx720)) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];702 -> 711[label="",style="solid", color="black", weight=3]; 22.70/11.22 703[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not (esEsOrdering (primCmpNat (Succ vx710) Zero) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];703 -> 712[label="",style="solid", color="black", weight=3]; 22.70/11.22 704[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not (esEsOrdering (primCmpNat Zero (Succ vx720)) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];704 -> 713[label="",style="solid", color="black", weight=3]; 22.70/11.22 705[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not (esEsOrdering (primCmpNat Zero Zero) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];705 -> 714[label="",style="solid", color="black", weight=3]; 22.70/11.22 248[label="toLower1 (Char (Pos Zero)) (asAs (fsEsOrdering (compareChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) LT) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];248 -> 310[label="",style="solid", color="black", weight=3]; 22.70/11.22 249[label="toLower1 (Char (Neg (Succ vx30000))) (asAs (not (esEsOrdering (primCmpChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx35)))) LT)) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];249 -> 311[label="",style="solid", color="black", weight=3]; 22.70/11.22 250[label="toLower1 (Char (Neg Zero)) (asAs (not (esEsOrdering (primCmpChar (Char (Neg Zero)) (Char (Pos (Succ vx35)))) LT)) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];250 -> 312[label="",style="solid", color="black", weight=3]; 22.70/11.22 706[label="vx640",fontsize=16,color="green",shape="box"];707[label="vx630",fontsize=16,color="green",shape="box"];708[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not MyTrue) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="black",shape="box"];708 -> 715[label="",style="solid", color="black", weight=3]; 22.70/11.22 709[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not MyFalse) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="black",shape="triangle"];709 -> 716[label="",style="solid", color="black", weight=3]; 22.70/11.22 710 -> 709[label="",style="dashed", color="red", weight=0]; 22.70/11.22 710[label="toLower1 (Char (Pos (Succ vx62))) (pePe (not MyFalse) (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="magenta"];711 -> 653[label="",style="dashed", color="red", weight=0]; 22.70/11.22 711[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not (esEsOrdering (primCmpNat vx710 vx720) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="magenta"];711 -> 717[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 711 -> 718[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 712[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not (esEsOrdering GT LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];712 -> 719[label="",style="solid", color="black", weight=3]; 22.70/11.22 713[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];713 -> 720[label="",style="solid", color="black", weight=3]; 22.70/11.22 714[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not (esEsOrdering EQ LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];714 -> 721[label="",style="solid", color="black", weight=3]; 22.70/11.22 310[label="toLower1 (Char (Pos Zero)) (asAs (not (esEsOrdering (compareChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];310 -> 317[label="",style="solid", color="black", weight=3]; 22.70/11.22 311[label="toLower1 (Char (Neg (Succ vx30000))) (asAs (not (esEsOrdering (primCmpInt (Neg (Succ vx30000)) (Pos (Succ vx35))) LT)) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];311 -> 318[label="",style="solid", color="black", weight=3]; 22.70/11.22 312[label="toLower1 (Char (Neg Zero)) (asAs (not (esEsOrdering (primCmpInt (Neg Zero) (Pos (Succ vx35))) LT)) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];312 -> 319[label="",style="solid", color="black", weight=3]; 22.70/11.22 715 -> 341[label="",style="dashed", color="red", weight=0]; 22.70/11.22 715[label="toLower1 (Char (Pos (Succ vx62))) (pePe MyFalse (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="magenta"];715 -> 722[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 715 -> 723[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 715 -> 724[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 715 -> 725[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 715 -> 726[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 716[label="toLower1 (Char (Pos (Succ vx62))) (pePe MyTrue (pePe (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx65)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx66))))) (asAs (gtEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx67)))) (ltEsChar (Char (Pos (Succ vx62))) (Char (Pos (Succ vx68)))))))",fontsize=16,color="black",shape="box"];716 -> 727[label="",style="solid", color="black", weight=3]; 22.70/11.22 717[label="vx720",fontsize=16,color="green",shape="box"];718[label="vx710",fontsize=16,color="green",shape="box"];719[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not MyFalse) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="triangle"];719 -> 728[label="",style="solid", color="black", weight=3]; 22.70/11.22 720[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not MyTrue) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];720 -> 729[label="",style="solid", color="black", weight=3]; 22.70/11.22 721 -> 719[label="",style="dashed", color="red", weight=0]; 22.70/11.22 721[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs (not MyFalse) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="magenta"];317[label="toLower1 (Char (Pos Zero)) (asAs (not (esEsOrdering (primCmpChar (Char (Pos Zero)) (Char (Pos (Succ vx35)))) LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];317 -> 324[label="",style="solid", color="black", weight=3]; 22.70/11.22 318[label="toLower1 (Char (Neg (Succ vx30000))) (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];318 -> 325[label="",style="solid", color="black", weight=3]; 22.70/11.22 319[label="toLower1 (Char (Neg Zero)) (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];319 -> 326[label="",style="solid", color="black", weight=3]; 22.70/11.22 722[label="vx67",fontsize=16,color="green",shape="box"];723[label="vx65",fontsize=16,color="green",shape="box"];724[label="vx62",fontsize=16,color="green",shape="box"];725[label="vx66",fontsize=16,color="green",shape="box"];726[label="vx68",fontsize=16,color="green",shape="box"];727[label="toLower1 (Char (Pos (Succ vx62))) MyTrue",fontsize=16,color="black",shape="triangle"];727 -> 730[label="",style="solid", color="black", weight=3]; 22.70/11.22 728[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs MyTrue (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];728 -> 731[label="",style="solid", color="black", weight=3]; 22.70/11.22 729[label="toLower1 (Char (Pos (Succ vx70))) (pePe (asAs MyFalse (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73))))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];729 -> 732[label="",style="solid", color="black", weight=3]; 22.70/11.22 324[label="toLower1 (Char (Pos Zero)) (asAs (not (esEsOrdering (primCmpInt (Pos Zero) (Pos (Succ vx35))) LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];324 -> 332[label="",style="solid", color="black", weight=3]; 22.70/11.22 325[label="toLower1 (Char (Neg (Succ vx30000))) (asAs (not MyTrue) (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];325 -> 333[label="",style="solid", color="black", weight=3]; 22.70/11.22 326[label="toLower1 (Char (Neg Zero)) (asAs (not MyTrue) (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];326 -> 334[label="",style="solid", color="black", weight=3]; 22.70/11.22 730 -> 738[label="",style="dashed", color="red", weight=0]; 22.70/11.22 730[label="toEnumChar (psMyInt (msMyInt (fromEnumChar (Char (Pos (Succ vx62)))) (fromEnumChar (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 (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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (fromEnumChar (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 (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 (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))",fontsize=16,color="magenta"];730 -> 739[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 730 -> 740[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 730 -> 741[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 731[label="toLower1 (Char (Pos (Succ vx70))) (pePe (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73)))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];731 -> 736[label="",style="solid", color="black", weight=3]; 22.70/11.22 732[label="toLower1 (Char (Pos (Succ vx70))) (pePe MyFalse (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="triangle"];732 -> 737[label="",style="solid", color="black", weight=3]; 22.70/11.22 332[label="toLower1 (Char (Pos Zero)) (asAs (not (esEsOrdering (primCmpNat Zero (Succ vx35)) LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];332 -> 337[label="",style="solid", color="black", weight=3]; 22.70/11.22 333[label="toLower1 (Char (Neg (Succ vx30000))) (asAs MyFalse (ltEsChar (Char (Neg (Succ vx30000))) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];333 -> 338[label="",style="solid", color="black", weight=3]; 22.70/11.22 334[label="toLower1 (Char (Neg Zero)) (asAs MyFalse (ltEsChar (Char (Neg Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];334 -> 339[label="",style="solid", color="black", weight=3]; 22.70/11.22 739[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 (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"];740[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 (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 (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ (Succ Zero)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))",fontsize=16,color="green",shape="box"];741[label="vx62",fontsize=16,color="green",shape="box"];738[label="toEnumChar (psMyInt (msMyInt (fromEnumChar (Char (Pos (Succ vx80)))) (fromEnumChar (Char (Pos (Succ vx81))))) (fromEnumChar (Char (Pos (Succ vx82)))))",fontsize=16,color="black",shape="triangle"];738 -> 745[label="",style="solid", color="black", weight=3]; 22.70/11.22 736[label="toLower1 (Char (Pos (Succ vx70))) (pePe (fsEsOrdering (compareChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73)))) GT) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];736 -> 746[label="",style="solid", color="black", weight=3]; 22.70/11.22 737[label="toLower1 (Char (Pos (Succ vx70))) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75)))))",fontsize=16,color="black",shape="box"];737 -> 747[label="",style="solid", color="black", weight=3]; 22.70/11.22 337[label="toLower1 (Char (Pos Zero)) (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];337 -> 342[label="",style="solid", color="black", weight=3]; 22.70/11.22 338[label="toLower1 (Char (Neg (Succ vx30000))) MyFalse",fontsize=16,color="black",shape="box"];338 -> 343[label="",style="solid", color="black", weight=3]; 22.70/11.22 339[label="toLower1 (Char (Neg Zero)) MyFalse",fontsize=16,color="black",shape="box"];339 -> 344[label="",style="solid", color="black", weight=3]; 22.70/11.22 745[label="primIntToChar (psMyInt (msMyInt (fromEnumChar (Char (Pos (Succ vx80)))) (fromEnumChar (Char (Pos (Succ vx81))))) (fromEnumChar (Char (Pos (Succ vx82)))))",fontsize=16,color="black",shape="box"];745 -> 748[label="",style="solid", color="black", weight=3]; 22.70/11.22 746[label="toLower1 (Char (Pos (Succ vx70))) (pePe (not (esEsOrdering (compareChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73)))) GT)) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];746 -> 749[label="",style="solid", color="black", weight=3]; 22.70/11.22 747[label="toLower1 (Char (Pos (Succ vx70))) (asAs (fsEsOrdering (compareChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) LT) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75)))))",fontsize=16,color="black",shape="box"];747 -> 750[label="",style="solid", color="black", weight=3]; 22.70/11.22 342[label="toLower1 (Char (Pos Zero)) (asAs (not MyTrue) (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];342 -> 347[label="",style="solid", color="black", weight=3]; 22.70/11.22 343[label="toLower0 (Char (Neg (Succ vx30000))) otherwise",fontsize=16,color="black",shape="box"];343 -> 348[label="",style="solid", color="black", weight=3]; 22.70/11.22 344[label="toLower0 (Char (Neg Zero)) otherwise",fontsize=16,color="black",shape="box"];344 -> 349[label="",style="solid", color="black", weight=3]; 22.70/11.22 748[label="Char (psMyInt (msMyInt (fromEnumChar (Char (Pos (Succ vx80)))) (fromEnumChar (Char (Pos (Succ vx81))))) (fromEnumChar (Char (Pos (Succ vx82)))))",fontsize=16,color="green",shape="box"];748 -> 751[label="",style="dashed", color="green", weight=3]; 22.70/11.22 749[label="toLower1 (Char (Pos (Succ vx70))) (pePe (not (esEsOrdering (primCmpChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx73)))) GT)) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];749 -> 752[label="",style="solid", color="black", weight=3]; 22.70/11.22 750[label="toLower1 (Char (Pos (Succ vx70))) (asAs (not (esEsOrdering (compareChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75)))))",fontsize=16,color="black",shape="box"];750 -> 753[label="",style="solid", color="black", weight=3]; 22.70/11.22 347[label="toLower1 (Char (Pos Zero)) (asAs MyFalse (ltEsChar (Char (Pos Zero)) (Char (Pos (Succ vx36)))))",fontsize=16,color="black",shape="box"];347 -> 352[label="",style="solid", color="black", weight=3]; 22.70/11.22 348[label="toLower0 (Char (Neg (Succ vx30000))) MyTrue",fontsize=16,color="black",shape="box"];348 -> 353[label="",style="solid", color="black", weight=3]; 22.70/11.22 349[label="toLower0 (Char (Neg Zero)) MyTrue",fontsize=16,color="black",shape="box"];349 -> 354[label="",style="solid", color="black", weight=3]; 22.70/11.22 751[label="psMyInt (msMyInt (fromEnumChar (Char (Pos (Succ vx80)))) (fromEnumChar (Char (Pos (Succ vx81))))) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];751 -> 754[label="",style="solid", color="black", weight=3]; 22.70/11.22 752[label="toLower1 (Char (Pos (Succ vx70))) (pePe (not (esEsOrdering (primCmpInt (Pos (Succ vx70)) (Pos (Succ vx73))) GT)) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="black",shape="box"];752 -> 755[label="",style="solid", color="black", weight=3]; 22.70/11.22 753[label="toLower1 (Char (Pos (Succ vx70))) (asAs (not (esEsOrdering (primCmpChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75)))))",fontsize=16,color="black",shape="box"];753 -> 756[label="",style="solid", color="black", weight=3]; 22.70/11.22 352[label="toLower1 (Char (Pos Zero)) MyFalse",fontsize=16,color="black",shape="box"];352 -> 357[label="",style="solid", color="black", weight=3]; 22.70/11.22 353[label="Char (Neg (Succ vx30000))",fontsize=16,color="green",shape="box"];354[label="Char (Neg Zero)",fontsize=16,color="green",shape="box"];754[label="primPlusInt (msMyInt (fromEnumChar (Char (Pos (Succ vx80)))) (fromEnumChar (Char (Pos (Succ vx81))))) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];754 -> 757[label="",style="solid", color="black", weight=3]; 22.70/11.22 755 -> 981[label="",style="dashed", color="red", weight=0]; 22.70/11.22 755[label="toLower1 (Char (Pos (Succ vx70))) (pePe (not (esEsOrdering (primCmpNat (Succ vx70) (Succ vx73)) GT)) (asAs (gtEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx74)))) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75))))))",fontsize=16,color="magenta"];755 -> 982[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 755 -> 983[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 755 -> 984[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 755 -> 985[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 755 -> 986[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 756[label="toLower1 (Char (Pos (Succ vx70))) (asAs (not (esEsOrdering (primCmpInt (Pos (Succ vx70)) (Pos (Succ vx74))) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75)))))",fontsize=16,color="black",shape="box"];756 -> 759[label="",style="solid", color="black", weight=3]; 22.70/11.22 357[label="toLower0 (Char (Pos Zero)) otherwise",fontsize=16,color="black",shape="box"];357 -> 360[label="",style="solid", color="black", weight=3]; 22.70/11.22 757[label="primPlusInt (primMinusInt (fromEnumChar (Char (Pos (Succ vx80)))) (fromEnumChar (Char (Pos (Succ vx81))))) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];757 -> 760[label="",style="solid", color="black", weight=3]; 22.70/11.22 982[label="vx75",fontsize=16,color="green",shape="box"];983[label="vx70",fontsize=16,color="green",shape="box"];984[label="Succ vx73",fontsize=16,color="green",shape="box"];985[label="Succ vx70",fontsize=16,color="green",shape="box"];986[label="vx74",fontsize=16,color="green",shape="box"];981[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not (esEsOrdering (primCmpNat vx85 vx86) GT)) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="burlywood",shape="triangle"];1258[label="vx85/Succ vx850",fontsize=10,color="white",style="solid",shape="box"];981 -> 1258[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1258 -> 1017[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1259[label="vx85/Zero",fontsize=10,color="white",style="solid",shape="box"];981 -> 1259[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1259 -> 1018[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 759 -> 1040[label="",style="dashed", color="red", weight=0]; 22.70/11.22 759[label="toLower1 (Char (Pos (Succ vx70))) (asAs (not (esEsOrdering (primCmpNat (Succ vx70) (Succ vx74)) LT)) (ltEsChar (Char (Pos (Succ vx70))) (Char (Pos (Succ vx75)))))",fontsize=16,color="magenta"];759 -> 1041[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 759 -> 1042[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 759 -> 1043[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 759 -> 1044[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 360[label="toLower0 (Char (Pos Zero)) MyTrue",fontsize=16,color="black",shape="box"];360 -> 363[label="",style="solid", color="black", weight=3]; 22.70/11.22 760[label="primPlusInt (primMinusInt (primCharToInt (Char (Pos (Succ vx80)))) (fromEnumChar (Char (Pos (Succ vx81))))) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];760 -> 764[label="",style="solid", color="black", weight=3]; 22.70/11.22 1017[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not (esEsOrdering (primCmpNat (Succ vx850) vx86) GT)) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="burlywood",shape="box"];1260[label="vx86/Succ vx860",fontsize=10,color="white",style="solid",shape="box"];1017 -> 1260[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1260 -> 1036[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1261[label="vx86/Zero",fontsize=10,color="white",style="solid",shape="box"];1017 -> 1261[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1261 -> 1037[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1018[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not (esEsOrdering (primCmpNat Zero vx86) GT)) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="burlywood",shape="box"];1262[label="vx86/Succ vx860",fontsize=10,color="white",style="solid",shape="box"];1018 -> 1262[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1262 -> 1038[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1263[label="vx86/Zero",fontsize=10,color="white",style="solid",shape="box"];1018 -> 1263[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1263 -> 1039[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1041[label="Succ vx74",fontsize=16,color="green",shape="box"];1042[label="Succ vx70",fontsize=16,color="green",shape="box"];1043[label="vx70",fontsize=16,color="green",shape="box"];1044[label="vx75",fontsize=16,color="green",shape="box"];1040[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not (esEsOrdering (primCmpNat vx91 vx92) LT)) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="burlywood",shape="triangle"];1264[label="vx91/Succ vx910",fontsize=10,color="white",style="solid",shape="box"];1040 -> 1264[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1264 -> 1069[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1265[label="vx91/Zero",fontsize=10,color="white",style="solid",shape="box"];1040 -> 1265[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1265 -> 1070[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 363[label="Char (Pos Zero)",fontsize=16,color="green",shape="box"];764[label="primPlusInt (primMinusInt (Pos (Succ vx80)) (fromEnumChar (Char (Pos (Succ vx81))))) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];764 -> 771[label="",style="solid", color="black", weight=3]; 22.70/11.22 1036[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not (esEsOrdering (primCmpNat (Succ vx850) (Succ vx860)) GT)) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="black",shape="box"];1036 -> 1071[label="",style="solid", color="black", weight=3]; 22.70/11.22 1037[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not (esEsOrdering (primCmpNat (Succ vx850) Zero) GT)) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="black",shape="box"];1037 -> 1072[label="",style="solid", color="black", weight=3]; 22.70/11.22 1038[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not (esEsOrdering (primCmpNat Zero (Succ vx860)) GT)) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="black",shape="box"];1038 -> 1073[label="",style="solid", color="black", weight=3]; 22.70/11.22 1039[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not (esEsOrdering (primCmpNat Zero Zero) GT)) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="black",shape="box"];1039 -> 1074[label="",style="solid", color="black", weight=3]; 22.70/11.22 1069[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not (esEsOrdering (primCmpNat (Succ vx910) vx92) LT)) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="burlywood",shape="box"];1266[label="vx92/Succ vx920",fontsize=10,color="white",style="solid",shape="box"];1069 -> 1266[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1266 -> 1079[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1267[label="vx92/Zero",fontsize=10,color="white",style="solid",shape="box"];1069 -> 1267[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1267 -> 1080[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1070[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not (esEsOrdering (primCmpNat Zero vx92) LT)) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="burlywood",shape="box"];1268[label="vx92/Succ vx920",fontsize=10,color="white",style="solid",shape="box"];1070 -> 1268[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1268 -> 1081[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1269[label="vx92/Zero",fontsize=10,color="white",style="solid",shape="box"];1070 -> 1269[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1269 -> 1082[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 771[label="primPlusInt (primMinusInt (Pos (Succ vx80)) (primCharToInt (Char (Pos (Succ vx81))))) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];771 -> 780[label="",style="solid", color="black", weight=3]; 22.70/11.22 1071 -> 981[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1071[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not (esEsOrdering (primCmpNat vx850 vx860) GT)) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="magenta"];1071 -> 1083[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1071 -> 1084[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1072[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not (esEsOrdering GT GT)) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="black",shape="box"];1072 -> 1085[label="",style="solid", color="black", weight=3]; 22.70/11.22 1073[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not (esEsOrdering LT GT)) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="black",shape="box"];1073 -> 1086[label="",style="solid", color="black", weight=3]; 22.70/11.22 1074[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not (esEsOrdering EQ GT)) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="black",shape="box"];1074 -> 1087[label="",style="solid", color="black", weight=3]; 22.70/11.22 1079[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not (esEsOrdering (primCmpNat (Succ vx910) (Succ vx920)) LT)) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="black",shape="box"];1079 -> 1089[label="",style="solid", color="black", weight=3]; 22.70/11.22 1080[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not (esEsOrdering (primCmpNat (Succ vx910) Zero) LT)) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="black",shape="box"];1080 -> 1090[label="",style="solid", color="black", weight=3]; 22.70/11.22 1081[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not (esEsOrdering (primCmpNat Zero (Succ vx920)) LT)) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="black",shape="box"];1081 -> 1091[label="",style="solid", color="black", weight=3]; 22.70/11.22 1082[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not (esEsOrdering (primCmpNat Zero Zero) LT)) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="black",shape="box"];1082 -> 1092[label="",style="solid", color="black", weight=3]; 22.70/11.22 780[label="primPlusInt (primMinusInt (Pos (Succ vx80)) (Pos (Succ vx81))) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];780 -> 790[label="",style="solid", color="black", weight=3]; 22.70/11.22 1083[label="vx860",fontsize=16,color="green",shape="box"];1084[label="vx850",fontsize=16,color="green",shape="box"];1085[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not MyTrue) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="black",shape="box"];1085 -> 1093[label="",style="solid", color="black", weight=3]; 22.70/11.22 1086[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not MyFalse) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="black",shape="triangle"];1086 -> 1094[label="",style="solid", color="black", weight=3]; 22.70/11.22 1087 -> 1086[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1087[label="toLower1 (Char (Pos (Succ vx84))) (pePe (not MyFalse) (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="magenta"];1089 -> 1040[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1089[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not (esEsOrdering (primCmpNat vx910 vx920) LT)) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="magenta"];1089 -> 1097[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1089 -> 1098[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1090[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not (esEsOrdering GT LT)) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="black",shape="box"];1090 -> 1099[label="",style="solid", color="black", weight=3]; 22.70/11.22 1091[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not (esEsOrdering LT LT)) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="black",shape="box"];1091 -> 1100[label="",style="solid", color="black", weight=3]; 22.70/11.22 1092[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not (esEsOrdering EQ LT)) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="black",shape="box"];1092 -> 1101[label="",style="solid", color="black", weight=3]; 22.70/11.22 790[label="primPlusInt (primMinusNat (Succ vx80) (Succ vx81)) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];790 -> 802[label="",style="solid", color="black", weight=3]; 22.70/11.22 1093 -> 732[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1093[label="toLower1 (Char (Pos (Succ vx84))) (pePe MyFalse (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="magenta"];1093 -> 1102[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1093 -> 1103[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1093 -> 1104[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1094[label="toLower1 (Char (Pos (Succ vx84))) (pePe MyTrue (asAs (gtEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx87)))) (ltEsChar (Char (Pos (Succ vx84))) (Char (Pos (Succ vx88))))))",fontsize=16,color="black",shape="box"];1094 -> 1105[label="",style="solid", color="black", weight=3]; 22.70/11.22 1097[label="vx920",fontsize=16,color="green",shape="box"];1098[label="vx910",fontsize=16,color="green",shape="box"];1099[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not MyFalse) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="black",shape="triangle"];1099 -> 1106[label="",style="solid", color="black", weight=3]; 22.70/11.22 1100[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not MyTrue) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="black",shape="box"];1100 -> 1107[label="",style="solid", color="black", weight=3]; 22.70/11.22 1101 -> 1099[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1101[label="toLower1 (Char (Pos (Succ vx90))) (asAs (not MyFalse) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="magenta"];802[label="primPlusInt (primMinusNat vx80 vx81) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="burlywood",shape="triangle"];1270[label="vx80/Succ vx800",fontsize=10,color="white",style="solid",shape="box"];802 -> 1270[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1270 -> 816[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1271[label="vx80/Zero",fontsize=10,color="white",style="solid",shape="box"];802 -> 1271[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1271 -> 817[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1102[label="vx87",fontsize=16,color="green",shape="box"];1103[label="vx88",fontsize=16,color="green",shape="box"];1104[label="vx84",fontsize=16,color="green",shape="box"];1105 -> 727[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1105[label="toLower1 (Char (Pos (Succ vx84))) MyTrue",fontsize=16,color="magenta"];1105 -> 1108[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1106[label="toLower1 (Char (Pos (Succ vx90))) (asAs MyTrue (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="black",shape="box"];1106 -> 1109[label="",style="solid", color="black", weight=3]; 22.70/11.22 1107[label="toLower1 (Char (Pos (Succ vx90))) (asAs MyFalse (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))))",fontsize=16,color="black",shape="box"];1107 -> 1110[label="",style="solid", color="black", weight=3]; 22.70/11.22 816[label="primPlusInt (primMinusNat (Succ vx800) vx81) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="burlywood",shape="box"];1272[label="vx81/Succ vx810",fontsize=10,color="white",style="solid",shape="box"];816 -> 1272[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1272 -> 831[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1273[label="vx81/Zero",fontsize=10,color="white",style="solid",shape="box"];816 -> 1273[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1273 -> 832[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 817[label="primPlusInt (primMinusNat Zero vx81) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="burlywood",shape="box"];1274[label="vx81/Succ vx810",fontsize=10,color="white",style="solid",shape="box"];817 -> 1274[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1274 -> 833[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1275[label="vx81/Zero",fontsize=10,color="white",style="solid",shape="box"];817 -> 1275[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1275 -> 834[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1108[label="vx84",fontsize=16,color="green",shape="box"];1109[label="toLower1 (Char (Pos (Succ vx90))) (ltEsChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93))))",fontsize=16,color="black",shape="box"];1109 -> 1111[label="",style="solid", color="black", weight=3]; 22.70/11.22 1110[label="toLower1 (Char (Pos (Succ vx90))) MyFalse",fontsize=16,color="black",shape="triangle"];1110 -> 1112[label="",style="solid", color="black", weight=3]; 22.70/11.22 831[label="primPlusInt (primMinusNat (Succ vx800) (Succ vx810)) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];831 -> 848[label="",style="solid", color="black", weight=3]; 22.70/11.22 832[label="primPlusInt (primMinusNat (Succ vx800) Zero) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];832 -> 849[label="",style="solid", color="black", weight=3]; 22.70/11.22 833[label="primPlusInt (primMinusNat Zero (Succ vx810)) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];833 -> 850[label="",style="solid", color="black", weight=3]; 22.70/11.22 834[label="primPlusInt (primMinusNat Zero Zero) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];834 -> 851[label="",style="solid", color="black", weight=3]; 22.70/11.22 1111[label="toLower1 (Char (Pos (Succ vx90))) (fsEsOrdering (compareChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))) GT)",fontsize=16,color="black",shape="box"];1111 -> 1113[label="",style="solid", color="black", weight=3]; 22.70/11.22 1112[label="toLower0 (Char (Pos (Succ vx90))) otherwise",fontsize=16,color="black",shape="box"];1112 -> 1114[label="",style="solid", color="black", weight=3]; 22.70/11.22 848 -> 802[label="",style="dashed", color="red", weight=0]; 22.70/11.22 848[label="primPlusInt (primMinusNat vx800 vx810) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="magenta"];848 -> 866[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 848 -> 867[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 849[label="primPlusInt (Pos (Succ vx800)) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];849 -> 868[label="",style="solid", color="black", weight=3]; 22.70/11.22 850[label="primPlusInt (Neg (Succ vx810)) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];850 -> 869[label="",style="solid", color="black", weight=3]; 22.70/11.22 851[label="primPlusInt (Pos Zero) (fromEnumChar (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];851 -> 870[label="",style="solid", color="black", weight=3]; 22.70/11.22 1113[label="toLower1 (Char (Pos (Succ vx90))) (not (esEsOrdering (compareChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))) GT))",fontsize=16,color="black",shape="box"];1113 -> 1115[label="",style="solid", color="black", weight=3]; 22.70/11.22 1114[label="toLower0 (Char (Pos (Succ vx90))) MyTrue",fontsize=16,color="black",shape="box"];1114 -> 1116[label="",style="solid", color="black", weight=3]; 22.70/11.22 866[label="vx810",fontsize=16,color="green",shape="box"];867[label="vx800",fontsize=16,color="green",shape="box"];868[label="primPlusInt (Pos (Succ vx800)) (primCharToInt (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];868 -> 885[label="",style="solid", color="black", weight=3]; 22.70/11.22 869[label="primPlusInt (Neg (Succ vx810)) (primCharToInt (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];869 -> 886[label="",style="solid", color="black", weight=3]; 22.70/11.22 870[label="primPlusInt (Pos Zero) (primCharToInt (Char (Pos (Succ vx82))))",fontsize=16,color="black",shape="box"];870 -> 887[label="",style="solid", color="black", weight=3]; 22.70/11.22 1115[label="toLower1 (Char (Pos (Succ vx90))) (not (esEsOrdering (primCmpChar (Char (Pos (Succ vx90))) (Char (Pos (Succ vx93)))) GT))",fontsize=16,color="black",shape="box"];1115 -> 1117[label="",style="solid", color="black", weight=3]; 22.70/11.22 1116[label="Char (Pos (Succ vx90))",fontsize=16,color="green",shape="box"];885[label="primPlusInt (Pos (Succ vx800)) (Pos (Succ vx82))",fontsize=16,color="black",shape="box"];885 -> 901[label="",style="solid", color="black", weight=3]; 22.70/11.22 886[label="primPlusInt (Neg (Succ vx810)) (Pos (Succ vx82))",fontsize=16,color="black",shape="box"];886 -> 902[label="",style="solid", color="black", weight=3]; 22.70/11.22 887[label="primPlusInt (Pos Zero) (Pos (Succ vx82))",fontsize=16,color="black",shape="box"];887 -> 903[label="",style="solid", color="black", weight=3]; 22.70/11.22 1117[label="toLower1 (Char (Pos (Succ vx90))) (not (esEsOrdering (primCmpInt (Pos (Succ vx90)) (Pos (Succ vx93))) GT))",fontsize=16,color="black",shape="box"];1117 -> 1118[label="",style="solid", color="black", weight=3]; 22.70/11.22 901[label="Pos (primPlusNat (Succ vx800) (Succ vx82))",fontsize=16,color="green",shape="box"];901 -> 918[label="",style="dashed", color="green", weight=3]; 22.70/11.22 902[label="primMinusNat (Succ vx82) (Succ vx810)",fontsize=16,color="black",shape="box"];902 -> 919[label="",style="solid", color="black", weight=3]; 22.70/11.22 903[label="Pos (primPlusNat Zero (Succ vx82))",fontsize=16,color="green",shape="box"];903 -> 920[label="",style="dashed", color="green", weight=3]; 22.70/11.22 1118 -> 1192[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1118[label="toLower1 (Char (Pos (Succ vx90))) (not (esEsOrdering (primCmpNat (Succ vx90) (Succ vx93)) GT))",fontsize=16,color="magenta"];1118 -> 1193[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1118 -> 1194[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1118 -> 1195[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 918[label="primPlusNat (Succ vx800) (Succ vx82)",fontsize=16,color="black",shape="box"];918 -> 935[label="",style="solid", color="black", weight=3]; 22.70/11.22 919[label="primMinusNat vx82 vx810",fontsize=16,color="burlywood",shape="triangle"];1276[label="vx82/Succ vx820",fontsize=10,color="white",style="solid",shape="box"];919 -> 1276[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1276 -> 936[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1277[label="vx82/Zero",fontsize=10,color="white",style="solid",shape="box"];919 -> 1277[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1277 -> 937[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 920[label="primPlusNat Zero (Succ vx82)",fontsize=16,color="black",shape="box"];920 -> 938[label="",style="solid", color="black", weight=3]; 22.70/11.22 1193[label="Succ vx93",fontsize=16,color="green",shape="box"];1194[label="vx90",fontsize=16,color="green",shape="box"];1195[label="Succ vx90",fontsize=16,color="green",shape="box"];1192[label="toLower1 (Char (Pos (Succ vx95))) (not (esEsOrdering (primCmpNat vx96 vx97) GT))",fontsize=16,color="burlywood",shape="triangle"];1278[label="vx96/Succ vx960",fontsize=10,color="white",style="solid",shape="box"];1192 -> 1278[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1278 -> 1214[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1279[label="vx96/Zero",fontsize=10,color="white",style="solid",shape="box"];1192 -> 1279[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1279 -> 1215[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 935[label="Succ (Succ (primPlusNat vx800 vx82))",fontsize=16,color="green",shape="box"];935 -> 954[label="",style="dashed", color="green", weight=3]; 22.70/11.22 936[label="primMinusNat (Succ vx820) vx810",fontsize=16,color="burlywood",shape="box"];1280[label="vx810/Succ vx8100",fontsize=10,color="white",style="solid",shape="box"];936 -> 1280[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1280 -> 955[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1281[label="vx810/Zero",fontsize=10,color="white",style="solid",shape="box"];936 -> 1281[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1281 -> 956[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 937[label="primMinusNat Zero vx810",fontsize=16,color="burlywood",shape="box"];1282[label="vx810/Succ vx8100",fontsize=10,color="white",style="solid",shape="box"];937 -> 1282[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1282 -> 957[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1283[label="vx810/Zero",fontsize=10,color="white",style="solid",shape="box"];937 -> 1283[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1283 -> 958[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 938[label="Succ vx82",fontsize=16,color="green",shape="box"];1214[label="toLower1 (Char (Pos (Succ vx95))) (not (esEsOrdering (primCmpNat (Succ vx960) vx97) GT))",fontsize=16,color="burlywood",shape="box"];1284[label="vx97/Succ vx970",fontsize=10,color="white",style="solid",shape="box"];1214 -> 1284[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1284 -> 1216[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1285[label="vx97/Zero",fontsize=10,color="white",style="solid",shape="box"];1214 -> 1285[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1285 -> 1217[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1215[label="toLower1 (Char (Pos (Succ vx95))) (not (esEsOrdering (primCmpNat Zero vx97) GT))",fontsize=16,color="burlywood",shape="box"];1286[label="vx97/Succ vx970",fontsize=10,color="white",style="solid",shape="box"];1215 -> 1286[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1286 -> 1218[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1287[label="vx97/Zero",fontsize=10,color="white",style="solid",shape="box"];1215 -> 1287[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1287 -> 1219[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 954[label="primPlusNat vx800 vx82",fontsize=16,color="burlywood",shape="triangle"];1288[label="vx800/Succ vx8000",fontsize=10,color="white",style="solid",shape="box"];954 -> 1288[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1288 -> 975[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1289[label="vx800/Zero",fontsize=10,color="white",style="solid",shape="box"];954 -> 1289[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1289 -> 976[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 955[label="primMinusNat (Succ vx820) (Succ vx8100)",fontsize=16,color="black",shape="box"];955 -> 977[label="",style="solid", color="black", weight=3]; 22.70/11.22 956[label="primMinusNat (Succ vx820) Zero",fontsize=16,color="black",shape="box"];956 -> 978[label="",style="solid", color="black", weight=3]; 22.70/11.22 957[label="primMinusNat Zero (Succ vx8100)",fontsize=16,color="black",shape="box"];957 -> 979[label="",style="solid", color="black", weight=3]; 22.70/11.22 958[label="primMinusNat Zero Zero",fontsize=16,color="black",shape="box"];958 -> 980[label="",style="solid", color="black", weight=3]; 22.70/11.22 1216[label="toLower1 (Char (Pos (Succ vx95))) (not (esEsOrdering (primCmpNat (Succ vx960) (Succ vx970)) GT))",fontsize=16,color="black",shape="box"];1216 -> 1220[label="",style="solid", color="black", weight=3]; 22.70/11.22 1217[label="toLower1 (Char (Pos (Succ vx95))) (not (esEsOrdering (primCmpNat (Succ vx960) Zero) GT))",fontsize=16,color="black",shape="box"];1217 -> 1221[label="",style="solid", color="black", weight=3]; 22.70/11.22 1218[label="toLower1 (Char (Pos (Succ vx95))) (not (esEsOrdering (primCmpNat Zero (Succ vx970)) GT))",fontsize=16,color="black",shape="box"];1218 -> 1222[label="",style="solid", color="black", weight=3]; 22.70/11.22 1219[label="toLower1 (Char (Pos (Succ vx95))) (not (esEsOrdering (primCmpNat Zero Zero) GT))",fontsize=16,color="black",shape="box"];1219 -> 1223[label="",style="solid", color="black", weight=3]; 22.70/11.22 975[label="primPlusNat (Succ vx8000) vx82",fontsize=16,color="burlywood",shape="box"];1290[label="vx82/Succ vx820",fontsize=10,color="white",style="solid",shape="box"];975 -> 1290[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1290 -> 1030[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1291[label="vx82/Zero",fontsize=10,color="white",style="solid",shape="box"];975 -> 1291[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1291 -> 1031[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 976[label="primPlusNat Zero vx82",fontsize=16,color="burlywood",shape="box"];1292[label="vx82/Succ vx820",fontsize=10,color="white",style="solid",shape="box"];976 -> 1292[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1292 -> 1032[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 1293[label="vx82/Zero",fontsize=10,color="white",style="solid",shape="box"];976 -> 1293[label="",style="solid", color="burlywood", weight=9]; 22.70/11.22 1293 -> 1033[label="",style="solid", color="burlywood", weight=3]; 22.70/11.22 977 -> 919[label="",style="dashed", color="red", weight=0]; 22.70/11.22 977[label="primMinusNat vx820 vx8100",fontsize=16,color="magenta"];977 -> 1034[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 977 -> 1035[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 978[label="Pos (Succ vx820)",fontsize=16,color="green",shape="box"];979[label="Neg (Succ vx8100)",fontsize=16,color="green",shape="box"];980[label="Pos Zero",fontsize=16,color="green",shape="box"];1220 -> 1192[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1220[label="toLower1 (Char (Pos (Succ vx95))) (not (esEsOrdering (primCmpNat vx960 vx970) GT))",fontsize=16,color="magenta"];1220 -> 1224[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1220 -> 1225[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1221[label="toLower1 (Char (Pos (Succ vx95))) (not (esEsOrdering GT GT))",fontsize=16,color="black",shape="box"];1221 -> 1226[label="",style="solid", color="black", weight=3]; 22.70/11.22 1222[label="toLower1 (Char (Pos (Succ vx95))) (not (esEsOrdering LT GT))",fontsize=16,color="black",shape="box"];1222 -> 1227[label="",style="solid", color="black", weight=3]; 22.70/11.22 1223[label="toLower1 (Char (Pos (Succ vx95))) (not (esEsOrdering EQ GT))",fontsize=16,color="black",shape="box"];1223 -> 1228[label="",style="solid", color="black", weight=3]; 22.70/11.22 1030[label="primPlusNat (Succ vx8000) (Succ vx820)",fontsize=16,color="black",shape="box"];1030 -> 1075[label="",style="solid", color="black", weight=3]; 22.70/11.22 1031[label="primPlusNat (Succ vx8000) Zero",fontsize=16,color="black",shape="box"];1031 -> 1076[label="",style="solid", color="black", weight=3]; 22.70/11.22 1032[label="primPlusNat Zero (Succ vx820)",fontsize=16,color="black",shape="box"];1032 -> 1077[label="",style="solid", color="black", weight=3]; 22.70/11.22 1033[label="primPlusNat Zero Zero",fontsize=16,color="black",shape="box"];1033 -> 1078[label="",style="solid", color="black", weight=3]; 22.70/11.22 1034[label="vx820",fontsize=16,color="green",shape="box"];1035[label="vx8100",fontsize=16,color="green",shape="box"];1224[label="vx970",fontsize=16,color="green",shape="box"];1225[label="vx960",fontsize=16,color="green",shape="box"];1226[label="toLower1 (Char (Pos (Succ vx95))) (not MyTrue)",fontsize=16,color="black",shape="box"];1226 -> 1229[label="",style="solid", color="black", weight=3]; 22.70/11.22 1227[label="toLower1 (Char (Pos (Succ vx95))) (not MyFalse)",fontsize=16,color="black",shape="triangle"];1227 -> 1230[label="",style="solid", color="black", weight=3]; 22.70/11.22 1228 -> 1227[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1228[label="toLower1 (Char (Pos (Succ vx95))) (not MyFalse)",fontsize=16,color="magenta"];1075[label="Succ (Succ (primPlusNat vx8000 vx820))",fontsize=16,color="green",shape="box"];1075 -> 1088[label="",style="dashed", color="green", weight=3]; 22.70/11.22 1076[label="Succ vx8000",fontsize=16,color="green",shape="box"];1077[label="Succ vx820",fontsize=16,color="green",shape="box"];1078[label="Zero",fontsize=16,color="green",shape="box"];1229 -> 1110[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1229[label="toLower1 (Char (Pos (Succ vx95))) MyFalse",fontsize=16,color="magenta"];1229 -> 1231[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1230 -> 727[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1230[label="toLower1 (Char (Pos (Succ vx95))) MyTrue",fontsize=16,color="magenta"];1230 -> 1232[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1088 -> 954[label="",style="dashed", color="red", weight=0]; 22.70/11.22 1088[label="primPlusNat vx8000 vx820",fontsize=16,color="magenta"];1088 -> 1095[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1088 -> 1096[label="",style="dashed", color="magenta", weight=3]; 22.70/11.22 1231[label="vx95",fontsize=16,color="green",shape="box"];1232[label="vx95",fontsize=16,color="green",shape="box"];1095[label="vx820",fontsize=16,color="green",shape="box"];1096[label="vx8000",fontsize=16,color="green",shape="box"];} 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (6) 22.70/11.22 Complex Obligation (AND) 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (7) 22.70/11.22 Obligation: 22.70/11.22 Q DP problem: 22.70/11.22 The TRS P consists of the following rules: 22.70/11.22 22.70/11.22 new_toLower1(vx95, Main.Succ(vx960), Main.Succ(vx970)) -> new_toLower1(vx95, vx960, vx970) 22.70/11.22 22.70/11.22 R is empty. 22.70/11.22 Q is empty. 22.70/11.22 We have to consider all minimal (P,Q,R)-chains. 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (8) QDPSizeChangeProof (EQUIVALENT) 22.70/11.22 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. 22.70/11.22 22.70/11.22 From the DPs we obtained the following set of size-change graphs: 22.70/11.22 *new_toLower1(vx95, Main.Succ(vx960), Main.Succ(vx970)) -> new_toLower1(vx95, vx960, vx970) 22.70/11.22 The graph contains the following edges 1 >= 1, 2 > 2, 3 > 3 22.70/11.22 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (9) 22.70/11.22 YES 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (10) 22.70/11.22 Obligation: 22.70/11.22 Q DP problem: 22.70/11.22 The TRS P consists of the following rules: 22.70/11.22 22.70/11.22 new_toLower10(vx90, Main.Succ(vx910), Main.Succ(vx920), vx93) -> new_toLower10(vx90, vx910, vx920, vx93) 22.70/11.22 22.70/11.22 R is empty. 22.70/11.22 Q is empty. 22.70/11.22 We have to consider all minimal (P,Q,R)-chains. 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (11) QDPSizeChangeProof (EQUIVALENT) 22.70/11.22 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. 22.70/11.22 22.70/11.22 From the DPs we obtained the following set of size-change graphs: 22.70/11.22 *new_toLower10(vx90, Main.Succ(vx910), Main.Succ(vx920), vx93) -> new_toLower10(vx90, vx910, vx920, vx93) 22.70/11.22 The graph contains the following edges 1 >= 1, 2 > 2, 3 > 3, 4 >= 4 22.70/11.22 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (12) 22.70/11.22 YES 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (13) 22.70/11.22 Obligation: 22.70/11.22 Q DP problem: 22.70/11.22 The TRS P consists of the following rules: 22.70/11.22 22.70/11.22 new_toLower13(vx62, Main.Succ(vx630), Main.Succ(vx640), vx65, vx66, vx67, vx68) -> new_toLower13(vx62, vx630, vx640, vx65, vx66, vx67, vx68) 22.70/11.22 22.70/11.22 R is empty. 22.70/11.22 Q is empty. 22.70/11.22 We have to consider all minimal (P,Q,R)-chains. 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (14) QDPSizeChangeProof (EQUIVALENT) 22.70/11.22 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. 22.70/11.22 22.70/11.22 From the DPs we obtained the following set of size-change graphs: 22.70/11.22 *new_toLower13(vx62, Main.Succ(vx630), Main.Succ(vx640), vx65, vx66, vx67, vx68) -> new_toLower13(vx62, vx630, vx640, vx65, vx66, vx67, vx68) 22.70/11.22 The graph contains the following edges 1 >= 1, 2 > 2, 3 > 3, 4 >= 4, 5 >= 5, 6 >= 6, 7 >= 7 22.70/11.22 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (15) 22.70/11.22 YES 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (16) 22.70/11.22 Obligation: 22.70/11.22 Q DP problem: 22.70/11.22 The TRS P consists of the following rules: 22.70/11.22 22.70/11.22 new_primPlusInt(Main.Succ(vx800), Main.Succ(vx810), vx82) -> new_primPlusInt(vx800, vx810, vx82) 22.70/11.22 22.70/11.22 R is empty. 22.70/11.22 Q is empty. 22.70/11.22 We have to consider all minimal (P,Q,R)-chains. 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (17) QDPSizeChangeProof (EQUIVALENT) 22.70/11.22 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. 22.70/11.22 22.70/11.22 From the DPs we obtained the following set of size-change graphs: 22.70/11.22 *new_primPlusInt(Main.Succ(vx800), Main.Succ(vx810), vx82) -> new_primPlusInt(vx800, vx810, vx82) 22.70/11.22 The graph contains the following edges 1 > 1, 2 > 2, 3 >= 3 22.70/11.22 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (18) 22.70/11.22 YES 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (19) 22.70/11.22 Obligation: 22.70/11.22 Q DP problem: 22.70/11.22 The TRS P consists of the following rules: 22.70/11.22 22.70/11.22 new_toLower12(vx70, Main.Succ(vx710), Main.Succ(vx720), vx73, vx74, vx75) -> new_toLower12(vx70, vx710, vx720, vx73, vx74, vx75) 22.70/11.22 22.70/11.22 R is empty. 22.70/11.22 Q is empty. 22.70/11.22 We have to consider all minimal (P,Q,R)-chains. 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (20) QDPSizeChangeProof (EQUIVALENT) 22.70/11.22 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. 22.70/11.22 22.70/11.22 From the DPs we obtained the following set of size-change graphs: 22.70/11.22 *new_toLower12(vx70, Main.Succ(vx710), Main.Succ(vx720), vx73, vx74, vx75) -> new_toLower12(vx70, vx710, vx720, vx73, vx74, vx75) 22.70/11.22 The graph contains the following edges 1 >= 1, 2 > 2, 3 > 3, 4 >= 4, 5 >= 5, 6 >= 6 22.70/11.22 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (21) 22.70/11.22 YES 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (22) 22.70/11.22 Obligation: 22.70/11.22 Q DP problem: 22.70/11.22 The TRS P consists of the following rules: 22.70/11.22 22.70/11.22 new_toLower14(vx38, Main.Succ(vx390), Main.Succ(vx400), vx41, vx42, vx43, vx44, vx45) -> new_toLower14(vx38, vx390, vx400, vx41, vx42, vx43, vx44, vx45) 22.70/11.22 22.70/11.22 R is empty. 22.70/11.22 Q is empty. 22.70/11.22 We have to consider all minimal (P,Q,R)-chains. 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (23) QDPSizeChangeProof (EQUIVALENT) 22.70/11.22 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. 22.70/11.22 22.70/11.22 From the DPs we obtained the following set of size-change graphs: 22.70/11.22 *new_toLower14(vx38, Main.Succ(vx390), Main.Succ(vx400), vx41, vx42, vx43, vx44, vx45) -> new_toLower14(vx38, vx390, vx400, vx41, vx42, vx43, vx44, vx45) 22.70/11.22 The graph contains the following edges 1 >= 1, 2 > 2, 3 > 3, 4 >= 4, 5 >= 5, 6 >= 6, 7 >= 7, 8 >= 8 22.70/11.22 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (24) 22.70/11.22 YES 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (25) 22.70/11.22 Obligation: 22.70/11.22 Q DP problem: 22.70/11.22 The TRS P consists of the following rules: 22.70/11.22 22.70/11.22 new_primMinusNat(Main.Succ(vx820), Main.Succ(vx8100)) -> new_primMinusNat(vx820, vx8100) 22.70/11.22 22.70/11.22 R is empty. 22.70/11.22 Q is empty. 22.70/11.22 We have to consider all minimal (P,Q,R)-chains. 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (26) QDPSizeChangeProof (EQUIVALENT) 22.70/11.22 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. 22.70/11.22 22.70/11.22 From the DPs we obtained the following set of size-change graphs: 22.70/11.22 *new_primMinusNat(Main.Succ(vx820), Main.Succ(vx8100)) -> new_primMinusNat(vx820, vx8100) 22.70/11.22 The graph contains the following edges 1 > 1, 2 > 2 22.70/11.22 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (27) 22.70/11.22 YES 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (28) 22.70/11.22 Obligation: 22.70/11.22 Q DP problem: 22.70/11.22 The TRS P consists of the following rules: 22.70/11.22 22.70/11.22 new_primPlusNat(Main.Succ(vx8000), Main.Succ(vx820)) -> new_primPlusNat(vx8000, vx820) 22.70/11.22 22.70/11.22 R is empty. 22.70/11.22 Q is empty. 22.70/11.22 We have to consider all minimal (P,Q,R)-chains. 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (29) QDPSizeChangeProof (EQUIVALENT) 22.70/11.22 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. 22.70/11.22 22.70/11.22 From the DPs we obtained the following set of size-change graphs: 22.70/11.22 *new_primPlusNat(Main.Succ(vx8000), Main.Succ(vx820)) -> new_primPlusNat(vx8000, vx820) 22.70/11.22 The graph contains the following edges 1 > 1, 2 > 2 22.70/11.22 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (30) 22.70/11.22 YES 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (31) 22.70/11.22 Obligation: 22.70/11.22 Q DP problem: 22.70/11.22 The TRS P consists of the following rules: 22.70/11.22 22.70/11.22 new_toLower11(vx84, Main.Succ(vx850), Main.Succ(vx860), vx87, vx88) -> new_toLower11(vx84, vx850, vx860, vx87, vx88) 22.70/11.22 22.70/11.22 R is empty. 22.70/11.22 Q is empty. 22.70/11.22 We have to consider all minimal (P,Q,R)-chains. 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (32) QDPSizeChangeProof (EQUIVALENT) 22.70/11.22 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. 22.70/11.22 22.70/11.22 From the DPs we obtained the following set of size-change graphs: 22.70/11.22 *new_toLower11(vx84, Main.Succ(vx850), Main.Succ(vx860), vx87, vx88) -> new_toLower11(vx84, vx850, vx860, vx87, vx88) 22.70/11.22 The graph contains the following edges 1 >= 1, 2 > 2, 3 > 3, 4 >= 4, 5 >= 5 22.70/11.22 22.70/11.22 22.70/11.22 ---------------------------------------- 22.70/11.22 22.70/11.22 (33) 22.70/11.22 YES 22.84/11.30 EOF